TYPE <идентификатор типі>= RECORD
<11идентификатор >[,< 12идентификатор >,…]: <1 тип >;
21идентификатор >[,< 22идентификатор >,…]: <2 тип >;
. . .
END;
Мысалы:
TYPE TA= RECORD
P1: REAL;
P2: CHAR;
P3: BYTE
END;
VAR A: ARRAY[1..10] OF TA;
Бұл мысалда əр элементі TA типті жазба болып келген бір өлшемді жиым сипатталған.
Жазбаны программаның айнымалыларды сипаттау бөлімінде де жариялауға болады.
VAR C : RECORD
P1: REAL;
P2: CHAR;
P3: BYTE
END;
146
Мысал. Құрылымы төмендегідей жазба жиымы берілген:
топ шифры;
сынақ кітапшасының нөмірі;
пəн коды;
баға.
ИС101 тобы студенттерінің орташа бағасын анықтау керек.
Жиымды енгізгенде ең соңғы жазба «99999» топ шифры.
PROGRAM SRBALL;
TYPE ZAP=RECORD
SHG:STRING[5];
NZK:INTEGER;
KD:1..100;
OC:2..5
END;
VAR MAS:ARRAY[1..100] OF ZAP; K,N,I:BYTE;
SUM:REAL;
BEGIN
I:=0;
REPEAT
INC(I);
READLN (MAS[I].SHG, MAS[I].NZK, MAS[I].KD, MAS[I].OC)
UNTIL MAS[I].SHG='99999'; N:=I; SUM:=0; K:=0; FOR I:=1 TO N DO
IF MAS[I].SHG='ИС101' THEN BEGIN
SUM:=SUM+MAS[I].OC;
INC(K)
END;
IF K<>0 THEN SUM:=SUM/K;
WRITELN (‘ИС-101 тобының орташа баллы=’,SUM) END.
147
Біріктіру операторы
Жазба компоненттерімен жұмыс жасағанда, құрама атауы қолданылады. Атауды қысқартып, жазбамен жұмыс жасауды ыңғайлы ету үшін WITH – біріктіру операторы қолданылады.
Достарыңызбен бөлісу: |
