Создание калькулятора.

[Sergey_32]

Здравствуйте! Я начинающий программист.Решил попробовать сделать калькулятор и столкнулся с проблемой определения порядка вычислительных операций.Моя программа работает так :записываешь выражение например 1+3-2-5= и она тебе выдаёт ответ.Подскажите идею ,как можно определять порядок вычислительных операций.

var
  i: integer;//счётчик знака строки.
  b, z: real;
  s: string;
  znak: char;

begin
  i := 1;
  read(s);
  while (s[i] <> '=') and (s[i] <> '+')  and (s[i] <> '-') do //Определяю первое число.
  begin
    case s[i] of 
      '1': b := b * 10 + 1;
      '2': b := b * 10 + 2;
      '3': b := b * 10 + 3;
      '4': b := b * 10 + 4;
      '5': b := b * 10 + 5;
      '6': b := b * 10 + 6;
      '7': b := b * 10 + 7;
      '8': b := b * 10 + 8;
      '9': b := b * 10 + 9;
      '0': b := b * 10;
    end;
    i := i + 1;
  end;
  z := b;
  znak := s[i];// определяю знак.
  i := i + 1;
  
  while (s[i] <> '=')  do //Произвожу математическую операцию,пока не распознается знак равно.
  begin
    b := 0;// обнуляю значение переменной.
    while(s [i] <> '+') and (s[i] <> '=')  and (s[i] <> '-') do
    begin
      case s[i] of
        '1': b := b * 10 + 1;
        '2': b := b * 10 + 2;
        '3': b := b * 10 + 3;
        '4': b := b * 10 + 4;
        '5': b := b * 10 + 5;
        '6': b := b * 10 + 6;
        '7': b := b * 10 + 7;
        '8': b := b * 10 + 8;
        '9': b := b * 10 + 9;
        '0': b := b * 10;
      end;
      i := i + 1;
    end;
    
    case znak of 
      '+': z := z + b; 
      '-': z := z - b; 
    end;
    if s[i] <> '=' then begin
      znak := s[i];
      i := i + 1;
    end;
  end;
  
  write(z);
end.

[type_Oleg]

Сообщение от Sergey_32

..Подскажите идею ,как можно определять порядок вычислительных операций...

То что вам нужно, называется парсер формул или математический парсер.
Задача непростая для начинающего, и не только начинающего. Обычно решается через рекурсию.
В интернете можно найти готовые решения. Я когда-то находил исходники на Паскале для этого.
Но там крутые парсеры. Они могут расшифровать что-нибудь типа exp(sin(x+1/ln(x+3)))*2+1/(x+1)