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

program Fsumma;
Uses Crt;
var
f : file of Integer;
X : Integer;
Summa: Longint;
begin
ClrScr;
{$I-};
Assign (f, `MyFile.Dat`);
Reset (f)
{I+}
if IOResult<>0 then
begin
writeln (`Файл очилишида хатолик`)
Halt (1);
end;
{Йиѓиндини ћисоблаш}
Summa:=0;
while not Eof(f) do
begin
read (f, X);
Summa:= Summa +X;
end;
writeln ( `Файл элементлари жами` , Summa,`га тенг`);
close (f);
end.
11.4. Файллар билан ишлашнинг умумий воситалари


11.4.1. System модули процедура ва функциялари
System модулининг процедура ва функцияларини ћамма ваќт ћам чаќириб бўлади ва бу ишни бажаришда ќўшимча модуллар талаб ќилинмаслигини эслатамиз. Юќорида кўриб ўтилган процедура ва функциялардан ташќари, бу модул файллар билан ишлаш учун ќайта номлаш, файлларни йўќотиш ва каталоглар билан ишлаш процедураларига ћам эга.
Каталоглар билан ишлаш процедуралари
System модулида каталоглар билан ишлаш учун ChDir, MkDir,RmDir ва GetDir процедуралар киритилган. Мазмунига кўра улар MS DOSнинг шундай буйруќларига ўхшаш. Бу процедураларнинг ишлатилишини ќуйидаги мисолда кўрамиз:
program Direktories Demo;
Uses Crt;
var
S: String;
begin
ClsScr; {E: дискнинг ўзак каталогини жорий ќилиб ўрнатиш:}
ChDir (`E:\`);
{Жорий каталог ва дискни кўрсатиш}
GetDir (0,S0;
Writeln (`Жорий диск ва каталог:`,S);
{MyDir ички каталог яратиш}
MkDir (`MyDir`);
{MyDir ички каталогига ўтиш}
ChDir (`MyDir`)
{Жорий диск ва каталогни кўрсатиш}
GetDir(0,S);
Writeln(`Жорий диск ва каталог:`,S);
{E: дискнинг узак каталогини жорий килиб урнатиш}
ChDir (`\`);
{MyDir ички каталогини йўќотиш}
RmDir(`MyDir`);
{Жорий диск ва каталогни кўрсатиш}
GetDir(0,S);
Writeln(`Жорий диск ва каталог:`,S);
end.


Файлларни ќайта номлаш ва ўчириш процедуралари
Rename физик файлларни ќайта номлашга, Erase процедураси эса уларни ўчиришга хизмат ќилади. Бу процедуралар, ќандайдир бир физик файл билан боѓланган, лекин улар учун файлни очиш иши ћали бажарилмаган файлли ўзгарувчилар учун ќўлланилади. Ќуйидаги дастур аввал MyFile.Dat файлини Resultга ќайта номлаш, кейин эса уни ўчиришни намойиш этади.