.


:




:

































 

 

 

 


initialization




(, , , , ) , , , .

, , 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 .





:


: 2016-11-12; !; : 894 |


:

:

, .
==> ...

1488 - | 1398 -


© 2015-2024 lektsii.org - -

: 0.007 .