Файлли типлар

Загружено в:

20.09.2019

Скачано:

0

Размер:

60.5 KB

Скачать

Ф а й л л и т и п л а р Режа: 1. Файлли типларни хосил килиш; 2. Файлли типлар билан ишлаш процедуралари ва уларнинг вазифалари.

$Ф а й л л и т и п л а р н и х о с и л к и л и ш Файлли типдаги ызгарувчиларни дискдан маълумот ыкиб олувчи ёки дискка маълумот ёзиб кыювчи программаларда ишлатиш мумкин. Файлли типдаги ызгарувчиларни эълон килишда file ва text хизматчи сызлари ишлатилади: var mfile 1, mfile 2: file; afile: file; Prima: text; text хизматчи сызи файлнинг матнли эканлигини англатади . Матнли файллар махсус белгилар билан ажратилган , узунлиги номаълум былган к аторлардан ташкил топади . Айрим пайтларда файлларни бир хил типли хадлар кетма-кетлиги кыринишида караш кулайрок былади. Бу кетма-кетлик каторлар, бутун сонлар ёки ёзувлардан ташкил топиши хам мумкин: var A1: file of byte; {А1 файли байтлар кетма - кетлигидан ташкил топган} A 2: file of integer ; {А2 файли бутун сонлар кетма-кетлигидан ташкил топган} A 3: file of string ; {А3 файли каторлар кетма-кетлигидан ташкил топган} A 4: file of string [20]; {А4 файли 20та белгили каторларнинг кетма-кетлигидан ташкил топган} A 5: text ; {А5 файли матнли файл хисобланади} Агар файлнинг хадлари учун тип аникланган былса, бундай файлларни типлаштирилган, акс холда типлаштирилмаган деб аталади: var A : file ; { типлаштирилмаган файл} B: file of char; { типлаштирилган файл } Файллар билан ишлайдиган куйидаги программани кыриб чикайлик. Var mydata: file of integer; i, j, sum: integer; begin assign (m у data, ‘d:\tp\myfile.dat’); {mydata файл ызгарувчиси билан файлнинг исмини myfile.dat ва унинг ани к йыли ани к ланмо к да } rewrite (mydata); { файл ёзув учун очи к}$ $writeln (‘ Салом номаълум ырто к...’); writeln (‘ Биринчи сонни киритинг ’); readln (i); writeln (‘ Киритилган сонни дискдаги myfile.dat файлига ёзилмокда ’); write (mydata, i); { бу оператор ёрдамида дискдаги myfile.dat файлига i сонини ёзилади } writeln (‘ Иккинчи сонни киритинг ’); readln (j); writeln (‘ Киритилган иккинчи сонни дискдаги myfile.dat файлига ёзилмо к да ’); write (mydata, j); { Дискка ёзиш бажарилмо к да } sum :к i к j; writeln (‘ Йи \ инди к’, sum); writeln (‘ Йи \ инди дискдаги myfile.dat файлига ёзилмокда ’); write (mydata, sum); { Дискка ёзиш бажарилмо к да } close (mydata); {mydata файли ёпилди } writeln (‘ Хайр номаълум ырто к... ’); end . 2 . Ф а й л л и т и п л а р б и л а н и ш л а ш п р о ц е д у р а л а р и в а у л а р н и н г в а з и ф а л а р и Эътиборингизга хавола этилган программада Assign , Rewrite , Write ва Close процедураларидан фойдаланилди. Энди шу процедураларнинг ва кейинги программада ишлатилувчи Reset ва Read процедураларнинг вазифалари ва кандай аникланганлиги хакида кискача маълумот бериб ытайлик: Assign процедураси . Вазифаси: Файлли ызгарувчига ташки файл исмини ызлаштиради. Ани к ланиши : Assign (f; name: string); бу ерда f - ихтиёрий типли файлли ызгарувчи ; name - к аторли типдаги ифода ёки к атор , файл исми ( агар файлнинг тыли к йыли кырсатилмаган былса файл ишланаётган каталогда жойлашган былади ). Close процедураси. Вазифаси: очик файлни ёпади. Ани к ланиши : Close (f); бу ерда f - олдиндан очилган файлга мос келувчи файлли ызгарувчи . Read процедураси.$ $Вазифаси: файл хадини ызгарувчига ыкийди. Аникланиши: Read ( f , v ); бу ерда f - файлнинг ихтиёрий типига мос файлли ызгарувчи (факат матнли типли эмас); v - файл хадининг типи билан бир хил типли ызгарувчи. Reset процедураси. Вазифаси: мавжуд файлни очади. Ани к ланиши : Reset (f: file); бу ерда f – файлнинг ихтиёрий типига мос файлли ызгарувчи ва бу ызгарувчи файл билан Assign процедураси ор к али бо \ ланган былиши керак . Reset процедураси мазкур файлни очади. Rewrite процедураси. Вазифаси: янги файлни яратади ва очади. Ани к ланиши : Rewrite (f: file); бу ерда f – ихтиёрий файлли типдаги файлли ызгарувчи . Rewrite процедурасини ишлатишдан олдин f ызгарувчи Assign процедураси ёрдамида дискдаги файл билан бо \ ланиши керак . Rewrite процедураси янги файл ташкил килади. Write процедураси. Вазифаси: файл хадига ызгарувчини ёзиб кыяди. Ани к ланиши : Write (f, v); бу ерда f – файлли ызгарувчи ; v - f файлининг хади билан бир хил типли ызгарувчи. Олдинги тузган программамиз « d :» дискдаги tp каталогида myfile . dat файлини ташкил килди. Энди шу файлдан кандай килиб маълумотларни ыкишни кыриб чикайлик. Var mydata : file of integer ; i, j, sum: integer; begin assign (mydata, ‘d:\tp\myfile.dat’); reset (mydata); { файл ы к иш учун очилмо к да } writeln (‘ Салом номаълум ырто к...’); read (mydata, i); writeln (‘myfile.dat файлидан биринчи сон ы к илди ’); read (mydata, j); writeln (‘ дискдаги myfile.dat файлидан иккинчи сон ы к илди ’); read (mydata, sum); writeln (‘myfile.dat файлидан учинчи сон ы к илди ’); close (mydata); {mydata файли ёпилади } writeln (‘ Хайр номаълум ырто к...’); end.$ $Text стандарт файлли тип матнли файлларни ани к лайди . Матнли файллар ызаро янги к аторга ытиш белгилари билан ажратилган к аторлардан ташкил топади . Матнли файллар билан ишлаш учун махсус киритиш ( Readln ) чоп этиш ( Writeln ) процедуралари кызда тутилган . Бу процедуралар узунлиги номаълум каторларни файллардан ы к иш ва файлларга ёзиш учун ишлатилади . Энди матнли файллар билан ишлашга доир куйидаги программа билан танишиб чикайлик: var mytext: text; s: string; begin assign (mytext, ‘d:\tp\mytext.txt’); {mytext файлли ызгарувчи оркали файл исми ва йыли ани к ланмо к да } rewrite (mytext); { файл ёзиш учун очи к} writeln (‘ Сизнинг исмингиз ?’); readln (s); writeln (‘ Исмингизни дискдаги mytext.txt файлига ёзилмо к да ’); writeln (mytext, s); {s - к атори mytext.txt файлига ёзилмо к да } close ( mytext); {mytext файли ёпилди } end .$

Файлли типлар

20.09.2019

0

60.5 KB

Похожие