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.