Alqoritm, xassələri və təsvir üsulları

Var f: TextFile; i: İnteger
Begin
AssignFile(f,”a:\test.txt”);
Rewrite(f);
For i=1 to 3 do
Writeln(f, “Sətir N”,i);
CloseFile(f);
End;
Bu proqram fraqmenti icra olunandan sonra a diskində olan test.txt faylindakı bütün informasiyalar silinəcək (Rewrite) və başdan 1,2 və 3-cü sətirlərdə müvafiq olaraq Sətir N1, Sətir N2 və Sətir N3 yazıları yazılacaq. Proqramın bu hissəsi icra olunandan sonra aşağıdakı fraqment icra olunarsa,
...............................
Begin
AssignFile(f,”a:\test.txt”);
Append(f);
For i=4 to 6 do
Writeln(f, “Sətir N”,i);
CloseFile(f);
End;
a diskində olan test.txt faylindakı yazilara 4,5və 6-cı sətirlərdə Sətir N4, Sətir N5 və Sətir N6 yazıları əlavə (Append) olunacaq.
2. Mətn faylından informasiyanın oxunması
TurboPaskal proqramından əvvəlcədən mətn faylına (genişlənməsi .txt olan)
yazılmış informasiyaları çağırmaq və onlardan istifadə etmək olar. İnformasiya oxunan zaman faylda yazılmış verilənlər proqram dəyişənlərinə mənimsədilir. Bundan ötrü verilənlərin qiymətləri yazılmış fayl açılmalıdır. Faylın açılması üçün Reset(f) prosedurasından istifadə olunur. Bu proseduradan əvvəl f (fayl dəyişəni) mütləq konkret faylla bağlanlanmalıdır. Məs.:
AssignFile(f,”c:\data.txt”); f – c diskindəki data.txt faylıdır
Reset(f); f-lə işarələnən faylı aç
Əgər fayl yoxdursa və ya düzgün açılmayıbsa IO Result funksiyasının köməyilə bunu yoxlamaq olar:
Repeat
res:= IO Result; if res<>0
then answ:=”Faylın açılışında səhv var”
Until (res=0)
Fayldan verilənləri oxumaq (onların qiymətlərinin proqram dəyişənlərinə mənimsədilməsi) üçün Read() və Readln() proseduralarından istifadə olunur: