рекурсия

[shelest]

Проверка формулы.

В строке записана формула вида:
<формула>:=<цифра>/<буква>/<знак>(<формула>)
<знак>::= +/-/*
<цифра>::= 0/1/2/3/4/5/6/7/8/9
<буква>::= a..z
Проверить правельность формулы
2-формула
a-формула
+(2)-формула
+(-(b))-формула ...

Type TL=(znak,tsifra,sko,skz,bukv);
 var s,a:string;
 i:integer;
 function chit:TL;
  begin
    If s[i]='(' then
    result:=sko;
    If s[i]=')' then
    result:=skz;
    If (s[i]='+')or(s[i]='-')or(s[i]='*') then
    result:=znak;
    If s[i] in ['0'..'9'] then
     result:=tsifra;
     If (s[i] in ['A'..'Z'])or(s[i] in ['a'..'z']) then
     result:=bukv;
     i:=i+1;

  end;
  procedure formula;
   var m:TL;
   begin
    m:=chit();
    If m=tsifra then
      a:='верно'
     else
      begin
      If m=bukv then
      a:='верно'
      else
       begin
         If m=znak then
          begin
            If chit()=sko then
             begin
               formula ;
                If chit()=skz then
                 a:='Верно'
                 else
             a:='неверно';
               end
               else
          a:='неверно';
          end
          else
          a:='неверно';
       end
    end;
   end;
procedure TForm2.Button1Click(Sender: TObject);
begin
 i:=1;
 s:=edit1.Text;
  formula;
  label1.Caption:='Результат: '+#13+a;
end;

end.

Программа работает верно, но если после правельно записанной формулы писать все что угодно то все равно выводит верный ответ. Помогите плиз доработать прогу.

[[CODER]]

структура программы должна быть примерно такой

if(условие) begin
 ...операции
  else  if(условие)  begin
    ...операции
    else if(условие) begin
        ...операции
           else begin
              ...операции
           end;
    end;
   end;
end;

[UnderwooD]

Совсем недавно написал свой собственный парсер подобных выражений.
Ссылка на исходник здесь: http://depositfiles.com/files/a1kdjzce9

Будут вопросы - пиши.

[shelest]

тема всё еще актуальна