Ĺadny brzuch
Na dole podałem procedure usuwająca element z kolejki odziwo jak robie w pentli while to usuwa wszystkie elementy ale jak zrobie to if-em tak jak teraz to nie działa (mam tylko jeden element typu kolejka czyli robiłem tylko raz new(nowy))
procedure usun(glowa,nowy:kolejka); begin {usuwanie elementow} if (glowa<>nil) then begin nowy:=glowa; glowa:=glowa^.nast; writeln('Usuwam z kolejki'); writeln(nowy^.wart); end; end;
(...)
stary jesteś wielki , nie wiesz ile czasu nad tym siedziałem a tylko wystarczyło napisać var pozdrawiam i dziekuje.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure usun(glowa,nowy:kolejka); begin {usuwanie elementow} if (glowa<>nil) then begin nowy:=glowa; glowa:=glowa^.nast; writeln('Usuwam z kolejki'); writeln(nowy^.wart); end; end;
(...)

stary jesteś wielki , nie wiesz ile czasu nad tym siedziałem a tylko wystarczyło napisać var pozdrawiam i dziekuje.