Цикл FOR в PascalABC.NET

[Bizunov]

Всем привет. Так уж получилось, что я начал писать интерпретатор бейсико-подобного языка на PascalABC. Потом я захотел скомпилировать исходник, но такой функции не обнаружил. Погуглив, понял, что компилировать может только версия для Нет платфромы. Скачал, открыл исходник, запускаю и первая же ошибка - "iBasic.pas(51) : Нельзя изменять значение переменной цикла внутри этого цикла". Собственно, это и вся проблема. Не изменяя значение переменной в цикле, у меня будет некорректно работать процедуры для вычисления значения мат. выражения, на которые я потратил большую часть времени. Поможете?

Вот код, может что подскажете )

{-----===== Вычисление значения выражения =====-----}
//Разбиение строки
procedure ParseMath(Str: string);
var
  Ind: integer;
  Buf: string;
  i: integer;
begin
  Str := Str+'.';
  Ind := 0;
  Buf := '';

  for i := 1 to Length(Str) do
  begin
    if (IsDigits(Str[i])) then
      Buf := Buf+Str[i]
    else begin
      Math[Ind] := Buf; Inc(Ind);
      Math[Ind] := Str[i]; Inc(Ind);
      Buf := '';
    end;
  end;
end;
//Вычисление
procedure ComputeMath;
var
  l: integer;
  i: integer;
  j: integer;
  LVal: integer;
  RVal: integer;
begin
  for l := 0 to 1 do
  begin
    for i := 1 to MthBuff-1 do
    begin
      if (((Math[i] = '*') or (Math[i] = '/')) and (l = 0))
      or (((Math[i] = '+') or (Math[i] = '-')) and (l = 1)) then
      begin
        LVal := StrToInt(Math[i-1]);
        RVal := StrToInt(Math[i+1]);
        if (Math[i] = '*') then Math[i-1] := IntToStr(LVal*RVal);
        if (Math[i] = '/') then Math[i-1] := IntToStr(LVal div RVal);
        if (Math[i] = '+') then Math[i-1] := IntToStr(LVal+RVal);
        if (Math[i] = '-') then Math[i-1] := IntToStr(LVal-RVal);
        for j := i to 30 do Math[j] := Math[j+2];
        i := 0; continue;
      end;
    end;
  end;
end;

[Serge_Bliznykov]

я не знаю, что Вы там за ужас понаписали в коде (не разбирался).
Но формальный ответ на Ваш вопрос - компилятор АБСОЛЮТНО прав. Нельзя менять переменную цикла внутри цикла!

Как выйти из этой ситуации? А ОЧЕНЬ просто! Меняйте цикл FOR на цикл с предусловием (или с постусловием - если так удобнее).

например, вместо:

 for i := 1 to MthBuff-1 do
    begin
      if ...... then
      begin
          ......
        i := 0; continue; 
      end;
    end;

пишем примерно так:

 i := 1; 
 While i<= (MthBuff-1) do
    begin
      if ...... then
      begin
          ......
        i := 1; continue;        // цикл у Вас от единицы, потому не уверен, что присваивать ноль - это логично!!!
      end;
      inc(i);
    end;

[Bizunov]

Этот "Ужас" и есть интерпретатор мат. выражений. Может он и хреновый, зато свой ) В любом случае, в будущем при накоплении опыта, я все поправлю ) Я вообще первокурсник, мы изучали только введение в специальность (((
Благодарю за код, идею понял, попробую реализовать )

[Serge_Bliznykov]

Этот "Ужас" и есть интерпретатор мат. выражений. Может он и хреновый, зато свой )

погодите-ка! я же не говорил, что он хреновый! я сказал, что не разбирался в коде! И ничего более того!
Поэтому прошу не рассматривать мои слова про "ужас" - как хулу на Ваш код!

Благодарю за код, идею понял, попробую реализовать )

не за что! Успехов в разработке!

[Bizunov]

погодите-ка! я же не говорил, что он хреновый! я сказал, что не разбирался в коде! И ничего более того!
Поэтому прошу не рассматривать мои слова про "ужас" - как хулу на Ваш код!

Хорошо ) Но я уже смотрю в сторону обратной польской нотации )

не за что! Успехов в разработке!

Спасибо )

[Bizunov]

Всем еще раз привет )
Сегодня у меня к вам 2 вопроса )
1) Stack: string;
Push - Stack += 'value';
Pop - Val = Stack[Length(Stack)];
Empty - Length(Stack);
Вопрос - быстро ли такой стек работает?
2) Есть ли у вас хороший стек в виде юнита? Мой, который сейчас представляет собой строку работает нормально, но подходит не для всех операций ((( Нашел исходник другого стека, оформил для юнита и узнал, что он багованый (

Короче, нужен стек )

[Stilet]

быстро ли такой стек работает?

Нет. Строка заново пересоздается с дописанным в конце.
Строка для стека не годится.
Хотя если написать

Stack: string[300];

То возможно оптимизатор не будет пересоздавать строку.
Кстати:

Push - Stack += 'value';

Это явно не операция со стеком

[Bizunov]

Блин, медленно - плохо.

Это явно не операция со стеком

Да нет, вы просто не знаете как работает мой стек )

П.С. Я все еще желаю увидеть реализацию не багованного стека )