[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

[lmikle]

Дык в чем вопрос-то?