Turbo Pascal - вычислить значение выражения в постфиксной форме

[doktor_zlo]

В символьной строке записано выражение из цифр и
операций в постфиксной форме (знак операции после операндов).
Проверить правильность записи и найти значение выражения.
Пример: выражение (2+3)*4-5*6 записывается в постфиксной
форме как 2 3+4*5 6*- (7).

Очень нужно!! Помогите кто чем может....

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Serge_Bliznykov]

1) абсолютно непонятно, что означает (7) семь в скобках.

2) вот, готовая программа.
Проверку на правильность добавите самостоятельно.

const
  MAXStack = 100;

var
  Stack:array[1..MAXStack] of Double;
  TopofStack:integer; {points to top of stask}


{ помещение объекта в стек }
procedure Push(i:Double);
begin
  if TopofStack>=MAXStack then WriteLn('Stask full')
  else
  begin
    stack[TopofStack]:=i;
    TopofStack:=TopofStack+1;
  end;
end; { конец  процедуры  помещения объекта в стек}

{ выборка объекта из стека }
function Pop:Double;
begin
  TopofStack:=TopofStack-1;
  if TopofStack<1 then
  begin
    WriteLn('Stack underflow');
    TopofStack:=TopofStack+1;
    Pop:=0;
  end
  else Pop := stack[TopofStack];
end; { конец функции выборки объекта из стека }

function Calculate(s : string) : Double;
var
  i,i0, k : integer;
  s0 : string;
  v0 : LongInt;
  d0 : double;
begin
  i:=1;
  while i<=Length(s) do begin
    i0 :=0;
    while ((i+i0)<=Length(s)) and (s[i+i0] in ['0'..'9']) do inc(i0);
    if i0>0 then {нашли число в строке. поместим его в стек} begin
      s0 := Copy(s,i,i0);
      val(s0, v0, k);
      Push(v0);
      inc(i, i0);
    end
    else begin
      case s[i] of
       ' ' : begin end;
       '+' : begin Push( Pop + Pop ); end;
       '-' : begin Push( - Pop + Pop ); end;
       '*' : begin Push( Pop * Pop ); end;
       '/' : begin d0 := Pop;
                if d0<>0
                  then Push( Pop / d0 )
                  else Push(999999999) end;
      end;
      inc(i);
    end;
  end;
  Calculate := Pop;
end;

var sInput : string;
begin
  sInput := '2 3+ 4*5 6*-';

  TopofStack := 1; {проиницилизируем стек}
  WriteLn('Результат выражения " '+sInput+' " равен ',
     Calculate(sInput):1:6);
  Readln;
end.

[doktor_zlo]

спасибо за замечание. на будущее учту.
да (7) это лишнее... оно ничего не обозначает..
большое спасибо за помощь!!

[doktor_zlo]

а можешь еще организовать ввод с клавиатуры выражения.. заранее благодарен

[Serge_Bliznykov]

Еще вопрос. По заданию ввод выражения с клавиатуры. и где хранится результат всех вычислений?

мда... Вы не можете сами сделать так, чтобы переменная вводилась с клавиатуры? Это сложно?!!
ладно. вот так:

var sInput : string;
    ResultatVyshislenyi : double;
begin
  TopofStack := 1; {проиницилизируем стек}

  WriteLn('Введите строку с выражением в постфиксной форме:');
  Readln(sInput);


  {вычислить выражение, введённое в строку sInput
       и результат сохранить в переменную  ResultatVyshislenyi}
  ResultatVyshislenyi := Calculate(sInput);

  {вывести результат на экран}
  WriteLn('Результат выражения " '+sInput+' " равен ',
              ResultatVyshislenyi:1:6);
  Readln;
end.