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

[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+3, однако результат получил 0.

В смысле, у тебя?
(я у себя проверил - у меня выдаёт -117, но вот на пробелы он реагировать не умеет, значит, надо вставить код, пропускающий пробелы. Только не вздумай писать код, УДАЛЯЮЩИЙ пробелы!!! Их надо именно пропускать, а не удалять.)

> Вопрос: как это исправить?

Долго сидеть с отладчиком, и понять, где не разбирается какой-то левый случай, точнее сказать не могу.
При написании разборщика выражений всё ошибки именно такого мерзского характера - в какой-то ситуации надо сдвигать индекс, а в какой-то не надо, а в какой-то надо, но не так. Что-то общее сказать сложно. Из-за этого попытки написать надёжный разборщик превращаются в монструозный код с кучей проверок на каждом шагу.

Сообщение отредактировано: TarasBer - 8.04.2011 21:20