jak zakombinować motywa na procedure tworzącą liste kierunkową o podanej liczbie elementów????
motyw jest taki:
type
wsk=^sk;
sk=record
x:integer;
next:wsk;
end;
var
l:wsk;
n:integer;
i jak zrobić procedure o parametrach l i n żeby tworzyła n-elementów listy jednkierunkowej????????
Hehe więc jednak wziąłeś się za te listy :)
Twórz w pętli np. poprzez New wskaźniki i ustawiaj w polu next poprzedniego na wartość nowo tworzonego wskaźnika.--Jest jeszcze jeden błąd ... :)
--- DELPHI HELP po polsku ---
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=18659
Nie mam pojęcia czy to działa - listy jakoś nie były moim ulubionym działem, ale chyba działać może :-)
procedure dodaj(l:wsk;n:integer);
var
x,t :wsk;
i:integer;
begin
New(x);
x.next:=l;
l:=x;
for i:=n-1 downto 0 do begin
New(t);
t.next:=x.next;
x.next:=t;
end;
end;
Jakby jednak coś nie działało - to proszę się nie dziwić :-)--, tradycyjnie pozdrawiam - Numi.
Dryobates napisał:
Hehe więc jednak wziąłeś się za te listy :)
>
>Twórz w pętli np. poprzez New wskaźniki i ustawiaj w polu next poprzedniego na wartość nowo tworzonego wskaźnika.
>
Jak ja zaczełem odpowiadac to tego tu nie było :-), ale jak tak czytam to chyba te moje wypociny moga być dobre {brawo} :-) --, tradycyjnie pozdrawiam - Numi.
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