Проект 1

Обчислення довжини відрізка за координатами його вершин

procedure TForm1.Button1Click(Sender: TObject);

var x1,x2,y1,y2:real;

  d:real;

begin

  x1:=StrToFloat(Edit1.Text);

  y1:=StrToFloat(Edit2.Text);

  x2:=StrToFloat(Edit3.Text);

  y2:=StrToFloat(Edit4.Text);

  d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

  Edit5.Text:= floatToStr(d);

end;    

Проект 2

Обчислення периметра трикутника за даними координатами його вершин

procedure TForm1.Button1Click(Sender: TObject);

var x1,x2,y1,y2,x3,y3:real;

  a,b,c,p:real;

begin

  x1:=StrToFloat(Edit1.Text);

  y1:=StrToFloat(Edit2.Text);

  x2:=StrToFloat(Edit3.Text);

  y2:=StrToFloat(Edit4.Text);

  x3:=StrToFloat(Edit5.Text);

  y3:=StrToFloat(Edit6.Text);

  a:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

  b:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));

  c:=sqrt((x2-x1)*(x3-x2)+(y3-y2)*(y3-y2));

  p:=a+b+c;

  Edit7.Text:= floatToStr(p);

end;      

Проект 3

Обчислити радіус та площу круга, описаного навколо квадрата зі стороною а.  

procedure TForm1.Button1Click(Sender: TObject);

var a,r,s,pi:real;

begin

 pi:=3.14;

 a:=StrToFloat(Edit1.Text);

 r:=a*sqrt(2)/2;

 Edit2.Text:= floatToStr(r);

 s:=pi*r*r;

 Edit3.Text:= floatToStr(s);

end;