[ant-iriska]

у меня возникло 2 вопроса: как исправить в коде ошибки и как начертить прямоугольный треугольник вместо того, который чертит программа??? может, кто знает...

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ComCtrls, ImgList, ToolWin;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure btn3Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
       private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    a,b,al, c,h, sq: extended;

implementation

uses Unit2, Unit3;

{$R *.dfm}


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

procedure TForm1.btn1Click(Sender: TObject);
begin try
 c:= StrToFloat(Edit1.Text);
 al:= StrToFloat(Edit2.Text);
 a:=c * sin(al);
 b:=c * cos(al);
 sq:= (a+b+c)*(180/pi);
 Label1.Caption:='Периметр треугольника с гипотенузой = ' + FloatToStr(c) + ' и острым углом = ' + FloatToStr(al) + ' равен '+ FloatToStr(sq);
except
end;

procedure TForm1.btn2Click(Sender: TObject);
var x1,x2,x3,x4,y1,y2,y3,y4: extended;
begin
  form2.show;
  h:=h*80;
  c:=c*80;
  x1:=Round((c+100)/2);
  y1:=50;
  x2:=c+50;
  y2:=h+50;
  x3:=round(c/2+50);
  y3:=h+50;
  x4:=50;
  y4:=h+50;
  form2.canvas.moveTo(x1,y1);
  form2.canvas.lineTo(x2,y2);
  form2.canvas.lineTo(x4,y4);
  form2.canvas.lineTo(x1,y1);
  Form2.Canvas.LineTo(x3,y3);

end;

procedure TForm1.N3Click(Sender: TObject);
begin
 Form3.Show;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.N4Click(Sender: TObject);
   var x1,x2,x3,x4,y1,y2,y3,y4: extended;
begin
  form2.show;
  h:=h*80;
  c:=c*80;
  x1:=Round((c+100)/2);
  y1:=50;
  x2:=c+50;
  y2:=h+50;
  x3:=round(c/2+50);
  y3:=h+50;
  x4:=50;
  y4:=h+50;
  form2.canvas.moveTo(x1,y1);
  form2.canvas.lineTo(x2,y2);
  form2.canvas.lineTo(x4,y4);
  form2.canvas.lineTo(x1,y1);
  Form2.Canvas.LineTo(x3,y3);
end;

procedure TForm1.N2Click(Sender: TObject);
begin try
 c:= StrToFloat(Edit1.Text);
 al:= StrToFloat(Edit2.Text);
 a:=c * sin(al);
 b:=c * cos(al);
 sq:= (a+b+c)*(180/pi);
 Label1.Caption:='Периметр треугольника с гипотенузой = ' + FloatToStr(c) + ' и острым углом = ' + FloatToStr(al) + ' равен '+ FloatToStr(sq);
except
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  form1.Color:=clred;
  form2.Color:=clred;
  form3.Color:=clred;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
    form1.Color:=clgreen;
    form2.Color:=clgreen;
    form3.Color:=clgreen;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
    form1.Color:=clwhite;
    form2.Color:=clwhite;
    form3.Color:=clwhite;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
   form1.Color:=clyellow;
   form2.Color:=clyellow;
   form3.Color:=clyellow;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
    form1.Color:=clskyblue;
    form2.Color:=clskyblue;
    form3.Color:=clskyblue;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin try
 c:= StrToFloat(Edit1.Text);
 al:= StrToFloat(Edit2.Text);
 a:=c * sin(al);
 b:=c * cos(al);
 sq:= (a+b+c)*(180/pi);
 Label1.Caption:='Периметр треугольника с гипотенузой = ' + FloatToStr(c) + ' и острым углом = ' + FloatToStr(al) + ' равен '+ FloatToStr(sq);
except
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  Form3.Show;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
var x1,x2,x3,x4,y1,y2,y3,y4: extended;
begin
  form2.show;
  h:=h*80;
  c:=c*80;
  x1:=Round((c+100)/2);
  y1:=50;
  x2:=c+50;
  y2:=h+50;
  x3:=round(c/2+50);
  y3:=h+50;
  x4:=50;
  y4:=h+50;
  form2.canvas.moveTo(x1,y1);
  form2.canvas.lineTo(x2,y2);
  form2.canvas.lineTo(x4,y4);
  form2.canvas.lineTo(x1,y1);
  Form2.Canvas.LineTo(x3,y3);

end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
 close;
end;

end.

Код:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);
begin
  Close;
end;

end.

Код:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
 close;
end;

end.