Задание 11 урок 18

var
  S :string;

function calc(s: string): integer;
var
  temp1, temp2, temp3, znak: string;
  flagNextMultTwoMember, flagNextMultMultipleMember: boolean;
  intChislo, intChislo1, intChislo2, intChislo3, Code, sum, multTemp, i: integer;
begin
  sum := 0;           // общая сумма
  multTemp := 0;       // временное произведение (для слагаемых типа ...a*b*c*...)

  // если только слагаемые то используем temp1 (каждое слагаемое помещаем в temp1 и увеличиваем общую сумму  sum += temp1)
  // если слагаемые состоят максимум из 2х множителей то temp1 и temp2
  // если слагаемое состоит из более чем 2х множителей (...a*b*c*d...) то используем 3 temp переменных:
  // предыдущие множители (a*b*c*...) на каждой итерации становятся multTemp, и умножаются на temp3
  // 1) multTemp = temp1 * temp2
  // 2) multTemp *= temp3
  // 3) goto 2)

  temp1 := '';        //
  temp2 := '';        //
  temp3 := '';        //
  flagNextMultTwoMember := true;           // флаг для перехода в случае 2х множителей в слагаемом
  flagNextMultMultipleMember := true;      // флаг для перехода в случае более 2х множителей в слагаемом
  znak := '';         // знак перед слагаемым
  i := 1;             //

  while (i < (length(s)+1)) do   // итерируем по выражению
  begin
    if (i > 1) then  // проверяем знак перед слагаемым
    begin
      if (s[i-1]='-')or(s[i-1]='+') then // и есть ли он вообще
      begin
        znak := s[i-1];
      end;
    end;

    if (flagNextMultTwoMember) then
    begin
      temp1 := temp1 + s[i];         //заполняем 1 временное число
      Val(s[i+1], intChislo, Code);  // смотрим на следующий символ
      if (Code = 0) then  // если это цифра то добавляем в temp1 и переходим к следующему символу
      begin
        i := i + 1;
        continue;
      end
      else
      begin
        if (s[i+1] <> '*') then  // если это + или - (множитель ..a*b*c*... закончился)
        begin
          Val(znak + temp1, intChislo1, Code);
          sum := sum + intChislo1; // увеличиваем общую сумму на накопленное число temp1 учитывая знак перед ним
        end
        else                    // если это умножение то идем дальше
        begin
          flagNextMultTwoMember := false;       // переходим ко второму временному множителю  \/
          i := i + 2;                                                //       \/
          continue;                                                  //       \/
        end                                                          //       \/
      end                                                            //       \/
    end                                                              //       \/
    else                                                             //       \/
    begin                       // переходим ко второму временному множителю
      if (flagNextMultMultipleMember) then
      begin
        temp2 := temp2 + s[i];      //заполняем 2 временное число
        Val(s[i+1], intChislo, Code);
        if (Code = 0) then  // если число то добавляем в temp2 и переходим к следующему символу
        begin
          i := i + 1;
          continue;
        end
        else
        begin
          if (s[i+1] <> '*') then             // если это + или - (множитель a*b закончился)
          begin
            Val(znak + temp1, intChislo1, Code);
            Val(temp2, intChislo2, Code);
            sum := sum + intChislo1 * intChislo2;  // увеличиваем общую сумму на произведение 2х предыдущих множителей
          end
          else              // если это * (множитель ..a*b... НЕ закончился и состоит из более 2-х множителей)
          begin
            Val(znak + temp1, intChislo1, Code);
            Val(temp2, intChislo2, Code);
            multTemp := intChislo1*intChislo2;        // делаем временное произведение предыдущих множителей
            flagNextMultMultipleMember := false;               // переходим ко третьему временному множителю     \/
            i := i + 2;                                                            //       \/
            continue;                                                              //       \/
          end                                                                      //       \/
        end                                                                        //       \/
      end                                                                          //       \/
      else                               // переходим ко третьему временному множителю
      begin
        temp3 := temp3 + s[i];           //заполняем 3 временное число
        Val(s[i+1], intChislo, Code);
        if (Code = 0) then  // если число то добавляем в temp3 и переходим к следующему символу
        begin
          i := i + 1;
          continue;
        end
        else
        begin
          if (s[i+1] = '*') then   // если это * (множитель ..a*b*c*... НЕ закончился)
          begin
            Val(temp3, intChislo3, Code);
            multTemp := multTemp * intChislo3;    // увеличиваем временную накопительную переменную (произведение)
            temp3 := '';
            i := i + 2;
            continue;
          end
          else                             // если это + или - (множитель ..a*b*c*... закончился)
          begin
            Val(temp3, intChislo3, Code);
            Val(znak+temp1, intChislo1, Code);
            multTemp := multTemp * intChislo3;    // увеличиваем временную накопительную переменную (произведение)
            sum := sum + multTemp;  // увеличиваем общую сумму на произведение текущего числа и временной накопительной переменной
          end

        end
      end
    end;

    temp1 := '';       // сброс  (например, множитель ..a*b*c*d... закончился)
    temp2 := '';
    temp3 := '';
    flagNextMultTwoMember := true;
    flagNextMultMultipleMember := true;
    znak := '';
    i := i + 2;
  end;
  result := sum;
end;



begin
    S := '5*6+7-3*2*3+11';
    //writeln('vvedite virajenie');
    //readln(S);
    writeln(S, ' = ', calc(S));
    //readln();
end.