---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  x: Real;
  xg, yg, i: Integer;
begin
  Form1.Canvas.MoveTo(30, 20);
  Form1.Canvas.LineTo(30, 280);
  Form1.Canvas.MoveTo(20, 250);
  Form1.Canvas.LineTo(420, 250);
  Form1.Canvas.MoveTo(30, 245);  Form1.Canvas.LineTo(30, 255);
  Form1.Canvas.TextOut(25, 260, '0');
  Form1.Canvas.MoveTo(120, 245); Form1.Canvas.LineTo(120, 255);
  Form1.Canvas.TextOut(115, 260, 'п');
  Form1.Canvas.MoveTo(210, 245); Form1.Canvas.LineTo(210, 255);
  Form1.Canvas.TextOut(205, 260, '2п');
  Form1.Canvas.MoveTo(300, 245); Form1.Canvas.LineTo(300, 255);
  Form1.Canvas.TextOut(295, 260, '3п');
  Form1.Canvas.MoveTo(390, 245); Form1.Canvas.LineTo(390, 255);
  Form1.Canvas.TextOut(385, 260, '4п');
  Form1.Canvas.MoveTo(25, 180); Form1.Canvas.LineTo(35, 180);
  Form1.Canvas.TextOut(10, 172, '1');
  Form1.Canvas.MoveTo(25, 110); Form1.Canvas.LineTo(35, 110);
  Form1.Canvas.TextOut(10, 102, '2');
  Form1.Canvas.MoveTo(30, 20); Form1.Canvas.LineTo(25, 28);
  Form1.Canvas.MoveTo(30, 20); Form1.Canvas.LineTo(35, 28);
  Form1.Canvas.TextOut(15, 20, 'Y');
  Form1.Canvas.MoveTo(420, 250); Form1.Canvas.LineTo(412, 245);
  Form1.Canvas.MoveTo(420, 250); Form1.Canvas.LineTo(412, 255);
  Form1.Canvas.TextOut(425, 242, 'X');
  Form1.Canvas.TextOut(50, 20, 'y = 1 - sin(2x)');
  x := 0;
  for i := 0 to 360 do
  begin
    xg := 30 + Round((90/Pi)*x);
    yg := 250 - Round(70*(1-Sin(2*x)));
    Form1.Canvas.Pixels[xg, yg]:= clBlack;
    x := x+(4*Pi)/360;
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

end.