|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Программа игнорирует строки кода
Создал процедуру, а она неправильно пашет (классическая ситуация), лезу в дебаг и узнаю, что в результате первого прохода цикла
Код:
for l1:=1 to a3[0,0] do Закоментировал всё, оставил только цикл Код:
for l1:=1 to 12 do Удивился, ведь на каждом проходе цикла значение оставалось неизменным 4780080. Поменял обьявление из integer на byte. Теперь мой l1 равнялся 243. Не меняя значения в цикле. Поиском искал другие переменные с тами названием в программе. Не нашел. Груповой заменой поменял на q1, коих в моей проге не было никогда. Результат тот же. Закоментировал весь код процедуры, оставил только Код:
q1:=1; Код всей процедуры целиком прилагается: Код:
function zapusk_procy(f: array of integer):boolean; var q1, q2, q3: byte; g: array [0..100] of integer; begin q1:=1; q2:=2; q3:=3; q3:=4; g[0]:=0; for q1:=1 to a3[0,0] do if f[q1]>0 then begin g[0]:=g[0]+1; g[g[0]]:=f[q1]; end; zapusk_procy:=true; end; Все другие процедуры выполняются адекватно. Сейчас сяду писать новую процедуру, в надежде, что она будет выполтся. Хотел бы узнать Ваше мнение об этой проблеме. |