---

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 Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x: Integer;
  x_rad: Real;
  y_pixel: Integer;
begin
  for x := 0 to 720 do
  begin
    Form1.Canvas.Pixels[50, 100 + x] := clBlack;
    Form1.Canvas.Pixels[50 + x, 360] := clBlack;

    Form1.Canvas.MoveTo(45, 303);        // çàñå÷êà 1 (îó)
    Form1.Canvas.LineTo(55, 303);
    Form1.Canvas.TextOut(28, 295, '1');

    Form1.Canvas.MoveTo(45, 246);       // çàñå÷êà 2 (îó)
    Form1.Canvas.LineTo(55, 246);
    Form1.Canvas.TextOut(28, 238, '2');

    Form1.Canvas.MoveTo(45, 188);       // çàñå÷êà 3 (îó)
    Form1.Canvas.LineTo(55, 188);
    Form1.Canvas.TextOut(28, 180, '3');

    Form1.Canvas.MoveTo(230, 355); Form1.Canvas.LineTo(230, 365);
    Form1.Canvas.TextOut(225, 370, 'Ï'); // çàñå÷êà Ï (îõ)

    Form1.Canvas.MoveTo(410, 355); Form1.Canvas.LineTo(410, 365);
    Form1.Canvas.TextOut(405, 370, '2Ï'); // çàñå÷êà 2Ï (îõ)

    Form1.Canvas.MoveTo(590, 355); Form1.Canvas.LineTo(590, 365);
    Form1.Canvas.TextOut(582, 370, '3Ï'); // çàñå÷êà 3Ï (îõ)

    Form1.Canvas.MoveTo(770, 355); Form1.Canvas.LineTo(770, 365);
    Form1.Canvas.TextOut(767, 370, '4Ï'); // çàñå÷êà 4Ï (îõ)

    x_rad := x * (Pi / 180);
    y_pixel := 360 - Round((180 / Pi) * (1 - Sin(2 * x_rad)));
    Form1.Canvas.Pixels[50 + x, y_pixel] := clBlack;
end;
  end;
end.