Witam, napisałem program, który pobiera długości trzech boków trójkąta. Czyli edit1 to pierwszy bok, edit2 to drugi bok, edit3 to trzeci bok. Program sprawdza już czy dany trójkąt może powstać. Jak zabrać się do rysowania tegoż trójkąta ? Chodzi mi o to, żeby trójkąt miał dokładnie takie boki jak zadeklarowane liczby.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:Single;
begin
a:=StrToFloat(edit1.Text);
b:=StrtoFloat(edit2.Text);
c:=StrToFloat(edit3.Text);
if (a<b+c) and (b<c+a) and (c<a+b) then
end;
end.