9
: .
: .
: 230115
2 .
..
1. 1. : - , .
2. : " Pascal. ". .. , . . , ., " ", 2000
3.1. .
3.2. .
3.3. .
4. :
.
1) :
, .
: | ||
, | ||
, 4 5 | ||
, 5000 | ||
, 10 | ||
2 | ||
, - |
2) * .
.
6.1. .
:
( );
;
.
1-2 . ( , ). :
;
( );
.
- , .
6.2. 4 .
6.3. .
6.4. .
6.5. ( ).
6.6. .
6.7. , .
6.8. .
.
7.1. .
7.2. .
8.1. ?
8.2. ?
|
|
8.3. .
8.4. ?
8.5. ?
8.6. ?
, . , , .. .
, ( ). :
= RECORD
: ;
: ;
:
END;
. , .
type
Book = record
Tittle: string[80]; {}
Author: siring[2];{}
Year: integer; { }
end;
, , . , , .
:
.
.
var
X,Y: Book; { .}
Z: array [1..100] of Book;
begin
X.Tittle:= ' 1;
X.Author:= '.';
X.Year:= 1980;
Y:=X;
writeln (Y.Head, Y.Author);
Z [5]:= X;
end.
, . :
TYPE
FullName = record
Surname: string;
Name: string [20];
end;
Book = record
Tittle: string;
Author: FullName;
Year: integer;
End;
, ( ) , , , X.Author.Surname. .
WITH
. :
WITH _ DO
, .