Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1



бет79/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   75   76   77   78   79   80   81   82   ...   210
Байланысты:
boribaev-algoritmdeu

WITH < RECORD типті айнымалының идентификаторы > DO
< оператор>;
WITH – біріктіру операторын қолдансақ, жазба компонентіне сілтеме жасағанда айнымалы атын жазбауға болады.
Жоғарыдағы мысалды біріктіру операторының көмегімен жазсақ төмендегідей болып шығады:
. . .
I:=0;
REPEAT
INC(I);
WITH MAS[I] DO
READLN(SHG,NZK,KD,OC)
UNTIL MAS[I].SHG='99999';
N:=I; SUM:=0; K:=0;
FOR I:=1 TO N DO
WITH MAS[I] DO
IF SHG='ИС101' THEN
BEGIN
SUM:=SUM+OC;
INC(K)
END;
. . .
Жазбаны біріктірілген түрде сипаттап, WITH операторын қолдануға болады. Студенттер жайлы жазба келесі өрістерден тұрады делік:


  1. реттік нөмір;




  1. ФАТ (бұл өріс – фамилия, аты, тегі өрістерінен тұрады),




  1. сынақ кітапшасының нөмірі;




  1. туған жылы (бұл өріс – жыл, ай, күн өрістерінен тұрады). Мұндағы жазба құрылымын граф түрінде төмендегідей бей-

нелеуге болады:




148


Жазбаны енгізу жəне санау программасының құрылымы ке-лесідей түрде болады:


USES CRT; НЕМЕСЕ USES CRT;
TYPE ZAP=RECORD TYPE ZAP=RECORD
NPP:BYTE; NPP:BYTE;
FIO:RECORD FIO:RECORD
F,I,O:STRING[15]; F,I,O:STRING[15];
END; END;
NZK:WORD; NZK:WORD;
DTR:RECORD DTR:RECORD
G:1970..2000; G:1970..2000;
M:STRING[3]; M:STRING[3];
D:1..31 D:1..31
END; END;
END; END;
VAR A:ZAP; VAR A:ZAP;
K,N:BYTE; K,N:BYTE;
BEGIN CLRSCR; BEGIN CLRSCR;
K:=0; K:=0;
WITH A DO WITH A,FIO,DTR DO
WITH FIO DO REPEAT
WITH DTR DO INC(K);
REPEAT WRITELN('ВВОД ');
INC(K); READLN(NPP);
WRITELN('ВВОД '); READLN(F);
READLN(NPP); READLN(I);
READLN(F); READLN(O);
READLN(I); READLN(NZK);
READLN(O); READLN(G);
READLN(NZK); READLN(M);


149

READLN(G); READLN(D);
READLN(M); UNTIL D=99;
READLN(D); WRITELN(K);
UNTIL D=99; READKEY
WRITELN(K); END.
READKEY
END.


Достарыңызбен бөлісу:
1   ...   75   76   77   78   79   80   81   82   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет