uses crt, stack;

var
  ch: telem;
  st: tstack;


begin
  stackinit(st);

  repeat

    ch := readkey;
    write(ch);
    stackpush(st, ch);

  until ch = '.';
  writeln;

  stackpop(st); { <--- Это - если НЕ надо печатать саму точку }
  while not stackempty(st) do begin
    write(stackpop(st));
  end;
  writeln;readln;
end.

Uses Modulname;

Цитата(Tan @ 13.04.2007 17:24)

Uses Modulname;

Unit STACK;
INTERFACE
Type
 TElem = integer; 
 TStack = ^TElement; 
 TElement = record
             info:TElem;
             Next:TStack
            end;
 
 Procedure StackInit(var s:TStack);
 Function StackEmpty(S:TStack):Boolean;
 
 Procedure StackPush(var S:TStack; E:TElem);

 Function StackPop(var S:TStack):TElem;
 {--------------------------------------}

IMPLEMENTATION
 Procedure StackInit(var s:TStack);
 begin
  s:=nil
 end;
 Function StackEmpty(S:TStack):Boolean;
 begin
  StackEmpty:=(S=NIL);
 end;
 Procedure StackPush(var S:TStack; E:TElem);
 var
  z:TStack;
 begin
  new(z);
  z^.next:=s;
  Z^.INFO:=E;
  s:=z;
 end;
 Function StackPop(var S:TStack):TElem;
 const errorcode=255;
 var z:TStack;
 begin
  If StackEmpty(S) then
  begin

   Halt(errorcode);
  end else
  begin
   z:=s;
   s:=s^.next;
   stackPop:=z^.info;
   dispose(z)
  end
 end;
end.

uses crt, stack;

var
  ch: telem;
  st: tstack;


begin
  stackinit(st);

  repeat

    ch := readkey;
    write(ch);
    stackpush(st, ch);

  until ch = '.';
  writeln;

  stackpop(st);   while not stackempty(st) do begin
    write(stackpop(st));
  end;
  writeln;readln;
end.