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

Question

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

Answer 1

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<br>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<br>y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;

readln;
closegraph;
end.