калькулятор

[Тамерлан Абилов]

var s,f,buf:string; m1,m2:byte;         
i,z,k1,k2:integer; sum:real=0;           x1,x2:real;
Begin
readln(s); z:=1;
repeat
m2:=pos(')',s);    m1:=0;
for i:=m2 downto 1 do            \\ находим самую близкую '('   от текущего m2
if s[i]='(' then begin m1:=i;  break; end;
 if m1<>0 then
  f:=copy(s,m1+1,m2-m1-1) else     \\ и тут вычисляем то что в скобках
  f:=s;
   if f[1]='-' then begin  delete(f,1,1); z:=-1;   end; \\проблема с первыми циферками  в моем случае  например.  -15+15
  val(f,x1,k1); sum:=sum+x1*z;                     
   repeat                        \\ процесс суммирование
     val(copy(f,k1+1,length(f)-k1),x2,k2);
      if f[k1]='+' then sum:=sum+x2;
        if f[k1]='-' then  sum:=sum-x2;
        if f[k1]='/' then sum:=sum/x2;
      if f[k1]='*' then  sum:=sum*x2;
      delete(f,1,k1);    k1:=k2;
    until k2=0;
 delete(s,m1,m2-m1+1);    \\удаляем  строку со скобками и вставляем туда готовую сумму.
  if m1<>0 then begin str(sum,buf); insert(buf,s,m1); sum:=0; end;
until m1=0;
 writeln('sum ',sum:0:4);
end.

подскажите этот алгоритм понятливый вообще?училка одобрить или каша?

[VIK_aka_TOR]

а к этой каше училка давала условие?...
p.s. вангую что не одобрит...

[Тамерлан Абилов]

нет просто сказала что приоритет скобки.и сколько захочу столько и ввожу)а так не учитываю тут числа дробные при делении их я не считаю это норм)
да я тоже чувствую так(но как по другому норм может быть не понимаю)

[Poma][a]

А тут случаем не нисходящий рекурсивный анализ?
Тоесть Вы пишите процедурку, железно работающую с числами без скобок..
Далее ищете скобки и прикручиваете к ним эту процедурку..

[Тамерлан Абилов]

понятия не имею что такое нисходящий рекурс анализ к сожалению)
но в каком та смысле да процедура с числами.а потом уже скобки и прикручиваю)