Sortowanie bąbelkowe


program sortowanie_babelkowe;

uses crt;

const zakres=10;

type

tab=array[1..zakres] of integer;

procedure wypelnienie(var T:tab);

var i:integer;

begin

clrscr;

for i:=1 to zakres do

begin

T[i]:=random(200);

end;

end;

procedure sortuj(var T:tab);

var oz,i,j,zamien:integer;

begin

oz:=zakres;

while oz>1 do

begin

for i:=1 to oz-1 do

begin

if T[i] > T[i+1] then

begin

zamien:=T[i];

T[i]:=T[i+1];

T[i+1]:=zamien;

end;

oz:=i;

end;

for j:=1 to zakres do

begin

if j<=oz

then

textcolor(red)

else

textcolor(white);

write (T[j],', ');

end;

writeln;

end;

end;

var T:tab;

i:integer;

begin

wypelnienie(T);

for i:=1 to zakres do

begin

write(T[i],', ');

end;

writeln;

sortuj(T);

writeln(' posortowana tablica:');

for i:=1 to zakres do

begin

write(T[i],', ');

end;

repeat until keypressed;

end.

program sortowanie_babelkowe;

uses crt;

const zakres=10;

type

tab=array[1..zakres] of integer;

procedure wypelnienie(var T:tab);

var i:integer;

begin

clrscr;

for i:=1 to zakres do

begin

T[i]:=random(200);

end;

end;

procedure sortuj(var T:tab);

var oz,i,j,zamien:integer;

begin

oz:=zakres;

while oz>1 do

begin

for i:=1 to oz-1 do

begin

if T[i] > T[i+1] then

begin

zamien:=T[i];

T[i]:=T[i+1];

T[i+1]:=zamien;

end;

oz:=i;

end;

for j:=1 to zakres do

begin

if j<=oz

then

textcolor(red)

else

textcolor(white);

write (T[j],', ');

end;

writeln;

end;

end;

var T:tab;

i:integer;

begin

wypelnienie(T);

for i:=1 to zakres do

begin

write(T[i],', ');

end;

writeln;

sortuj(T);

writeln(' posortowana tablica:');

for i:=1 to zakres do

begin

write(T[i],', ');

end;

repeat until keypressed;

end.



Wyszukiwarka

Podobne podstrony:
Sortowanie bąbelkowe
ALS - 009-000 - Zajęcia - Sortowanie bąbelkowe, Informatyka - uczelnia, WWSI i WAT, wwsi, SEM II, Al
Algorytm sortowania bąbelkowego jest jednym z najstarszych algorytmów sortujących, ALGORYTMY
jak wykonac sortowanie babelkowealgorytm bubble sort, PHP Skrypty
28 Sortowanie bąbelkowe
Sortowanie bąbelkowe schemat1
4 sortowanie
Sortowanie cz 2 ppt
Sortowanie listów
algorytmy sortowanie
5 sortowanie log
4 Sterowanie sortowaniem RSS 2013
Ściaga sortowania, algorytmy i struktury danych
Sortowanie kilku kolumn jednocześnie, excel
3 Wyklad Sortowanie
linia sortownicza A1
5 Grupowanie i sortowanie
sortowanie, BHP

więcej podobnych podstron