( )
. Turbo Pascal
8
.
. , , , , . ; ; , , ; , , .
1. . . : / . ., . ., . . : , 2010. 192 .
2. . . 1 2 / . . : , 2006. 134 .
3. .
-
1. , , .
2. , .
1. Pascal?
2. 䳿 ?
3. ?
4. ?
5. ?
6. ?
7. ?
, .
ϳ .
, , .
, , , , , .
Pascal
Pascal . Pascal . , , , .
, :
1) Type <i' _1>=array[< i_1]of < >;
<i' _2>=array[< i_2>]of <i' _1>;
Var <i>: <i' _2>;
2) Type <i' >=array [ < i_1> ] of array [ < i_2> ]
|
|
of < >;
Var <i>: <i' >;
,
1) Type
mas=array [ -5.. 5 ] of real;
matr=array [ 1.. 10 ] of mas;
Var a: matr;
2) Type
matr=array [ 1.. 10 ] of array [ -5.. 5 ] of real;
Var a: matr;
a i , i . a, , , a[1] a ( -). a , , a [ i ] [ j ] a [ i, j ], i, j .
, :
3) Type <i' >=array [ < i_1, < i_2> ]
of [ < > ];
Var <i>: <i' >;
,
Type
day= (, , , , , , );
mas=array [ day, 1.. 10 ] of real;
Var a, b: mas;
< i_1> < i_2> .
( ) .
,
Var
v1: array [ 1.. 10 ] of array [ 1.. 10 ] of real;
a, b: array [ -4.. 4, 1.. 10 ] of integer;
: v1 [ i, j ], a [ i, j ], b [ i, j ] ( i, j ).
ij , i. -, , , .
.
1. .
2. .
3. , , , , .
- Pascal :
1. F 4- .
2. 5- .
3. 6×4 .
4. 3×3 .
5. 5×5 .
6. 4×3 .
7. 5×4 .
8. 7×5 .
9. A 3×4. .
10. A 3×7. .
11. A 9×5. .
12. A 2×4. j- i - .
|
|
13. A 8×8. i- j - .
14. A 5×5. .
15. A 4×4. .
16. A 7×5. 䒺 .
17. A 7×7. , .
18. A 4×8. . .
19. A 4×8. . .
20. A 4×4. .
ֲ
1. .
2. .
3. .
4. , , , -, ( ), ( ).
5. , .
6. ϳ .