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

жүктеу/скачать 4,42 Mb.

бет	167/210
Дата	06.01.2022
өлшемі	4,42 Mb.
	#16437
түрі	Оқулық

1 ... 163 164 165 166 167 168 169 170 ... 210

Байланысты:
boribaev-algoritmdeu

INPUT

TYPE <тип идентификаторы> = FILE OF <компо-нент типі>;

Мысалы,

TYPE T = FILE OF REAL; VAR F: T;
VAR F: FILE OF REAL;

TYPE ST = RECORD

STRING[10];

INTEGER;

REAL;

BYTE

END;
VAR DAN: FILE OF ST;

Бірінші нұсқада файл типі типтерді сипаттау бөлімінде көр-сетіліп, айнымалыларды сипаттау бөлімінде сол типті пайдала-нуға болады. Екінші нұсқада тип алдын ала сипатталмаған. Үшінші нұсқада алдын ала файл жазбалары типі сипатталады, ал айнымалыларды сипаттау бөлімінде сол тип жеке жазба типін көрсету үшін қолданылады.
Типтелген файлдарды жазу/оқу процедуралары мен функ-циялары: READ, WRITE, ASSIGN, RESET, REWRITE, SEEK, CLOSE, FILEPOS, FILESIZE, EOF. TRUNCATE процедурасы файл көрсеткіші тұрған позициядан бастап файлды қысқартып тастайды.
Мəліметтері пернелерден енгізілетін жазбалардан тұратын файл жасау керек болсын делік. Файл құрылған соң, оның ішкі мəліметтері экранға шығарылуы тиіс.
Файл жазбалары құрылымы:

270

фамилиясы;

табельдік нөмірі;

айлығы.

TYPE TZ=RECORD

FIO:STRING[10];
TN:INTEGER;
ZP:REAL
END;
VAR ZAP:TZ;
FOUT:FILE OF TZ;
FL:BOOLEAN;
NAME:STRING;
BEGIN
REPEAT
WRITELN('ФАЙЛ АТЫ ');
READLN(NAME);
ASSIGN (FOUT,NAME);
{$I-} RESET(FOUT); {$I+}
IF IORESULT=0 THEN
BEGIN
WRITELN(NAME,' ФАЙЛЫ', ' АШЫЛҒАН');
CLOSE(FOUT);
FL:=FALSE
END
ELSE
BEGIN
REWRITE(FOUT);
FL:=TRUE
END
UNTIL FL;
WITH ZAP DO
REPEAT
WRITELN(' FIO,TN,ZP ЕНГІЗУ '); READLN(INPUT,FIO,TN,ZP); WRITE(FOUT,ZAP);
UNTIL EOF(INPUT);
CLOSE(FOUT);

271

RESET(FOUT);
WITH ZAP DO
REPEAT
READ(FOUT,ZAP);
WRITELN(FIO:15,TN:9,ZP:8:2); UNTIL EOF(FOUT); CLOSE(FOUT)

END.

Программа басында бұрын болмаған файл аты кездескен-ше файл аттары енгізіледі, əйтпесе бұрынғы болған файл мə-ліметтерімен толық өшіріліп кетеді. Жаңа файл аты енгізілген соң, FL жалаушасы мəні TRUE болады да, файл атын енгізу тоқталады. Бұдан кейін мəліметтерді тікелей пернелерден енгізу INPUT файлы арқылы орындалады. Енгізуді аяқтау белгісі – Ctrl+Z. INPUT стандартты файл атын пернелерден енгізерде, READLN файлдан мəлімет оқу операторында жəне енгізу соңын тексеретін EOF функциясында да көрсетпеуге болады. Файл ашы-лып, мəліметтер енгізіліп болған соң ол CLOSE процедурасымен жабылады. Содан кейін құрылған файл мəлімет оқу үшін ашыла-ды да, оның мəліметтері кесте түрінде экранға шығарылады.
Файл соңына кейіннен қосымша мəліметтер енгізіле алады. Ол үшін файл көрсеткішін орналастыру процедурасы қолданылады:

жүктеу/скачать 4,42 Mb.

Достарыңызбен бөлісу:

1 ... 163 164 165 166 167 168 169 170 ... 210