Numi napisał:
>Jak ja zaczełem odpowiadac to tego tu nie było :-), ale jak tak czytam to chyba te moje wypociny moga być dobre {brawo} :-)
>
Nie pisałem kodu, bo Deemer uczy się podstaw Pascal'a i chciałem mu jedynie wskazać kierunek poszukiwań rozwiązania (jeżeli się samemu coś zrobi to lepiej zapada w pamięć ;) ). Ale skoro już napisałeś kod to moim zdaniem powinien on wyglądać tak:
procedure dodaj(l:wsk;n:integer);
var
x,t :wsk;
i:integer;
begin
New(x);
l.next := x;
for i := 0 to n-1 do
begin
New(t);
x.next := t;
x := t;
end;
end;
Z tego co zrozumiałem z twojego kodu to wynika, że rzeczywiście tworzysz listę jednokierunkową, ale parametr next wskazuje na obiekt poprzedni :-) --Jest jeszcze jeden błąd ... :)
--- DELPHI HELP po polsku ---
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18659
------------Reklama-------------
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net