• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Листинги программ к лабораторной работе 1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Label4: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure edit1keypress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var r,h,v,s: real;

begin

r:=strtofloat(edit1.Text);

h:=strtofloat(edit2.Text);

s:=pi*sqr(r);

v:=s*h;

label3.Caption:='площадь основания равна'+floattostrf(s,ffgeneral,7,2);

label4.Caption:='объем цилиндра равен'+floattostrf(v,ffgeneral,7,2);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.edit1keypress(Sender: TObject; var Key: Char);

begin

If key=#13 then Edit2.SetFocus;

end;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Memo1: TMemo;

Button1: TButton;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var r,h,s,vkon,vcil:real;

begin

r:=strtofloat(edit1.Text);

h:=strtofloat(edit2.Text);

s:=r*r*pi;

vkon:=s*h/3;

vcil:=s*h;

memo1.Lines.Add('объем конуса равен: '+floattostr(vkon));

memo1.Lines.Add('объем цилиндра равен: '+floattostr(vcil));

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

memo1.Clear;

end;

end.

Приложение Б

Переглядів: 362