Question

ЗАДАНИЕ В ПАСКАЛЕ!!!!!!!!

Var g,h:integer;

x,y:real;

x0,y0,xm,ym,Mx,My:integer;

begin

g:=detect;

InitGraph(g,h,'');
begin

line(0,round(getmaxY/2),GetmaxX,round (GetMaxy/2));
line (round (GetMaxX/2),0,round(GetmaxX/2),GetmaxY);

end;

For xm:=20 to 620 do

Begin

x:=(xm-x0)/Mx;

y:=X*X;

ym:=round(y0-y*My);

PutPixel(xm,ym,15);

End;

Readln;

End.

подскажите пожалуйста, что означает строка For xm:=20 to 620 do? что и зачем она нужна?

Answer 1

Это цикл. код после do и до end; выполняется 620 - 20 = 600 раз, так как счёт идёт от 20 и заканчивается 620. Но тут ошибка. После begin и до end; нет увеличения счётчика xm(то есть эта переменная будет всегда равна 20), нужно добавить строху xm:=xm+1 ДО end;