Построить графики функции в паскале. (нужна сама программа) y= 1/(x2+1); y=cos(x2).

program grafik; uses graphabc; var i,x0,y0,x1,y1,k: integer; x,y: real; beginsetwindowsize(640,400); x0: =320; y0: =200; k: =30; line(x0,20,x0,380); line(20,y0,620,y0); line(x0,20,x0-10,30); line(x0,20,x0+10,30); line(630,y0,620,y0-10); line(630,y0,620,y0+10); for i: =-10 to 10 dobeginline(x0+(i*k),y0-10,x0+(i*k),y0+10); textout(x0+(i*k),y0+10,inttostr(i)); end; for i: =-5 to 5 dobeginline(x0-10,y0+(i*k),x0+10,y0+(i*k)); if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i)); end; setpencolor(clred); x: =-10; while x< =10 dobeginy: =1/(sqr(x)+1); ; x1: =trunc(x0+x*k); y1: =trunc(y0-y*k); circle(x1,y1,2); x: =x+0.01; end; end.

2

program grafik; uses graphabc; var i,x0,y0,x1,y1,k: integer; x,y: real; beginsetwindowsize(640,400); x0: =320; y0: =200; k: =30; line(x0,20,x0,380); line(20,y0,620,y0); line(x0,20,x0-10,30); line(x0,20,x0+10,30); line(630,y0,620,y0-10); line(630,y0,620,y0+10); for i: =-10 to 10 dobeginline(x0+(i*k),y0-10,x0+(i*k),y0+10); textout(x0+(i*k),y0+10,inttostr(i)); end; for i: =-5 to 5 dobeginline(x0-10,y0+(i*k),x0+10,y0+(i*k)); if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i)); end; setpencolor(clred); x: =-10; while x< =10 dobeginy: =cos(sqr(x)); ; x1: =trunc(x0+x*k); y1: =trunc(y0-y*k); circle(x1,y1,2); x: =x+0.01; end; end.