(, , , , ) , , , .
, , uses __.
, .. , :
- , ;
- , .. ;
- ;
- , .
, , :
unit _; //
interface //
[ uses _;]
{ , }
implementation //
[ uses _;]
{ , }
initialization //
{, }
finalization //
{, }
end.
R Circle, .
unit geometry; //
interface //
var R: real;
function Circle(R: real): real;
implementation //
function Circle(R: real): real;
begin
Result:= 2*pi*R
end;
end.
geometry.pas , .
program prog; //
uses geometry; // geometry
begin
readln(R); // R
writeln(Circle(R)) // Circle geometry
end.
, uses . :
uses geometry in '..\my_unit\geometry.pas';
, my_onit.
( ). , .
interface
, , , / . (, , forward). .
|
|
, .
implementation
, . , , .
initialization
, , , , ..
, , , uses .
1 2, 2 1.
, initialization .