pascal porzadkowanie ciagu,,prosze o pomoc!!
: 27 sty 2012, 22:19
tytuł mojej pracy domowej brzmi: porządkowanie ciągu metodą wyboru. iteracja algorytmu 4. nie mam o tym pojęcia!!
czy chodzi o to:
program sort_wybor;
uses crt;
const n:=20
Var
d:array[1..N]of integer;
i,j,x,min:integer;
Begin
clrscr;
randomize;
for i:=1 to N do d:=random(100);
writeln('Przed sortowaniem:');
for i:=1 to N do writeln(d);
for j:=1 to N-1 do
begin
min:=j;
for i:=j+1 to N do
if d < d[min] then min:=i;
x:=d[min];
d[min]:=d[j];
d[j]:=x;
end;
Writeln('Po sortowaniu:');
for i:=1 to N do
writeln(d);
repeat until keypressed;
End.
prosze o pomoc!!
czy chodzi o to:
program sort_wybor;
uses crt;
const n:=20
Var
d:array[1..N]of integer;
i,j,x,min:integer;
Begin
clrscr;
randomize;
for i:=1 to N do d:=random(100);
writeln('Przed sortowaniem:');
for i:=1 to N do writeln(d);
for j:=1 to N-1 do
begin
min:=j;
for i:=j+1 to N do
if d < d[min] then min:=i;
x:=d[min];
d[min]:=d[j];
d[j]:=x;
end;
Writeln('Po sortowaniu:');
for i:=1 to N do
writeln(d);
repeat until keypressed;
End.
prosze o pomoc!!