GRY-Online.pl --> Archiwum Forum

Jak zrobic sortowanie w pascalu??

14.01.2006
22:05
smile
[1]

Faleg [ Chorąży ]

Jak zrobic sortowanie w pascalu??

zrobilem program i nie wiem jak zrobic cortowanie do niego :/ nie mam zielonego pojecia prosze niech ktos sie zlituje i napisze sortowanie wedlug imienia


‹sortuje liste›
procedure SortujListe(X : ElementListy);
var temp : Integer;
begin


WYPISZLISTE(root1);


if (X<>NIL) then
if (X<>root1^.Prev) then
if (X^.Next^.Dana >= X^.Dana) then
begin
X := X^.Next;
SortujListe(X)
end
else
begin
temp := X^.Dana;
X^.Dana := X^.Next^.Dana;
X^.Next^.Dana := temp;
SortujListe(root1)
end
end;

© 2000-2021 GRY-OnLine S.A.