---

unit unit1;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics,
Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
.
.
24
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var x:real;
xg,yg,i:integer;
begin
Form1.Canvas.MoveTo(400,20);
Form1.Canvas.LineTo(400,320);
Form1.Canvas.MoveTo(5,170);
Form1.Canvas.LineTo(420,170);
Form1.Canvas.MoveTo(10,165);
Form1.Canvas.LineTo(10,175);
Form1.Canvas.TextOut(10,180,'-2п');
Form1.Canvas.MoveTo(205,165);
Form1.Canvas.LineTo(205,175);
Form1.Canvas.TextOut(205,180,'-п');
Form1.Canvas.MoveTo(108,165);
Form1.Canvas.LineTo(108,175);
Form1.Canvas.TextOut(108,180,'-3/2п');
Form1.Canvas.MoveTo(303,165);
Form1.Canvas.LineTo(303,175);
Form1.Canvas.TextOut(303,180,'-п/2');
Form1.Canvas.MoveTo(10,165);
Form1.Canvas.LineTo(10,175);
Form1.Canvas.TextOut(10,180,'-2п');
Form1.Canvas.MoveTo(395,300);
Form1.Canvas.LineTo(405,300);
Form1.Canvas.TextOut(415,295,'-1');
Form1.Canvas.MoveTo(395,40);
Form1.Canvas.LineTo(405,40);
Form1.Canvas.TextOut(415,30,'1');
Form1.Canvas.MoveTo(395,105);
Form1.Canvas.LineTo(405,105);
Form1.Canvas.TextOut(410,100,'0,5');
Form1.Canvas.TextOut(405,175,'0');
Form1.Canvas.MoveTo(395,235);
25
Form1.Canvas.LineTo(405,235);
Form1.Canvas.TextOut(410,235,'-0,5');
Form1.Canvas.MoveTo(400,20);
Form1.Canvas.LineTo(405,25);
Form1.Canvas.MoveTo(400,20);
Form1.Canvas.LineTo(395,25);
Form1.Canvas.TextOut(380,20,'Y');
Form1.Canvas.MoveTo(420,170);
Form1.Canvas.LineTo(415,165);
Form1.Canvas.MoveTo(420,170);
Form1.Canvas.LineTo(415,175);
Form1.Canvas.TextOut(435,170,'X');
Form1.Canvas.TextOut (20, 20,'y=sin (2x+1)');
x:=-2*pi;
for i:=0 to 390 do
begin
xg:=400+round((195/(pi))*x);
yg:=170-round(130*sin(2*x+1));
Form1.Canvas.Pixels[xg,yg]:=clblack;
x:=x+pi/195;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
end.