Ошибка с шагом в for

@BaysNoize · Регистрация: 15.04.2013

Author24 — интернет-сервис помощи студентам

Есть код программы, и я не могу понять почему выдаёт ошибку на сколько мне видно ошибки нету веть.

Pascal

program laba4;
uses crt,math;
var a,b,r,x,y_max,y_e_x,y:real;
n,i:integer;
 
begin
write ('Введите х= \\ должно быть кратно 0.25 ) ');
read (x);
r:=2;
for i:=1 to 72 do begin
if ((x>=0) and (x<=2)) then begin
y_max:=2;
y_e_x:=2-x;
writeln ('При х = ', x:2:2 ,',y= ',y_e_x:1:2);
end;
if ((x>=2) and (x<=4)) then begin
y:=(sqrt((sqr(r))-(sqr(x-2)))+2);
y:=y-2;
writeln ('При х = ', x:2:2 ,',y= ',y:1:2);
end;
x:=x+0.25;
i:=i+1;
end;
end.

Ошибку даёт в

Pascal

i:=i+1;

@volvo · 06.02.2014, 16:10

Ни одни нормальный компилятор Паскаля не даст изменять управляющую переменную цикла. Ты пытаешься это делать. Цикл-то по i, не надо ее изменять... Просто убери 22-ю строку

@BaysNoize · 06.02.2014, 16:32 **[ТС]**

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

Ни одни нормальный компилятор Паскаля не даст изменять управляющую переменную цикла. Ты пытаешься это делать. Цикл-то по i, не надо ее изменять... Просто убери 22-ю строку

Спасибо, но я уже понял

Просил модераторов об удалении темы

CLOSE

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	06.02.2014, 16:10	2
	Ни одни нормальный компилятор Паскаля не даст изменять управляющую переменную цикла. Ты пытаешься это делать. Цикл-то по i, не надо ее изменять... Просто убери 22-ю строку 0

@BaysNoize 1 / 1 / 5 Регистрация: 15.04.2013 Сообщений: 54
	06.02.2014, 16:32 [ТС]	3
	Сообщение от UI Ни одни нормальный компилятор Паскаля не даст изменять управляющую переменную цикла. Ты пытаешься это делать. Цикл-то по i, не надо ее изменять... Просто убери 22-ю строку Спасибо, но я уже понял Просил модераторов об удалении темы CLOSE 0