Ø ( M N) .
Ø / .
Ø 100x200 .
Ø , .
Ø , , .
Ø , .
Ø (, ).
.
| 1. | real | . |
| 2. | integer | . |
| 3. | char | . |
| 4. | real | . |
| 5. | integer | . |
| 6. | char | . |
| 7. | real | . |
| 8. | integer | . |
| 9. | char | . |
| 10. | real | |
| 11. | real | . |
| 12. | integer | . |
| 13. | char | . |
| 14. | real | . |
| 15. | integer | . |
| 16. | char | , , . |
| 17. | real | , , . |
| 18. | integer | , , . |
| 19. | char | , , . |
| 20. | real | , , . |
| 21. | real | , , . |
| 22. | integer | |
| 23. | char | , . |
| 24. | real | . |
| 25. | integer | , . |
1) ?
2) ?
3) ?
4) ?
|
|
|
5) ?
6) ?
7
.
(record). .
record
, , . , , , ( ) . , . :
Type
< > = record
S_1: TYPE_1;
S_2: TYPE_2;
S_N: TYPE_N
end;
S_1 TYPE_1; S_2 TYPE_2; S_N TYPE_N.
1. :
Type
Date = record
Month: 1..12;
Day: 1..31;
Year: integer
end;
var d: Date;
d Date, .
record , . ():
< >.< >.
, d.Year; d.Day; .., :
procedure Get_Data(var dt: Date);
Begin
Writeln;
Writeln( );
Write(?); Readln(dt.Day);
Write(?); Readln(dt.Month);
Write(?); Readln(dt.Year);
end;
with.
record.
:
With A do P;
A record, P ( )) . P A () A ( ). with :
procedure Get_Data(var dt: Date);
Begin
Writeln;
Writeln( );
With dt do
Begin
Write(?); Readln(Day);
Write(?); Readln(Month);
Write(?); Readln(Year);
End
end;
, , ( case). :
Type
< > = record
S_1: TYPE_1;
S_2: TYPE_2;
S_N: TYPE_N
case S: TYPE_S of
C1: (< _1>);
C2: (< _2>);
CK: (< _K>)
End;
S_1 TYPE_1; S_2 TYPE_2; S_N TYPE_N.
S TYPE_S, ‑ ;
C1, C2, CK , , S;
< _1>, < _2>, , < _K> , record case, , S. S , .
|
|
|
1.
, :
1. c .
2. .
2.
.
