Linearni seznam – Pascal – Fórum – Programujte.com

Ahoj,
prosím Vás potřeboval bych poradit, pro někoho asi s maličkostí, ale já nevím....?
Mám tuto funkci a nevím jakým způsobem jí volat? ( ta funkce je opsaná, nepsal jsem jí já, jen se to snažím pochopit)

function vypust(P:Uk):Uk;

{ P ukazuje na předchůdce rušeného prvku }

{ Funkce vrací ukazatel na vypuštěný prvek, případně vrací hodnotu nil,

* pokud byl prvek P posledním prvkem seznamu }

var Q:Uk; { TOTO V KNIZE NENÍ!! }

begin

Q := P^.dalsi; 	{ Q odkazuje na rušený prvek }

if Q <> nil then

	begin

		P^.dalsi := Q^.dalsi; { uzel Q je vypuštěn ze seznamu }

		Q^.dalsi := nil; { odpojit před dalším použitím }

	end;

vypust := Q;

end;

program seznamJednosmerny;



type Uk = ^Uzel;

     Uzel = record

				info : integer;

				dalsi : Uk;

				pred:Uk;

			end;



var seznam : Uk;

	seznamDva: Uk;



procedure vytvor(N:integer; var P: Uk);

var Q: Uk;

begin

P:= nil;

while N > 0 do

	begin

		new(Q);

		Q^.info := N;

		Q^.dalsi := P;

		P:= Q;

		N:= N-1;

	end;

	writeln('vše je ok');

end;



procedure vytvor2(N: integer; var P:Uk);

{ P bude ukazovat na začátek vytvořeného seznamu }

var Q,R:Uk;

	I:integer;

{ P - začátek seznamu (první prvek)

* Q - konec seznamu (poslední prvek)

* R - nový prvek		}

begin

new(P);  { první prvek seznamu vytvoříme odděleně }

P^.info := 1;

P^.dalsi := nil;

Q := P; {první prvek seznamu je zároveň posledním }

for I:=2 to N do

	begin

		new(R);

		R^.info:=I;

		Q^.dalsi:= R;

		Q:=R;

	end;

Q^.dalsi := nil { ještě seznam řádně zakončíme }

end;



procedure vlozZa(P,Q:Uk);

{ P ukazuje na prvek seznamu, za který se má vlkádat

* Q ukazuje na nově vkládaný prvek }

begin

Q^.dalsi:=P^.dalsi;

P^.dalsi:=Q;

end;



procedure vlozPred(P,Q:Uk);

{ P ukazuje na prvek seznamu, před který se má vkládat

* Q ukazuje na nově vkládaný prvek 	}

var K: integer;

begin

	K:=Q^.info; { do proměnné K si odložíme obsah Q }

	Q^ := P^;	{ kopírují se celé uzly, tj Info i Dalsi }

	P^.info := K; { dokončit výměnu hodnot Info }

	P^.dalsi := Q;	{ zapojit nový prvek }

end;



function vypust(P:Uk):Uk;

{ P ukazuje na předchůdce rušeného prvku }

{ Funkce vrací ukazatel na vypuštěný prvek, případně vrací hodnotu nil,

* pokud byl prvek P posledním prvkem seznamu }

var Q:Uk; { TOTO V KNIZE NENÍ!! }

begin

Q := P^.dalsi; 	{ Q odkazuje na rušený prvek }

if Q <> nil then

	begin

		P^.dalsi := Q^.dalsi; { uzel Q je vypuštěn ze seznamu }

		Q^.dalsi := nil; { odpojit před dalším použitím }

	end;

vypust := Q;

end;



procedure vypis(var P:uk);

begin

while P <> nil do

	begin

	write(P^.info);

	write(' ---> ');

	write(double(P^.dalsi));

	P:=P^.dalsi;

	writeln();

	end;

end;







var cislo : integer;



begin

writeln('napiš číslo');

read(cislo);

vytvor(cislo, seznam);

vypis(seznam);



read(cislo);

vytvor2(cislo, seznamDva);

writeln('enter a vipíše se seznam');

vypis(seznamDva);

read(cislo);



end.

Kdybych bral ze zadas vytvorit seznam nejmin o 6 prvcich,
tak kdyz chces vypustit treba 4. prvek

var
prvek:Uk; {pomocna promenna ukazujici na prvek seznamu}
i:integer;
begin

{tady ten tvuj kod}

prvek:=seznam; {z tohoto vypustime}
for i:=1 to 4-2 do {odecteme 2 protoze na zacatku odkazujeme uz na prvni prvek (-1) a skoncime o jeden driv (-1) -> funkce odstranuje naslednika}
prvek:=prvek.dalsi;

vypust(prvek);
vypis(seznam); {a nebude tam}
end.

To illioner : Urcite to neni dobre, protoze vypust je funkce. Spis prvek1:=vypust(prvek); Presne jak je v popisku te fuknce.
To pidgin : Neni pravda, ze to v te knize neni, nalistuj si par stranek dozadu, jak zacinaji spojaky a tam je deklarovane "Uk". Aby se hlavicka nemusela psat u kazde funkce. Teda pokud je to ta kniha, ktera myslim ze to je. Tenka, hneda, Topfer.

To Krychlik : tvůj příklad je taky možnost (záleží na konkrétnim využití), jinak ale tim mym nic nepokazí, nemusim přece hodnotu která doputuje z funkce nikde chytat, aby ta funkce proběhla v pořádku a seznam se zkrátil!

To illioner : No dobre, mas pravdu ze se to nemusi chytat, bude to fungovat, ale vymazat a zapomenout adresu je prasarna, potom nemuzes uvolnit pamet. Jednou to proste spadne.

díky moc, podívám se, ano je to topfer:-) ale zatím si s tím nějak nevím rady. a zajímavé je že když projdu seznam jednou a pak ho chci projít podruhé tak je seznam prázdný(??):-O

To pidgin : A pri tom druhem prochazeni- nastavis si "prochazeci" ukazatel na zacetek? Po prvnim projiti ho budes mit na konci, a pak prochazis od konce do konce, coz asi nechces.

To Krychlik : jo obalit to do dispose :-)
To pidgin :
Je prazdny protoze tam vadi to var v deklaraci (vnitrek procedury pak zachazi s odkazem ukazatele a meni ho)
procedure vypis(var P:uk);
udelej
procedure vypis(P:uk);
a promenna seznam zustane sama sebou, nebo pouzivej pro vypis tu pomocnou promennou prvek

DÍKY MOC. teď už je mi to všechno jasnější ale ještě jednu věc nějak nevím. napsal jsem si zkusmo průchod takto

//průchod seznamem

procedure pruchod(P:Uk);

begin

writeln('--- pruchod seznamem ');

while P <> nil do

	begin

	if P^.info = 1 then

		begin

			vypust(P);

		end;

	P:=P^.dalsi;

	writeln();

	end;

end;