unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, math, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label4: TLabel;
Label5: TLabel;
Edit4: TEdit;
Edit5: TEdit;
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,r,p:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
p:=(a+b+c)/2;
r:=sqrt((p-a)*(p-b)*(p-c)/p);
Edit4.text:=FloatToStr(r);
Edit5.Text:=FloatToStr(p);
end;
end.
Распечатка формы с результатами работы
Задание 2.
Вариант-19
Разработать интерфейс проекта, составить графическую схему алгоритма и программу для вычисления функции b=f(x,y,z). Для ввода исходных данных, вывода исходных данных и результата использовать только одну форму. Исходные данные для отладки программы выбрать самостоятельно.