ЗАДАНИЕ В ПАСКАЛЕ!!!!!!!! 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? что и зачем она нужна?
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? что и зачем она нужна?
More Questions From This User See All