Вvar g,h: integer; x,y: real; x0,y0,xm,ym,mx,my: - вопрос №157057000 от Fokus123123 27.01.2020 04:21

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

Fokus123123 · Answer

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