, . , , : . , , :
Procedure S (a: array [1..10] of Real);
-, .
- , , , , , . :
type
atype = array [1..10]of Real;
Procedure S (a: atype);
.......
, :
type
intype = String [15];
outype = String [30];
Function St (s: intype): outype;
.......
- - . , , . . , ,
. , , 1010 , 9x11 , .. ( , ). , (), . , , , , . Object Pascal, Delphi.
, , - (. .1). . , ; . , , -. , -, .
|
|
. , , . (. .8.5). 7.0 , .
, , :
Procedure MyProc(OpenArray: array of Integer);
. HIGH, .4.1.1. 0 , HIGH, , :
{ : ArrayPrint}
Procedure ArrayPrint(aArray: array of Integer);
var
k: Integer;
begin
for k:= 0 to High(aArray) do
Write(aArray[k]:8);
WriteLn
end;
const
A:array [-1..2] of Integer = (0,1,2,3);
B: array [5..7] of Integer = (4,5,6);
begin
ArrayPrint(A);
ArrayPrint(B)
end.
, , ArrayPrint, . ( ) 1 - . , ,
var
: array [1..3,1..5] of Integer;
ArrayPrint()
Error26: Type mismatch.
( 26: .)
.
1. , - ?
2. ?
3. ?
4. , ?
5. ?
6. ?
.
1.