With инструкцияси

Yuklangan vaqt:

20.09.2019

Ko'chirishlar soni:

0

Hajmi:

75.5 KB

Ko'chirib olish

With инструкцияси Режа: 1. Маълумотларнинг файлли тоифаси. 2. Файллар билан ишлаш функция ва процедуралари 3. Модуллар 4. Динамик бо ғ ланувчи библиотекалар (DLL)

With инструкцияси дастурда майдонлар номларини ўзгарувчи – ёзув номини кўрсатмасдан ишлатишга имкон беради. Умумий ҳолда with инструкцияси қуйидаги кўринишга эга: with <ёзув номи> do begin ( дастур инструкцияси} end; Мисол учун дастурда қуйидаги ёзув таърифланган бўлсин student: record f_name: string [30]; l_name: string [20]; address: string [50]; end; ва студентлар т ўғ рисидаги маълумотлар E1, E2 ва E3 ў згарувчиларда жойлашган б ў лсин . У ҳ олда student.f_name := El; student.l_name := E2; student.address := E3; инструкциялар ў рнига қ уйидаги инструкцияни ё зиш мумкин : with student do begin f_name := E1; l_name := E2; address := E3; end ;

$Маълумотларнинг файлли тоифаси. Файллар билан ишлаш функция ва процедуралари Файл бу хотиранинг номланган сохаси. Хар бир файл ўз номига эга. Одатда файлда бир тоифали маълумотлар сақланади. Яратилаётган файлнинг узунлиги олдиндан эълон қилинмайди. Object Pascal да файлларнинг учта тури белгиланган: 1. Тоифалашган файллар. 2. Матнли файллар. 3. Тоифалашмаган файллар. Киритиладиган ва чиқариладиган маълумотлар сони кўп миқдорда бўлса уларни файлда сақлаш дастурда қулайлик ту ғ диради. Бу маълумотлар оддий матн (текст) файлларида сақланади. Файл ўзгарувчиси дастур бош қисмида эълон қилинади, яъни Type f=text; Var fx:f; бу ерда f -файл типи, оддий матн файлни билдиради; fx-файл ўзгарувчиси. Керакли файлдан маълумотларни ўқишга тайёрлаш учун Assign ва Reset функциялари ишлатилади. Assign -файл ўзгарувчиси билан ососий файл орасида алоқа ўрнатади. Assign ( fx ,’ c :\ a \ f 1. txt ’);$ $Reset - файлни топиб уни ишга тайёрлайди. Reset ( fx ); Бу ерда fx - файл ўзгарувчиси; ‘ c :\ a \ f 1. txt ’- c : дискнинг A каталогидаги fx . txt файлдан ўқишни билдиради. Файлдаги маълумотларни ўқиш учун Read функцияси ишлатилади. Read (<файл ўзгарувчиси>, <ўзгарувчилар,массивлар>); Мисол . Read (fx, x,y,z,A[i],B[I]); Файлдан ўзгарувчилар ёки массивлар қийматларини ўқиб бўлгандан кейин файл ёпилади . Файлни ёпиш қуйидаги функция ёрдамида бажарилади . Close ( файл ўзгарувчиси ); Мисол . Close (fx); Мисол 1 . C: дискдаги AA каталогдаги AB файлдаги маълумотларни ўқиб A ва B массивларга жойлаштиринг . Файл маълумотлари структураси қуйидагича. 15.2 20.5 20.1 25.5 20.2 50.2 26.8 52.4 . . . . . . . яъни файл структураси икки устундан иборат маълумотлар тўпламидан иборат. Program FAB; Type f=text;$ $Var A,B: Array[1..100] of Real; m: Integer; fxz: f; Begin Assign(fxz,’c:\AA\AB.txt’); Reset(fxz); m:=0; While not eof(fxz) do Begin m:=m+1; Readln(fxz,A[m],B[m]); End; Close (fxz); End. Массив қийматларини бирон матн файлига ёзиб қўйиш учун Assign, Rewrite, Append, Write ва Close функциялари ишлатилади . Assign - файл ўзгарувчиси билан асосий файл ўртасида аълоқа ўрнатади ва у қуйидагича ёзилади . Assign( файл ўзгарувчиси , дискдаги файл жойи ва номи ); Append - Файлдан ёзиш учун жой тайёрлайли . Append( файл ўзгарувчиси ); Write - ўзгарувчи қийматини файл ўзгарувчисига узатади ва файлга ёзади . Write( файл ўзгарувчиси , ўзгарувчилар ); Close - очилган файлни ёпади . Close ( файл ўзгарувчиси ); Мисол 2. Юқоридаги C: дискдаги AA каталогдаги AB файлдаги маълумотларни A ва B массивларга ўқиб шу массив мос элементларини$ $қўшиб С массивни ташкил қилинг ва A,B,C массивларини ABC номли файлга жойлаштиринг . Файл маълумотлари структураси қуйилагича бўлсин. i A B C 1 15.2 20.5 45.7 2 20.1 25.5 45.6 . . . . . . . . . . . . Program FAB С ; Type f=text; Var A,B,C: Array[1..100] of Real; i,m: Integer; fax: f; Begin Assign(fax,’c:\AA\AB.txt’); Reset(fax); m:=0; While not eof(fax) do Begin m:=m+1; Readln(fax,A[m],B[m]); End; Close (fax); Assign(fax,’c:\AA\ABC.txt’); Rewrite(fax); Append(fax); For i:=to m do$