Lista Jednokierunkowa W Turbo Pascalu

[acertm]

Witam.

Mam takie oto zadanie:

Napisać program z wykorzystaniem listy jednokierunkowej który po wprowadzeniu nazwisk uporządkuje je alfabetycznie.

Niby proste...

Tylko jakoś nie wiem jak ten temat ugryźć :mur:

na jagorsze, że do jutra muszę to zrobić :mur:

czy ma ktoś jakieś pomysły ??

Program SortujListe;

Uses Crt;

 

 

Var

Start : WSkladnik;

X : Integer;

I, J, Ilosc : Word;

 

Begin

ClrScr;

Start:=Nil;

Write('Podaj pierwsze nazwisko = ');

ReadLn(X);

If X<>0 Then

If Not LDodaj(Start, X) Then

Begin

WriteLn('Brak pami©ci.');

Halt;

End;

While X<>0 Do

Begin

Write('Podaj kolejne nazwisko = ');

ReadLn(X);

If X<>0 Then

If Not LDodaj(Start, X) Then

Begin

WriteLn('Brak pami©ci.');

Halt;

End;

End;

If LRozmiar(Start)=0 Then WriteLn('Nie podano ľadnych nazwisk')

Else

Begin

Ilosc:=LRozmiar(Start);

For I:=1 To Ilosc Do

For J:=1 To Ilosc-I Do

If LAdres(Start, J)^.X>LAdres(Start, J+1)^.X Then

LZamien(Start, J);

WriteLn('Nazwiska rosnĄco:');

For I:=1 To Ilosc Do WriteLn('Nazwisko numer ', I, ' = ', LWar(Start, I));

End;

WriteLn('Nacinij jaki dowolny...');

While KeyPressed Do ReadKey;

ReadKey;

While KeyPressed Do ReadKey;

End.

co może być nie tak ?? ?? Edytowane 17 Czerwca 2005 przez acertm

[warth]

hmm... widze, że już nieaktualne, więc nawet nie wypowiadam się na temat tego kodu ;)