Prosze o pomoc czy mógł by mi ktos napisac gdzie mam błąd??
-- 18 maja 2012, 21:10 --
prosze o pomoc czy ktos mógł by mi powiedziec gdzie mam błąd??
{Winnicki kamil, sortowanie sprawdzian gr2}
program sortowanie;
uses crt;
const k=10;
var i,j:integer;
tab:array[1..k] of integer;
procedure wpisz;
begin
randomize;
for i:=1 to k do tab[i]:=Random(100)+100;
end;
procedure sortuj;
var temp:integer;
begin
for i:=1 to k do
for j:=i downto 2 do
begin
if tab[i]>tab[i+1] then
begin
temp:=tab[i];
tab[i]:=tab[i+1];
tab[i+1]:=temp;
end;
end;
end;
procedure wypisz;
begin
for i:=1 to k do write(tab[i]:4);
end;
begin
clrscr;
wpisz;
writeln(' Tablica przed sortowaniem');
writeln;
wypisz;
sortuj;
writeln;
writeln;
writeln(' Tablica posortowana');
writeln;
wypisz;
readln;
end.
Programowanie w turbo pascalu
- lewy
- Posty: 1462
- Rejestracja: 15 gru 2009, 11:10
Programowanie w turbo pascalu
To sortowanie chyba bąbelkowe, a więc drugą pętlę obróć i po niej zrób.
Kod: Zaznacz cały
for (i=0;i<5; i++){
for (j=0; j<5-1; j++){
if (tab[j]>tab[j+1]){
temp=tab[j+1];
tab[j+1]=tab[j];
tab[j]=temp;
}
}
}
-
- Reklama
Wróć do „Webmastering i programowanie”
Kto jest online
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 3 gości