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

[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]

В общем, переделать чуть-чуть у меня не вышло, к сожалению.
Переделал дофига (то есть как бы делал я).

Вышло так:

{$APPTYPE CONSOLE}
var
  str : string;

{Подсчет значения выражения с помощью рекурсии}
{s - строка с выражением}
function Value(S: string): longint;
var
  i: integer;

  Function Res(prior: integer):longint;
  var
    sign: boolean;
    tmp_prior: integer;
    r: integer; // сюда будем писать результат

    function GetNumber: boolean;   // возвращает, получилось ли взять число
    var
      start_i: integer;
    begin
      start_i := i;
      result := false;
      r := 0;
      sign := false;
      if i <= Length(s) then case s[i] of
        '-' : begin
          // минус перед числом
          sign := true;
          inc(i);
        end;
        '+' : begin
          // плюс перед числом
          sign := false;
          inc(i);
        end;
      end;
      while (i <= Length(s)) and (s[i] in ['0' .. '9']) do begin
      // собираем число по цифрам
        r := r * 10 + (ord(s[i]) - ord('0'));
        result := true;
        inc(i);
      end;
      if sign then r:= -r;
      if not result then i := start_i; // если не удалось взять число, возвращаем указатель на место
    end;


  Begin
    {Перевод в число целого типа}
    if GetNumber then
      // взяли число, значит r стал какой надо, значит, всё в порядке
    else if s[i] = '(' then begin
      // рекурсивно разобрать то, что внутри скобки
      inc(i);
      r := Res(0);
      if s[i] = ')' then inc(i); // а если нет, то это ошибка выражения
    end;

    tmp_prior := 0;
    while (i <= Length(s)) do begin

      case S[i] of
        // определить приоритет текущей операции
        '+': tmp_prior := 1;
        '-': tmp_prior := 1;
        '*': tmp_prior := 2;
        '/': tmp_prior := 2;
        else break;
      end;

      if tmp_prior < prior then break;
      // тут и учитываетя приоритет операций!
      // если приоритет новой операции ниже текущего, то надо выйти из рекурсии
      // на уровень выше - пусть новую операцию обрабатывают на том уровне

      case S[i] of
        '+': begin
          inc(i);
          r := r + Res(tmp_prior);
        end;
        '-': begin
          inc(i);
          r := r - Res(tmp_prior);
        end;
        '*': begin
          inc(i);
          r := r * Res(tmp_prior);
        end;
        '/': begin
          inc(i);
          r := r div Res(tmp_prior);
        end;
        else break;
      end;
    end;
    result := r;
  End;

begin
  i := 1;
  Result := Res(0);
end;

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

А общая теория тут: http://algolist.manual.ru/syntax/parsear.php