Тапсырманы орындауға әдістемелік нұсқаулар

Unit Cmplx;

Type

Re,im:real

End;

Function Add(x,y:Complex):Complex;

Function MulC(x,y:Complex):Complex;

Function DivC(x,y:Complex):Complex;

Const C: Complex=(re:0,1; im:-1);

Function Add(x,y:Complex):Complex;

// Комплекс сандарды қосу

begin

Result.im:=x.im+y.im

End;//AddC

Function SubC(x,y:Complex):Complex;

// Комплекс сандарды азайту

begin

Result.im:=x.im-y.im

End;//SubC

Function MulC(x,y:Complex):Complex;

// Комплекс сандарды көбейту

begin

Result.im:=x.re*y.im-x/im*y.re

End;// MulC

Function DivC(x,y:Complex):Complex;

// Комплекс сандарды бөлу

var z:real;

begin

Z:=sqr(y.re)+sqr(y.im);

try

Result.im:=(x.re*y.im-x,im*y.re)/z;

Exept

Result.re:=1,1e309;

End//DivC

End.

Мұндай модуль құру үшін File-New-Unit опциясын шақыру қажет. Модуль мәтіні cmplx.pas файлында сақталынады: файл аты модуль атымен сәйкес келуі тиіс. Тек сонда ғана Delphi модульді автоматты түрде тауып, оны жаңартады.

Usescmplx;

Procedure Tform1.BbRunClick(Sender:TObject);

var x,y,z:complex;

Procedure Output(Operation:Char);

var S:String;

Begin Case Operation of

'+':z:=AddC(x,y);

'-':z:=SubC(x,y);

'*':z:=MulC(x,y);

'/':z:=DivC(x,y);

end;

MmOutput.Lines.Add(S);

End;//Output

begin//BbRunClick

x.re:=random;

x.im:=random;

x.re:=random;

x.im:=random;

Output('+');

Output('-');

Output('*');

Output('/');

MmOutput.Lines.Add(' ');

End;

Есеп шартына сәйкес, У(Х)-тің мәнін есептеуді функция түрінде, ал S(X)-тің мәнін есептеу процедура түрінде жүзеге асыратын модуль құрайық. Модуль құру үшін бас менюден файл-құру-модуль (Файл-Создать-Модуль)

командаларын орындаймыз. Нәтижесінде бос Unit2 модулі бар терезе ашылады. Содан кейін жоба файлдары сақталған папкаға модульді «UnFuncProc» деген атпен сақтаймыз. Модульдің мәтіні төмендегідей:

unit UnFuncProc;

interface

var n:integer;

Function F(x:extended):extended;

Procedure Sum(x:extended; Var s:extended);

implementation

Function F(x:extended):extended;

begin

F:=(1-x*x*0,5)*cos(x)-0,5*x*sin(x);

Procedure Sum(x:extended; Var s:extended);

var c: extended;

k:integer;

begin

c:=-x*x*0,5;

for k:=1 to n do

begin

s:=s+c*(2*k*k+1);

end; end;

end.

«UnFuncProc» модулін жобаға қосу үшін файл-модульді пайдалану командаларын орындаймыз. Нәтижесінде модульді пайдалану сұхбат терезесі ашылады. Бұл терезеде модульдер тізімі орналасады. Біздің жағдайда бір ғана «UnFuncProc» модулі бар, Ок батырмасын басамыз. Одан кейін негізгі Unit1 модуліндегі implementation бөлімінде Uses UnFuncProc операторының орналасқанына көз жеткізуіміз қажет (мұны Delphi өзі автоматты түрде қояды).

unit ;

Uses

type

Label1: Tlabel;

Label2: Tlabel;

Label3: Tlabel;

Edit1:TEdit;

Edit2:TEdit;

SpinEdit1:TSpinEdin;

Button1:TButton;

Memo1:TMemo;

Button2:TButton;

Procedure FormCreate(Sender:TObject);

Procedure Button1Click(Sender:TObject);

Procedure Button2Click(Sender:TObject);

private {private declarations}

public {publicdeclarations }

end;

func=Function(x:extended):extended;

proc=Procedure(x:extended; Var s:extended)

var

implementation

uses UnFuncProc; {$R*.dfm}

Procedure Tform1FormCreate(Sender:TObject);

begin

SpinEdit1.text:='4';

Edit2.text:='6';

Memo1.Clear;

Memo1.Lines.Add('Модуль құру');

end;

procedure Tabl(Sum:proc;F:func;n:integer;Xn,Xk,h:extended);

begin

x:=Xn;

Sum(x,s);

y:=F(x);

Form1.Memo1Lines.Add(#9+FloatToStrF(x,ffFixed,5,2)+#9+ FloatToStrF(s,ffFixed,6,3)+#9+ FloatToStrF(y,ffFixed,6,3));

x:=x+h;

until x>Xk;

Procedure TForm1Button1Create(Sender:TObject);

var Xn,Xk,h:extended;

begin

Xn:=StrToFloat(Edit1.Text);

Xk:=StrToFloat(Edit2.Text);

h:=(Xk-Xn)*0,5;

Tabl(Sum,F,n,Xn,Xk,h); end;

Procedure TForm1Button2Create(Sender:TObject);

close;