Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
| 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 – біріктіру операторы қолданылады. жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|