383
OldFile, NewFile : file;
V : array [1..128,1..200] of byte;
Result : integer;
OldName, NewName : string [14];
Begin
writeln (‘İlkin faylın adını verin’);
readln (OldName);
Assign (OldFile, OldName);
Reset (OldFile);
writeln (‘Yeni faylın adını verməli:’);
readln (NewName);
Assign (NewFile, NewName);
Rewrite (NewFile);
Repeat
BlockRead (OldFile, V, 200, Result);
BlockWrite (NewFile, V, Result);
Until Result=0
Close (OldFile);
Close (NewFile)
End.
Bu proqram bir faylın digər fayla sürətlə köçürülməsini təmin edir.
Mətn faylı istisna olmaqla tipli və tipsiz fayllara birbaşa üsulla da müraciət
etmək olar. Bu isə diskdə saxlanılan informasiyadan operativ olaraq istifadə
edilməsini təmin edir.
Birbaşa müraciəti təşkil etmək üçün
seek(F,n)
standart prosedurundan
istifadə edilir. Bu prosedurda n arqumenti F fayl dəyişənilə təyin olunan faylın
elementinin sıra nömrəsini təyin edir. n tam qiymətlər alır və bu ədəd faylın
elementlərinin sayından çox olmamalıdır. Faylın elementləri 0-dan başlayaraq
nömrələnir. Prosedur yerinə yetirildikdə kursor faylın mövqeyini n-ci elementə
doğru yerini dəyişir və həmin elementin oxunması, redaktəsi icra oluna bilər, n-ci
mövqedən fayla yeni verilən yazıla bilər. Praktikada birbaşa müraciət üçün bu
prosedurdan başqa daha 2 standart funksiyadan istifadə olunur:
1.
FilePos(F)
. Funksiya cari anda F faylında kursorun yerləşdiyi
elementinin nömrəsini təyin edir.
2.
FileSize(F).
Funksiya F faylının ölçüsünün -faylın elementlərinin
sayını təyin edir. Adətən bu funksiyadan faylda elementin olmasını
yoxlamaq üçün istifadə edilir. Əgər
FileSize(F)=0
isə onda fayl boşdur,
yəni onda heç bir element yoxdur, əks halda faylda elementlər vardır.
Məsələn ,
Dostları ilə paylaş: 
