4
. CRT.
: , CRT.
. , , , . . , .
:
UNIT <>;
INTERFACE
< >
IMPLEMENTATION
< >
BEGIN
< >
END.
UNIT, INTERFACE, IMPLEMENTATION (, , ).
<> ( )
, .
.
UNIT . , .
unit Global; à global.pas
.
USES < >;
USES (), < > , ; , , ,
USES Crt, Global, Graph;
USES , .
INTERFACE. (, , ), / . .
unit vect;
interface
type
vector = array[1..3] of real;
function sMul(a,b: vector): real;
function Module(a: vector): real;
uses vect;
vector vect.
IMPLEMENTATION , . , , .
|
|
, , ( ). , .. , , .
implementation
function sMul;
begin
sMul:= a[1]*b[1]+a[2]*b[2]+a[3]*b[3];
end;
function Module(a: vector): real;
begin
Module:= sqrt(sMul(a,a));
end;
end.
, . .
(BEGIN < >) .
, TPU (Turbo Pascal Unit). .
, , , . , : . ,
vect.Module(a1);
CRT
, , , .
CRT , . , .