| Модульдегі хабарланған объектілерге кіру мүмкіндігі. Жобаны компиляциялау (алғашқы орындау) кезінде орындаушы жасақтаған модуль де компиляцияланып, нәтижесі tru-файлда сақталады. Мысалы, Vector.pas модулін компиляциялағанда Vector.tru файлы пайда болады.
Үш өлшемді векторлық кеңістікте екі векторды қосу және алу, векторды санға көбейту, вектор модулін табу және екі векторды скаляр көбейту амалдарын орындайтын процедуралары мен функциялары бар Vector модулін құруды мысалға келтірейік:
Unit Vector;
interface
type
vect = record
x, y, z : real;
end;
Procedure SumV(a,b: vect; var c: vect);
Procedure SubV(a,b: vect; var c: vect);
Procedure MulV(k: real; a: vect; var c: vect);
Function ModV(a: vect): real;
Function ScMulV(a,b: vect): real;
implementation
Procedure SumV(a,b: vect; var c: vect);
begin
c.x:=a.x+b.x; c.y:=a.y+b.y; c.z:=a.z+b.z;
end;
Procedure SubV(a,b: vect; var c: vect);
begin
c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z;
end;
Procedure MulV(k: real; a: vect; var c: vect);
begin
c.x:=k*a.x; c.y:=k*a.y; c.z:=k*a.z;
end;
Function ModV(a: vect): real;
begin
ModV:=sqrt(sqr(a.x)+sqr(a.y)+sqr(a.z));
end;
Function ScMulV(a,b: vect): real;
begin
ScMulV:=a.x*b.x+a.y*b.y+a.z*b.z;
end;
Достарыңызбен бөлісу: |
