Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

Assign(f, `MyFile.Dat`)
Келтирилган файлда f мантиќий файлни MyFile.Dat физик файл билан, у MS-DOS жорий дискнинг каталогида мавжуд деган шартни ћисобга олиб, боѓлаш бажарилади. Агар Assign процедурасининг ћаракатлари MS-DOS жорий ќурилмаларига боѓлиќ эмаслиги талаб ќилинса, унда файлнинг диск, каталоглар йўли ва файл номини кўрсатувчи тўла исми езилади, масалан:
Name:=`a:\ MyFiles\ MyFile.Dat`;
Assign (f, Name);
Файллардан ўќиш ёки ёзиш каби ќандайдир бир амалларни бажариш олдидан, бу файллар очилган бўлиши керак.
Файлларни очиш Reset ва Rewrite процедуралари билан, ёпилиши эса Close процедураси билан бажарилади.
Reset(f);
Rewrite(f);
Close(f);
Reset процедураси f файлли ўзгарувчи билан боѓлиќ бўлган мавжуд физик файлни очади. Агар f- матнли файл бўлса, уни фаќат кетма-кет фойдаланиш усули билан ўќиб бўлади, агар f- турдошлаштирилган файл бўлса, у кетма-кет ва тўѓридан-тўѓри фойдаланиш усуллари билан ўќиш учун ћам, ёзиш учун ћам очиќ бўлади. Очилишда файлнинг жорий хонаси кўрсаткичи унинг бошига ўрнатилади.
Агар кўрсатилган исмли физик файл бўлмаса, бажариш ваќти хатоси пайдо бўлади, уни компиляторнинг {$I-}директивасини ўчириш билан йўќотиш мумкин. Директиванинг бундай кўрсатмасида файлни очиш ишини тугатиш натижасини IOResult функцияси ёрдамида таћлил ќилиш мумкин. Функция, агар иш муваффаќиятли бажарилса, 0 ќийматни ва, акс ћолда, хатоликнинг нолмас ќийматини беради.
Rewrite процедураси, исми f файлли ўзгарувчи билан боѓлиќ бўлган, янги физик файл яратади. Агар шундай файл мавжуд бўлса, у йўќотилади ва унинг ўрнида янги бўш файл яратилади. Очишда файлда жорий хонанинг кўрсаткичи унинг бошига ўрнатилади.
Амалда ћамма дастурларда ишлатилувчи яна битта функция-Eof функциясидир.
Eof(f)
Агар f файлда жорий хона кўрсаткичи файлнинг охирги элементидан кейин турган бўлса, ёки файл бўш бўлса, Eof(f) функция True ќийматини, акс ћолда у False ќийматини ќайтаради.
Мисол сифатида MyFile.Dat файли элементлари йиѓиндисини ћисоблашни кўрамиз: