Sortowanie Babelkowe
program sortowanie_babelkowe;
var
i,n,b,c:integer;
tab:array[1..30] of integer;
pomoc:integer;
begin
writeln('Podaj ilość liczb');
readln(n);
writeln('Podawaj kolejno liczby');
for i:=1 to n do
readln(tab[i]);
b:=0;
c:=1;
while c>0 do
begin
inc(b);
c:=0;
for i:=1 to n-b do
begin
if tab[i] > tab[i+1] then
begin
pomoc:=tab[i+1];
tab[i+1]:=tab[i];
tab[i]:=pomoc;
inc(c);
end;
end;
end;
for i:=1 to n do
write(tab[i],', ');
readln;
end.
Podobne strony
Podobne Strony • Szyfr Cezara • Sortowanie Przez Kopcowanie • Rok Przestepny • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • QuickSort • Nww • Metoda Babelkowa • Silnia • Miejsca Zerowe Funkcji Kwadratowej • Fibonacci
wersja strony: 3, ostatnia edycja: 08 Jul 2009 22:10