?? bubble sort.pas
字號:
program sortowanie_babelkowe;
uses crt;
var
i,n,j,pom:integer;
tab:array[1..15] of integer;
{..................................................}
procedure sort; {Sortujemy babelkowo}
begin
for j := 1 to n-1 do {Liczba krokow-kolejny krok}
for i := 1 to n-1 do {wykonywanie jedengo kroku}
if tab[i] > tab[i+1] then { Porzadek rosnacy }
begin
pom := tab[i];
tab[i] := tab[i+1];
tab[i+1] := pom;
end;
end;
procedure podaj;
begin
writeln('Podaj ilosc liczb do posortowania [max.15]');
readln(n);
writeln('Podawaj kolejno liczby');
for i:=1 to n do
begin
write(i,'. ');
readln(tab[i]);
end;
writeln;
writeln('Liczby PRZED sortowaniem: '); writeln;
for i := 1 to N do write(tab[i] : 3);
end;
{...................................................}
begin
clrscr;
podaj;
sort;
writeln;
writeln;
writeln;
writeln('Liczby PO sortowaniu:'); writeln;
for i := 1 to N do write(tab[i] : 3);
writeln;
writeln;
writeln;
writeln;
writeln;
writeln('KONIEC');
readln;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -