.
. , . , . , .
, .
.
, . , , , .
(/):
, , ( , ) .
(List).
CONST
NameLen = 7;
AddrLen = 25;
Max = 4;
TYPE
Month = (Jan, Feb, Mar, Apr, May, un, Jul, Aug, Sep, Oct, Nov, Dec);
Sex = (Male, Female);
Date = RECORD
Mo: Month;
Day: 1.. 31;
Year: INTEGER;
END;
Person = RECORD
Name: STRING[NameLen];
Addr: STRING[Addrlen];
Birth: Date;
VSex: Sex;
Next: 0.. Max;
END;
VAR
PRecs: ARRAY [1.. Max] OF Person;
First: 0.. Max;
First , .
Next .
Next 0;
Index | PRecs[Index].Next | PRecs[Index].Name | |
Miller | |||
Smith | |||
Plane | |||
Jones |
.
Index:= First;
WHILE Index <> 0
DO
BEGIN { Index}
...
Index:= PRecs[Index].Next;
END;
Next .
, First Next.
, . . .
|
|
Index | PRecs[Index].Next | PRecs[Index].Name | |
Miller | |||
Smith | |||
Plane | |||
Jones | |||
Rush |
PRecs[5].Next = PRecs[3].Next
PRecs[3].Next = 5
.