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.
Назарий саволлар ва таянч ибоарлар:
Файлли типдаги ызгарувчиларни эълон =илишда =айси щизматчи сызлардан фойдаланилади?
Типлаштирилган файлларга таъриф беринг;
Типлаштирилмаган файлларга таъриф беринг;
Файллар билан ишлаш программаларидан наъмуналар келтиринг;
Файлли типлар билан ишловчи процедураларнинг вазифаларини тушунтиринг;
Файлни ташкил этиш ва ундан маълумот ы=иш программаларини тузинг;
Матнли файллар билан ишлаш программаларидан наъмуналар келтиринг.
Do'stlaringiz bilan baham: |