HELP!ЗАДАНИЕ В ПАСКАЛЕ!!!!!!!! код проги рисующей параболу
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.
что означает
Begin
x:=(xm-x0)/Mx;
y:=X*X;
ym:=round(y0-y*My); ? Зачем использовать его в коде?
__________
Mx, My-масштабы соответственно по осям x и y, которые показывают число пикселей в одной физической единице,
x, y- физические координаты точки,
xm, ym- машинные координаты точки,
x0, y0- машинные координаты начала физической системы координат.