Из турбо паскаля в С++ перевести код - стек - C++ - Ответ 1550547

program StackSample;
type
  FileType= File of Char;
var
  Source: FileType;
function formula( var t: FileType ): integer;
type
  TypeOfElem= Char;
  Assoc= ^ElementOfStack;
  ElementOfStack= record
    Elem: TypeOfElem;
    NextElem: Pointer
  end;
  Stack= Assoc;
var
  S: Stack;
  c, op, x, y: char;
procedure CreateStack ( var StackHead: Stack);
begin
  StackHead:= nil
end;
function StackIsClear( var StackHead: Stack ): Boolean;
begin
  StackIsClear:= ( StackHead= nil )
end;
procedure IncludeInStack( var StackHead: Stack; NewElem: TypeOfElem );
var
  ServiceVar: Stack;
begin
  {создание нового элемента}
  new( ServiceVar );
  ServiceVar^.Elem:= NewElem;
  {созданный элемент сделать вершиной стека}
  ServiceVar^.NextElem:= StackHead;
  StackHead:= ServiceVar
end;
procedure SelectFromStack( var StackHead: Stack; var Result: TypeOfElem );
var
  ServiceVar: Assoc;
begin
  if StackHead <> nil then begin
    {выбор элемента из вершины}
    Result:= StackHead^.Elem;
    {запоминание ссылки на старую вершину}
    ServiceVar:= StackHead;
    {исключение из стека и уничтожение элемента}
    StackHead:= StackHead^.NextElem;
    dispose( ServiceVar )
  end
end;
begin
  reset( t );
  CreateStack( S );
  while not eof( t ) do begin
    read(t, c);
    {обработка очередной литеры текста (литеры ╚(╩ и ╚,╩ игнорируются)}
    if c in ['0'..'9','M','m'] then IncludeInStack( S, c)
      else
        if c= ')' then begin    {конец формулы вида p(x, y)}
        {в конце стека находится тройка op x y, она удаляется
из стека, выполняется операция op и результат
         записывается в стек}
          SelectFromStack( S, y );
          SelectFromStack( S, x );
          SelectFromStack( S, op );
          case op of
            'M'{max}: if x > y then c:= x else c:= y;
            'm'{min}: if x < y then c:= x else c:= y
          end;
          IncludeInStack( S, c )
        end
  end; {of while}
  {в стеке осталась одна цифра √ значение всей формулы; цифра переводится в целое число}
  SelectFromStack( S, c );
  formula:= ord( c ) - ord( '0' )
end;
begin
  assign( Source, 'c:tempsource.txt' );
  writeln( Formula( Source ) );
end.