1) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=cos(x*x); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;
readln; closegraph; end.
closegraph; end. 2) Program graph1; uses graph; var gd,gm,error,a,b: integer; x,y:real; begin gd:=detect; initgraph(gd,gm,''); error:=graphresult; if error <> grOk then begin write ('Ошибка: ', grapherrormsg(error)); readln; halt; end; while(x<=100) do begin y:=1/(x*x+1); a:=round(x*100); b:=round(y*100); PutPixel(a,b+300,15); x:=x+0.001; end;