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

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

60.5 KB

Ko'chirib olish

Ф а й л л и т и п л а р Режа: 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 .$

Ф о й д а л а н и л г а н а д а б и ё т л а р р ы й х а т и . 1. Вирт Н. Алгоритмы структуры данных программы. - М.: Мир, 1985 г. 2. Абрамов В., Трифонов Н., Трифонова Г. Введение в язык Паскал. - М.: Наука, 1988 г. 3. Файсман А. Профессиональное программирование на Турбо Паскале. - Т.: "Инфомэкс Корпорейшн", 1992 г. 4. Findlay W., Watt D.A., Paskal. An introduction to methodical programmin. Third edition. – London: Pitman, 1985 г . 5. Поляков Д. Б., Круглов И. Ю. Программирование в среде Турбо-Паскаль (версия 5.5): Справ.-метод. пособие. – М.: Изд-во МАИ. 1992 г. 6. Епанешников А., Епанешников В. Программирование в среде Turbo Pascal 7.0 М., Диалог-наука, 1993 г.

O'xshashlar

Комбинацияли (ёзувлар) ва тупламли типлар

Объектга йўналтирилган дастурлаш технологияларини ўқитишда турли типдаги маълумотлар билан ишлаш услубиёти

Турбо-Паскал тилининг асосий тушунчалари

Амалий сатх протоколлари telnet –виртуал терминал хизматлари учун стандарт протокол ftp сервиси – файлли архивлар тизими

Интернет адреслари. http протоколи