Szanowny Gościu, witaj na Forum Informatyków!

Jeżeli odwiedzasz nas po raz pierwszy, zapraszamy do darmowej i prostej rejestracji, która da Ci pełny dostęp do funkcjonalności forum. Jeżeli natomiast posiadasz już konto, możesz zalogować się.

Zapraszamy!

pascal porzadkowanie ciagu,,prosze o pomoc!!

Programowanie w środowisku Delphi lub Pascal

pascal porzadkowanie ciagu,,prosze o pomoc!!

Postprzez inge313 » 27 sty 2012, o 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[i]:=random(100);
writeln('Przed sortowaniem:');
for i:=1 to N do writeln(d[i]);

for j:=1 to N-1 do
begin
min:=j;
for i:=j+1 to N do
if d[i] < 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[i]);
repeat until keypressed;
End.


prosze o pomoc!!
inge313
 
Posty: 1
Dołączył(a): 27 sty 2012, o 21:57

Powrót do Delphi, Pascal