:






DELPHI

 

:

Quot;

"

 

: : . . . . . 107226, 6  
, : ..

 

 

- 2007


1

DELPHI

 

: DELPHI .

: x, y, z, :

.

=16.55 10 , =-2,75, z=0,15 -38.902.

:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(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

x,y,z,b:real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

b:=sqrt(10*(exp(1/3*ln(x))+exp((y+2)*ln(x))))*(sqr(arctan(sqrt(z/(1-sqr(z)))))-abs(x-y));

Memo1.Lines.Add(' B='+FloatToStrF(b,fffixed,8,3));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('..N1, . 107226, 6');

end;

end.

 

 

:

 

:

DELPHI . : Label, Memo, Edit, Button. : Caption, Name, Font.

<== | ==>
INI- | 

mylektsii.ru - - 2015-2018 . (0.006 .)