Учет старшинства операций в калькуляторе

[LukeSkywalker]

Здравствуйте, я пишу курсовую роботу в Delphi, а именно калькулятор. Никак не могу решить проблему: калькулятор считает без учета старшинства операций, т.е. выражения типа "2+2*2" он считает как "8". Помогите пожалуйста, как сделать учет старшинства операций? Если нужно, могу выложить файлы проекта.

[Valio]

Найти эти приоритетные знаки и произвести обработку дву соседних цифр. Заменить эти 3 знака (2 числа и оператор) полученым ответом. Проиводить такие манипуляции до тех пор, пока они не закончатся.

[tralala]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i:integer;
  proizv,result,number:real;
  zn1,zn2:char;
begin
  number:=0;
  result:=0;
  zn1:='+';
  zn2:=' ';
  s:= Edit1.Text;
  for i:=1 to Length(s) do begin
    case s[i] of
      '0'..'9':
        number:= number * 10 + Ord(s[i]) - ord('0');

      '+': begin
          if zn2 = '*' then
          begin
            proizv:= proizv * number;
            zn2:=' ';
            if zn1 = '+' then result:= result + proizv
            {only '+'}   else result:= result - proizv;
          end
          else
          if zn2 = '/' then
          begin
            proizv:= proizv / number;
            zn2:=' ';
            if zn1 = '+' then result:= result + proizv
                         else result:= result - proizv;
          end
          else
          begin
            if zn1 = '+' then result:= result + number
                         else result:= result - number;
          end;
        zn1:= '+';
        number:= 0;
      end;

      '-': begin
          if zn2 = '*' then
          begin
            proizv:= proizv * number;
            zn2:=' ';
            if zn1 = '+' then result:= result + proizv
            {only '+'}   else result:= result - proizv;
          end else if zn2 = '/' then
          begin
            proizv:= proizv / number;
            zn2:=' ';
            if zn1 = '+' then result:= result + proizv
                         else result:= result - proizv;
          end
          else
          begin
            if zn1 = '+' then result:= result + number
                         else result:= result - number;
          end;
        zn1:= '-';
        number:= 0;
      end;

      '*': begin
        if zn2 = ' ' then
        begin
          proizv:= number;
        end
        else
        begin
          if zn2 = '*' then
            proizv:= proizv * number
          else {zn2 = '/'}
            proizv:= proizv / number;
        end;
        zn2:= '*';
        number:= 0;
      end;

      '/': begin
        if zn2 = ' ' then
        begin
          proizv:= number;
        end else
        begin
          if zn2 = '*' then
            proizv:= proizv * number
          else {zn2 = '/'}
            proizv:= proizv / number;
        end;
        zn2:= '/';
        number:= 0;
      end;

    end;
  end;
  // досчитать все
  if zn2 = '*' then
  begin
    proizv:= proizv * number;
    zn2:=' ';
    if zn1 = '-' then result:= result - proizv
    {'+' or ' '} else result:= result + proizv;
  end
  else
  if zn2 = '/' then
    begin
    proizv:= proizv / number;
    zn2:=' ';
    if zn1 = '-' then result:= result - proizv
                 else result:= result + proizv;
    end
  else
  begin
    if zn1 = '-' then result:= result - number
                 else result:= result + number;
  end;

  Edit2.Text:= floattostr(result);

end;

end.

[LukeSkywalker]

Спасибо, буду пробовать!

[Utkin]

"2+2*2"

Перед Вами операция сложения А+B, где А=2, В=2*2. Прежде чем выполнить сложение (или вычитание) Вам нужно вычислить А и вычислить В. Для этого можно использовать ту же самую функцию что и для поиска А+В. То есть сюда просится рекурсия. Второй вариант использовать стек и перестроить выражение так, чтобы операции всегда выполнялись в нужной последовательности.