Зертханалық жұмыс. Тақырыбы: Delphi бағдарламалау ортасымен танысу

Тақ ырыбы: Delphi бағ дарламалау ортасымен танысу. Сызық ты қ ұ рылымды бағ дарлама қ ұ ру.

Мақ саты: Delphi бағ дарламалау ортасымен танысып, онда қ арапайым бағ дарлама қ ұ руды ү йрену. Стандартты компоненеттермен танысу.

Бастапқ ы берілгендер:

а) Z=lg(x)/ln(y)× e^x/y

б) C=8, 36•10^{3, 5}+2sin²(3, 14+z)^-3+ - ctg =-0, 17; z=3, 81

а)

б) unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

GroupBox1: TGroupBox;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var x, z: real;

c: real;

begin

x: =strtofloat(edit1.text);

z: =strtofloat(edit2.text);

c: =8.36*exp(3.5*ln(10))+2*sin(exp((-3)*ln(3.14+z)))*sin(exp((-3)*ln(3.14+z)))+exp(ln(abs(x))/2)*(sin(sqr(x)))/(x+exp(x))-(cos(abs(x/2)))/(sin(abs(x/2)));

edit3.Text: =('c= '+FLOATTOSTR(c));

end;

end.

Бақ ылау сұ рақ тарына жауаптар: