Зертханалық жұмыс.

Тақ ырыбы: Сызық ты қ ұ рылымды алгоритмді зерттеу. Визуалды компоненттер.

Жұ мыстың мақ саты: «Standard» жә не «Win32» қ осымша парақ тың визуалды компоненттерін зерттеу. Сызық ты қ ұ рылымды алгоритмді орындау ү шін терезелі интерфейсті қ осымшаны жасау.

Берілгендер:

а) Тұ йық талғ ан тізбек ү шін ток кү шінің мә нін есептеп табу: .

мұ ндағ ы: ; мә ндерін пернетақ тадан енгізу керек.

ә) Алгоритмнің қ ұ рылымды схемасын жә не функцияны есептеу программасының жобасын қ ұ ру. Бір параметрді пернетақ тадан енгізу, басқ асын тұ рақ ты шама ретінде беру, барлық есептелетін мә ндерді экранғ а шығ ару.

; ;

b=6 жә не k=3, 4

б) Алгоритмнің қ ұ рылымды схемасын жә не функцияны есептеу программасының жобасын қ ұ ру.Бастапқ ы берілгендерді пернетақ тадан енгізу, нә тижесін экранғ а шығ ару.

Шең бер ауданы берілген квадратқ а іштей сызылғ ан. Осы шең берге іштей сызылғ ан квадрат ауданын табу керек. Іштей сызылғ ан квалрат ауданы ауданы берілген квадрат ауданынан неше есе кіші?

Бірінші квадраттың ауданы S=144 м²;

Бірінші квадраттың қ абырғ асы немесе шең бер диаметрі D=12 м.

unit PktLb02U;

interface

uses

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

Dialogs, StdCtrls, ComCtrls;

type

TFpktLb02 = class(TForm)

PageCtrl: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label4: TLabel;

Label5: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Button3: TButton;

Button4: TButton;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

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

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FpktLb02: TFpktLb02;

implementation

{$R *.dfm}

procedure TFpktLb02.Button1Click(Sender: TObject);

begin

Edit1.Text: =''; Edit2.Text: ='';

Edit3.Text: ='';

Edit1.SetFocus;

end;

procedure TFpktLb02.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not(Key in ['0'..'9']) then Key: =#27;

end;

procedure TFpktLb02.Button2Click(Sender: TObject);

VarR, a, I: real;

begin

R: =StrToFloat(Edit1.Text);

a: =StrToFloat(Edit2.Text);

I: =285/(R+a);

Edit3.Text: =('I='+FloatToStr(I));

end;

procedure TFpktLb02.Button3Click(Sender: TObject);

begin

Edit4.Text: ='';

Edit5.Text: ='';

end;

procedure TFpktLb02.Button4Click(Sender: TObject);

Const k=3.4;

Varb, f, t, a, y: real;

begin

t: =sqr(b)+exp(3*ln(k));

a: =sqr(b+t);

y: =sin(sqr(a)+sqr(b));

f: =sqr(y);

f: =Sqr(f);

Edit5.Text: =FloatToStr(f);

end;

procedure TFpktLb02.Button5Click(Sender: TObject);

begin

Edit6.Text: =''; Edit8.Text: ='';

Edit7.Text: ='';

end;

procedure TFpktLb02.Button6Click(Sender: TObject);

Var S, D, X: real;

begin

S: =StrToFloat(Edit6.Text);

D: =StrToFloat(Edit7.Text);

X: =S/(Exp(2*ln(D))/2);

Edit8.Text: =FloatToStr(X);

end;

end.