SHARE
TWEET

Untitled

a guest Jan 28th, 2020 86 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program slawek2;
  2. {$APPTYPE CONSOLE}
  3. uses SysUtils;
  4.  
  5. TYPE  PElem = ^TElem;
  6.       TElem = RECORD
  7.                 autor : string;
  8.                 tytul : string;
  9.                 wsk :PElem;
  10.               END;
  11. VAR  wierzcholek,wierzcholek1:PElem;
  12.      W,n,k:integer;
  13.      temp,q:PElem;
  14.  
  15.  
  16. procedure WypiszStos;
  17. var wierzcholekP,temp:PElem;
  18. begin
  19.      wierzcholekP:=wierzcholek;
  20.      WHILE wierzcholekP<>NIL DO
  21.        begin
  22.           temp:=wierzcholekP^.wsk;
  23.           writeln('autor: ',wierzcholekP^.autor,' tytul: ',wierzcholekP^.tytul);
  24.           wierzcholekP:=temp;
  25.        end;
  26.  
  27. end;
  28.  
  29. Begin
  30.    write('podaj ilosc ksiazek');
  31.    readln(n);
  32.      wierzcholek:=NIL;
  33.      k:=0;
  34.      WHILE k<n DO
  35.        begin
  36.           NEW(q);
  37.           q^.wsk:=wierzcholek;
  38.           wierzcholek:=q;
  39.           k:=k+1;
  40.           writeln('podaj autora');
  41.       readln(wierzcholek^.autor);
  42.       writeln('podaj tytul');
  43.       readln(wierzcholek^.tytul);
  44.         end;
  45.      wierzcholek1:=wierzcholek;
  46.      writeln('Utworzono stos:');
  47.      WypiszStos;
  48. End.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top