-, , . . : , , [22]. . : .
. . , :
q - -;
q .
, -, .
. 9.5 . . , , .
. 9.5.
:
q , , ;
q , , ;
q , , . .
. 9.5 , , , .
. , , . 9.6.
:
with _;
use _;
Package _ is
subtype is Natural range...
type is tagged private;
procedure (the: in out );
procedure (the: In out ;
teta: : si: : s2: );
function (the: ;
s: ) return ;
private
end _;
. 9.6.
: , .
:
with _. _;
use _. _;
Package _ is
type _ is access all ;
type is tagged private;
procedure (the: in out ;
: _);
|
|
function (the: ;
: _) return ;
private
type is tagged record
: :=
(1.1.10);
end _:
- .
, :
with _. _;
use _. _;
Package _ is
type is (. );
subtype is Natural range...
type is tagged private;
function (: ;
: : : )
return ;
procedure (the: in out );
procedure (the: in out );
procedure (: in out
);
procedure (the: in out
);
function (the: )
return :
private
type _ is access all ;
type is tagged record
: ;
: ;
: _;
end record;
end _;
, , , :
: aliased ;
: aliased ;
(. 30. 60. 90);
- :
(. ss);
. , . .
, , . , , .
( ).
.
1. - () .
2. - () .
3. - () -.
4. - () .
. .
(-) . /. () ().
, . (), . . ( ) .
|
|
, . . 9.7 () (, , ) . , .
. 9.7.
. 9.8 (, ) . , , . , .
. 9.8.
, . ?
:
q ;
q .
. . .