Вывод: я рассмотрел возможности компонентов, расположенных на вкладке win32.
Практическая работа №15
Тема: Визуальные компоненты среды Delphi (additional).
Цель практической работы: Узнать о возможностях компонентов расположенных на вкладке Additional.
Ход работы :
Задание №1
Рис 49
Рис 50
Рис 51
Листинг :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
BitBtn1: TBitBtn;
Label4: TLabel;
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.Text:='';
Edit1.SetFocus;
Edit2.Text:='';
Edit3.Text:='';
Memo1.Clear;
Memo1.Lines.Add('Лаб.раб N 1 Вариант № 00');
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var x,y,z,a,b,c,u,c1:extended;
begin
if(Edit1.Text=' ') or (Edit2.Text='') or (Edit3.Text='') then exit;
try
x:=StrToFloat(Trim(Edit1.Text));
except
ShowMessage('Ошибочная запись числа'+Edit1.Text);
Edit1.SetFocus();
Exit;
end;
try
y:=StrToFloat(Trim(Edit2.Text));
except
ShowMessage('Ошибочная запись числа'+Edit2.Text);
Edit1.SetFocus();
Exit;
end;
try
z:=StrToFloat(Trim(Edit3.Text));
except
ShowMessage('Ошибочная запись числа'+Edit3.Text);
Edit1.SetFocus();
Exit;
end;
Memo1.Lines.Add('X='+Edit1.Text);
Memo1.Lines.Add('Y='+Edit2.Text);
Memo1.Lines.Add('Z='+Edit3.Text);
a:=sqr(sin(x+y)/cos(x+y));
b:=exp(y-z);
try
c1:=Cos(Sqr(x))+Sin(Sqr(z));
Memo1.Lines.Add ('Значение подкоренного выражения='+ FloatToStrF(c1,fffixed,8,3));
c:=sqrt(cos(sqr(x))+sin(sqr(z)));
except
showmessage('Ошибка при вычислении квадратного корня');
exit;
end;
u:=a-b*c;
Memo1.Lines.add('Значение выражения U='+FloatToStrF(u,fffixed,8,3));
end;
end.
Достарыңызбен бөлісу: |
