:задано уравнение прямой.построить на экране эту прямую. pascal (материал 11 класса)

177

455

Посмотреть ответы 2

Ответы на вопрос:

tatyanachueva

Информатика

4,6(77 оценок)

Uses graph; var xc,yc,m,x1,y1: integer; x,y: real; begin xc: =0; initgraph(xc,yc,''); xc: =getmaxx div 2; yc: =getmaxy div 2; m: =yc div 2; line(5,yc,getmaxx-5,yc); line(xc-m,yc+3,xc-m,yc-3); outtextxy(xc-m,yc+10,'-1'); outtextxy(xc+5,yc+10,'0'); line(xc+m,yc+3,xc+m,yc-3); outtextxy(xc+m,yc+10,'1'); line(xc,5,xc,getmaxy-5); line(xc-3,yc-m,xc+3,yc-m); outtextxy(xc-10,yc-m,'1'); line(xc-3,yc+m,xc+3,yc+m); outtextxy(xc-15,yc+m,'-1'); setcolor(12); line(xc-m,yc,xc,yc-m); line(xc,yc-m,xc+m,yc); line(xc+m,yc,xc,yc+m); line(xc,yc+m,xc-m,yc); x: =-4; while x< =4 do begin y: =0.52*x+0.18; x1: =xc+round(x*m); y1: =yc-round(y*m); putpixel(x1,y1,14); x: =x+0.01; end; readln end.