Prikladik v pascale

dagmarra

Caute. Moze mi niekto prosim pomoct s vytvorenim dynamickeho zoznamu- SLL (jednosmerne zretazeny zoznam). Mam vytvorit 3 prvky a vypisat ich. Uz som aj zacala ale neviem ako pokracovat. Pomoze mi niekto prosim?
program zoznam;
type TypHodnoty=integer;
PPrvok=^TPrvok;
TPrvok=record
hodnota: TypHodnoty;
dalsi: PPrvok;
end;

var p,q,r: PPrvok;

begin
new(p);
p^.hodnota:=15;
p^.dalsi :=nil;

New(q);
q^.hodnota:=20;
q^.dalsi :=p;

New(r);
r^.hodnota:=25;
r^.dalsi :=q;

neppo

Kód: Vybrať všetko

program zoznam;
uses crt;
type ukazovatel=^prvok;
     prvok=record
          obsah:integer;
          dalsi:ukazovatel;
          end;
var z,p:ukazovatel;
    i:integer;

begin
clrscr;
randomize;
z:=nil;

{priradovanie prvkov}
for i:=1 to 3 do begin {namiesto 3 si zadas kolko chces prvkov}
    new(p);
    p^.obsah:=random(20);
    p^.dalsi:=z;
    z:=p;
end;

p:=z; {nastavenie zoznamu na zaciatok}

while (p<>nil) do begin {vypis zoznamu}
      write(p^.obsah,',');
      p:=p^.dalsi;
end;

readln;
end.

dagmarra

strasne mooooc ti dakujem