Miéert nem megy a pascal programom, mi a hiba?
program rendezes;
var t array [1..20];
i,j,x:integer;
begin
for i:=1to 20 do begin;
readln(t[i]);
for j:=1 to 19 do
for j:=20j do begin
if t[j]>t[j+1] then begin x:=t[j];
t[j] :=t[j+1];
t[j+1]:=x;
end;
for i:=1 to 20 do
writeln(t[i]);
readln;
end.
válasza:Több hiba is van,
- tömb hibás deklarálása, for ciklus rosszul történő megadása
- A rendezést is rosszul csinálod.
Szeritnem valami ilyesmire gondoltál (kijavítottam, hibakezelés nincs benne és nem is túl esztétikus, de lefut és rendez):
program rendezes;
var
t : array [1..20] of integer;
i, j, x : integer;
begin
for i := 1 to 20 do
begin
Write(#13#10,'Kérem a tömb ',i,'. elemét: ');
ReadLn(t[i]);
end;
for i := 1 to 19 do
begin
for j := i+1 to 20 do
begin
if t[i] > t[j] then begin
x:=t[j];
t[j]:=t[i];
t[i]:=x;
end;
end;
end;
for i:=1 to 20 do
WriteLn(t[i]);
ReadLn;
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!