Kashub's Code Barn - "stosmaker"

podświetlone jako plsql (dodał(a) jakall @ 2008-12-16 02:06:32)

Twoja wyszukiwarka
T-Mobile
Podświetl ten kod w:
Ostatnio dodane:
Losowe wpisy:
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.
 
| Sklep z artykułami dla dzieci | | Wózki dla dzieci | | Opony letnie | | Opony specjalne | | Sklep z artykułami RTV/AGD | | Programista Trójmiasto | | Gdzie przenieść blog za darmo? | | Kody programów | | Opisy na Facebooka |