ЗАДАНИЕ В ПАСКАЛЕ!!!!!!!! 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); ...
ЗАДАНИЕ В ПАСКАЛЕ!!!!!!!! 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? что и зачем она нужна?
Гость
Ответ(ы) на вопрос:
ГостьЭто цикл. код после do и до end; выполняется 620 - 20 = 600 раз, так как счёт идёт от 20 и заканчивается 620. Но тут ошибка. После begin и до end; нет увеличения счётчика xm(то есть эта переменная будет всегда равна 20), нужно добавить строху xm:=xm+1 ДО end;
Не нашли ответ?
Похожие вопросы