Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
| SEEK(<файл аты>, FILESIZE(<файл аты>)).
Келесі программада алдыңғы құрылған файл жазбалары-мен тікелей қатынасу арқылы табельдік нөмірлері пернелерден енгізілетін жұмысшылардың жалақыларының қосындысын табу керек (файл құрылған кезде пайдаланылған табельдік нөмірлер 101-999 сандары аралығында болып саналады, сол себепті 101 нөмірлі жазба файлда алғашқы орында тұрады, келесісі – 102, т.с.с.). TYPE TZ=RECORD FIO:STRING[10]; TN:INTEGER; ZP:REAL END; VAR ZAP:TZ; FOUT:FILE OF TZ; 272 TN1,TN2,N:INTEGER; S:REAL; NAME:STRING; BEGIN WRITELN('ФАЙЛ АТЫ '); READLN(NAME); ASSIGN (FOUT,NAME); RESET(FOUT); S:=0; REPEAT READLN(TN2); TN1:=TN2-101; {жазбалар көрсеткішін құру} SEEK(FOUT,TN1); READ(FOUT,ZAP); S:=S+ZAP.ZP; UNTIL EOF; WRITELN(‘S= ‘,S); CLOSE(FOUT) END. Бұл программадағы мəліметтер өңдеу процесі табельдік нө-мірлерді енгізу тоқталғанда, яғни пернелерден Ctrl+Z енгізілгенде аяқталады. Типтелген файл – бұл файлдық айнымалыны жариялау кезінде берілген барлық компоненттері бір типте болатын файл. Файл компоненттері дискіде ішкі екілік форматта сақталады. Егер осындай файл мəліметтерін кез келген мəтіндік редактор-мен қарайтын болсақ, тек символдық мəліметтер көрінеді де, файлдағы сандар орнына бос орын таңбалары немесе псевдогра-фика символдары тұрады. Сонымен, типтелген файлдармен жұмыс істеу кезінде тө-мендегідей арнайы процедурлар мен функциялар қолданылады. жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|