Программа которая вычисляет польскую инверсную запись на С++ или Паскаль

[Casillas1]

Программа которая вычисляет польскую инверсную запись на С++ или Паскаль

[Serge_Bliznykov]

Вот здесь программа перебора выражений, которая строит выражения в обратной польской записи и вычисляет их.
Процедуру вычисления можно взять из кода.
там же в теме есть и программка на С++

А ещё вот ТУТ посмотрите, что то похожее..


А вообще, вычисления в обратной польской записи - это очень просто.
Эта запись и придумана, чтобы максимально упростить процесс разбора и вычисления!

[Arigato]

У меня есть готовая на Делфи, но вот ваша манера просить отбивает желание выкладывать.

Вот вам подпрограмма, которая производит вычисление:

var
  S, Val: string;
  I, A, B, Res: Integer;
begin
  ReadLn(S);
  Val := '';
  for I := 1 to Length(S) do begin
    case S[I] of
      '0'..'9': Val := Val + S[I];
      ' ': if Val <> '' then begin
             stPop(StrToInt(Val));
             Val := '';
           end; {if}
      '+','-','*':
      begin
        B := stPush;
        A := stPush;
        case S[I] of
          '+': Res := A + B;
          '-': Res := A - B;
          '*': Res := A * B;
        end; {case}
        stPop(Res);
      end; {'+','-','*'}
    end; {case}
  end; {for}
  Res := stPush;
  WriteLn(Res);
end;

Осталось только реализовать подпрограммы для работы со стеком. Проверка на корректность ввода выражения отсутствует, хотя ее не сложно реализовать.

[Casillas1]

Сообщение от Arigato

У меня есть готовая на Делфи, но вот ваша манера просить отбивает желание выкладывать.

Вот вам подпрограмма, которая производит вычисление:

var
  S, Val: string;
  I, A, B, Res: Integer;
begin
  ReadLn(S);
  Val := '';
  for I := 1 to Length(S) do begin
    case S[I] of
      '0'..'9': Val := Val + S[I];
      ' ': if Val <> '' then begin
             stPop(StrToInt(Val));
             Val := '';
           end; {if}
      '+','-','*':
      begin
        B := stPush;
        A := stPush;
        case S[I] of
          '+': Res := A + B;
          '-': Res := A - B;
          '*': Res := A * B;
        end; {case}
        stPop(Res);
      end; {'+','-','*'}
    end; {case}
  end; {for}
  Res := stPush;
  WriteLn(Res);
end;

Осталось только реализовать подпрограммы для работы со стеком.

я не умею!

[Arigato]

Ну тогда забей.

[Casillas1]

Сообщение от Arigato

Ну тогда забей.

спасибо большое