Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1
жүктеу/скачать 4,42 Mb.
|
| BLOCKREAD(<файл аты>,<айнымалы>,<компоненттер саны>
[,<нақты саны>]); бұл процедура файлдан блок оқу үшін қолданылады. BLOCKWRITE(<файл аты>,<айнымалы>,<компоненттер саны> [,<нақты саны>]); 287 – файлға блок жазу үшін қажет. Мұндағы: <файл аты> - типсіз файл аты; <айнымалы> - оқу немесе жазу үшін қолданылатын айнымалы аты; <компоненттер саны> - бір мəлімет алмасу кезінде тасымалдана-тын компоненттер саны; <нақты саны > - нақты түрде тасымалданған ұзындығы 128 байт жазбалар саны. Блоктар арқылы енгізу-шығаруға арналған файл FILE типімен сипатталады. Типсіз файлдар үшін READ жəне WRITE процеду-ралары қолданылмайды. VAR <файл аты>: FILE; Типсіз файл ашқанда, файл жазбаларының ұзындығын байт-пен көрсетуге болады. Ол RESET немесе REWRITE процедура-ларын пайдаланғанда, WORD типіндегі екінші параметр түрінде жазылады. Егер жазба ұзындығы көрсетілмесе, ол 128 байтқа тең болып саналады. Блоктар арқылы енгізу-шығарудан бір мысал келтірейік. FROMF файлы мəліметтерін TOF файлына көшіру керек болсын делік. VAR FROMF, TOF: FILE; NR, NWR: WORD; NAME:STRING[12]; BUF: ARRAY[1..2048] OF CHAR; BEGIN WRITE(‘ОҚЫЛАТЫН ФАЙЛ АТЫ’); READLN(NAME); ASSIGN(FROMF, NAME); WRITE(‘ЖАЗЫЛАТЫН ФАЙЛ Аты‘)$ READLN(NAME); ASSIGN(TOF,NAME); RESET(FROMF, 1); REWRITE(TOF, 1);
288 BLOCKWRITE(TOF, BUF, NR, NWR); UNTIL (NR = 0) OR (NWR <> NR); CLOSE(FROMF); CLOSE(TOF); END. Программада типсіз файлды ашу кезінде RESET процеду-расында жазба ұзындығы 1 болып көрсетілген. Мұнда көшіру кезінде жаңа файлға артық символдар жазылмайды. жүктеу/скачать 4,42 Mb. Достарыңызбен бөлісу:
|