Разработать программу, которая строит график Функция y =Cos x.

[bajge]

Разработать программу, которая строит график Функция y =Cos x.

procedure TForm1.Button1Click(Sender: TObject);
begin
xc:=round(PaintBox1.Width/2);
yc:=round(PaintBox1.Height/2);
PaintBox1.Canvas.MoveTo(0,yc);
PaintBox1.Canvas.LineTo(PaintBox1.Width,yc);
PaintBox1.Canvas.MoveTo(xc,0);
PaintBox1.Canvas.LineTo(xc,PaintBox1.Height);
paintbox1.Canvas.TextOut(xc+3,1,'y');
PaintBox1.Canvas.TextOut(PaintBox1.Width-10,yc+2,'x');
end;


procedure TForm1.Button2Click(Sender: TObject);
var x,y:integer;
begin
for x:=0 to PaintBox1.width do begin
y:=round(1/20*x*x);
PaintBox1.Canvas.Pixels[xc+x,yc-y]:=clred;
PaintBox1.Canvas.Pixels[xc-x,yc+y]:=clred;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var x,y:integer;
begin
for x:=0 to PaintBox1.Canvas.Pen.Width do begin
y:=round(1/20*x*x);
PaintBox1.Canvas.Pen.Color:=clred;
PaintBox1.Canvas.Pen.Style:=pssolid;
end;
end;
end.

[dmitriegorovih]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
x,y:real;
begin
x:=(PaintBox1.Width/2)*(-1);
y:=0;
for i:=1 to 925000 do begin
x:=x+0.001;
y:=cos(x*0.1)*20;
PaintBox1.Canvas.Pixels[Round(x+(PaintBox1.Width/2)),Round((PaintBox1.Height/2)-y)]:=clred;
end;
end;

[dmitriegorovih]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
x,y:real;
begin
x:=(PaintBox1.Width/2)*(-1);
y:=0;
for i:=1 to 925000 do begin
x:=x+0.001;
y:=cos(x*0.1)*20;
PaintBox1.Canvas.Pixels[Round(x+(PaintBox1.Width/2)),Round((PaintBox1.Height/2)-y)]:=clred;
end;
end;