Kashub's Code Barn - "stosmaker"

program stos_make;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type stos=^pole;
 
  pole=record
       dane:integer;
       nast:stos;
       end;
  var
  sp:stos;
  a:integer;
 
  procedure push(liczba:integer;var adres:stos);
  var pom:stos;
  begin
  new(pom);
  pom^.nast:=adres;
  pom^.dane:=liczba;
  adres:=pom;
  end;
 
  procedure pop(var liczba:integer;var adres:stos);
  var pom:stos;
  begin
  liczba:=adres^.dane;
  pom:=adres;
  adres:=adres^.nast;
  dispose(pom);
  end;
 
begin
repeat
writeln ('podaj liczbe 0 konczy');
readln (a);
push (a,sp);
until a=0;
 
repeat
pop (a,sp);
writeln ('liczba',a);
until sp=nil;
 
readln;
 
end.
 

| Katalog Sklepów internetowych | | Foteliki samochodowe | | Wózki dla dzieci | | Opony całoroczne | | Opony letnie | | Darmowe Blogi | | Jak przenieść bloga | | Kody programów | | Smutne Opisy | | Pionowe opisy |