компилятор проскакивает строчку

[fredwriter]

Компилятор при пошаговом исполнении компилятор проскакивает строчку в коде
Вот код: проскакиваемую строчку выделил жирным

program Polska_Zapic1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  Polka = ^TPolka;
  TPolka = record
    Zapic_elem: Char;
    Next_elem: Polka;
  end;
var
  i, a: integer;
  Head_elem, Dest_elem: Polka;
  Sign_elem: Polka;
  Arithm_exp: string;
  Lex, Sign: char;
  Pr, Pr1: Byte;
  Head: Polka;


Procedure Prioritet(Lex_p: char; var Pr_p:Byte);
begin
  If (Lex_p = '+') or (Lex_p = '-') then
    Pr_p := 1;
  if (Lex_p = '*') or (Lex_p = '/') then
    Pr_p := 2;
end;

begin
  Writeln('               WRITE ARITHMETIC EXPRESSION ');
  Writeln('------------------------------------------------------');
  Readln(Arithm_exp);
  head := nil;
  Head_elem := nil;
  Sign_elem := nil;
  Sign_elem^.Zapic_elem := '#';
  a :=  length(Arithm_exp);
  for i := 1 to a do
  begin
    Lex := Arithm_exp[i];
    if (lex = '+') or (lex = '-') or (lex = '*') or (lex = '/') then
    begin
      Prioritet(Lex, Pr);
      Prioritet(Sign_elem^.Zapic_elem, Pr1);
      while (Sign_elem <> nil) and (Pr >= Pr1) do
      begin
        Sign := Sign_elem^.Zapic_elem;
        new(Dest_elem);
        Dest_elem^.Zapic_elem := Sign_elem^.Zapic_elem;
        Dest_elem^.Next_elem := Head_elem;
        Head_elem := Dest_elem;
        Sign_elem := Sign_elem^.Next_elem;
      end;
      New(Sign_elem);
      Sign_elem^.Zapic_elem := Lex;
      Sign_elem^.Next_elem := head;
      Head := Sign_elem;
    end
    else
    begin
      case lex of
      '0'..'9':
      begin
        New(Dest_elem);
        Dest_elem^.Zapic_elem := Lex;
        Dest_elem^.Next_elem := Head_elem;
        Head_elem := Dest_elem;
      end;
    end;
  end;
  while Sign_elem <> nil do
  begin
    Sign := Sign_elem^.Zapic_elem;
    new(Dest_elem);
    Dest_elem^.Zapic_elem := Sign_elem^.Zapic_elem;
    Dest_elem^.Next_elem := Head_elem;
    Head_elem := Dest_elem;
    Sign_elem := Sign_elem^.Next_elem;
  end;
end;
end.

Не понятки. Подскажите, что за чудо.

[russian-stalker]

Оптимизация.
Переменная 'a' дальше не используется, так зачем компилятору тратить драгоценное процессорное время на бесполезные вещи?

[fredwriter]

У меня цикл с параметром до а, вообще сначала цикл у меня выглядел так:
for i := 1 to length(Arithm_exp) do, но тогда этот цикл не делал ни одного шага, хотя строку я вводил на 9 символов. Непонятки

[Stilet]

Окружи код директивами {$o-}...{$o+} чтоб отключить оптимизацию. Иногда помогает

[fredwriter]

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

Окружи код директивами {$o-}...{$o+} чтоб отключить оптимизацию. Иногда помогает

Не помогло

[Grag]

У тебя какая-то проблема вот с этим куском кода

{
  head := nil;
  Head_elem := nil;
  Sign_elem := nil;
  Sign_elem^.Zapic_elem := '#';}

Если его забить комментом, то вычисляется и пер. а и цикл начинает работать... Хотя а тут совсем не нужна...

[fredwriter]

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

У тебя какая-то проблема вот с этим куском кода

{
  head := nil;
  Head_elem := nil;
  Sign_elem := nil;
  Sign_elem^.Zapic_elem := '#';}

Если его забить комментом, то вычисляется и пер. а и цикл начинает работать... Хотя а тут совсем не нужна...

Я это тоже подозревал, но не понятно, какая же проблема, возможно, что я не выделив память под Sign_elem пытаюсь присвоить его полю значение?

[Serge_Bliznykov]

1)
самый простой способ бороться с оптимизацией - это выводить переменную куда нибудь (в файл, на экран или куда угодно)
например:
a := length(Arithm_exp);
WriteLn('a=',a);

2) проблема у Вас тут:
Sign_elem := nil;
Sign_elem^.Zapic_elem := '#';
Это куда это вы присваиваете?! В NIL ?! Так сразу Access и получаете...

[fredwriter]

Спасибо за помощь