Guest User

Untitled

a guest
Jan 28th, 2020
89
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