Вычисления выражени, Проблемка... Опции

[Relrin]

Необходима помощь в задаче. Суть ее состоит в следующем: Необходимо с помощью рекурсии вычислить значение выражения, представленного в виде некоторого "константного выражения". То есть, вы вводим некоторую строку, и потом работаем с нем, вычисляя необходимое
Примеры таких выражений: 24; 2*2+2; (634+45); ((7-121)*32)

Мой код получился следующим:

Uses Crt;

Var
  str : string;
  c,op: char;
  x,y : integer;

{Подсчет значения выражения с помощью рекурсии}
{i - индекс соотв. символа}
{s - строка с выражением}
Function Res(i:integer; s:string):integer;
Begin
  c:=s[i];
  {Перевод в число целого типа}
  if (c>='0') and (c<='9') then
    Res:=Ord©-ord('0')
  {Арифметические операции с операндами}
  else
    begin
      x:=Res(i,s);
      inc(i);
      op:=s[i];
      inc(i);
      c:=s[i];
      y:=Res(i,s);
      case op of
        '+': Res:=x+y;
        '-': Res:=x-y;
        '*': Res:=x*y;
      end;
      inc(i);
      c:=s[i];
    end;
End;

{Основная программа}
Begin
  clrscr;
  write('Исходное выражение: ');
  readln(str);
  writeln('Значение выражения: ',Res(1,str));
  readkey;
End.

Сообщение отредактировано: Relrin - 8.04.2011 16:09

[TarasBer]

> В изначальном варианте, у меня не работает варианты:
(7-121)=0
(634+45)*3=0
((7-121)+3)=0
т.е. выражение, где есть скобки, показывает результат 0

Да ты просто походу пробел в начале выражения поставил. Всё в моём варианте прекрасно работает.
Хоть сейчас перепроверь и отладчиком пройдись.
Либо ты сначала сделал с ним что-то не то.

Так вот, если ты его покорёжил, то это не о мне претензии. Потому что я его проверил и отладил.

> Если указать 2(2+2), то конечно 4 будет, т.к. знака между 2 и скобками нету

А вот мой вариант останавливает разбор после первой двойки. И в него намного проще добавить диагностику неверных выражений.