profile
Опубликовано 5 лет назад по предмету Информатика от NataliaDmitrievna

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

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? что и зачем она нужна? 

Самые новые вопросы