Kashub's Code Barn - "stosmaker"

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

Twoja wyszukiwarka
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 oponami | | Opony letnie | | Opony zimowe | | Sklep z artykułami RTV/AGD | | Dyskretny sexshop internetowy | | karma dla psa - sklep | | Skróć link | | Jak przenieść bloga | | Wklejacz kodów | | Opisy GG |