Kasb ta’limi fakultеti

7.4-rasm.

Yuqorida ko’rsatilgan algoritmning dasturi quyida berilgan. AssignFile(f,filename);

{$I-}

Append(f) // qo’shish uchun ochish

{$I+}

if IOResult<> 0 // ochishdagi xatolik

then Rewrite(f); // yozish uchun ochish

Faylni yopish

Ishni yakunlanishidan oldin barcha ochiq fayllar yopilishi kerak. Buni Close protsedurasi amalga oshiradi. Close protsedurasi bitta parametrga ega, ya’ni faylli o’zgaruvchi nomiga. Protsedurani qo’llashga misol:

Close(f)

Dasturga misollar

Navbatdagi dastur oddiy ma’lumotlar bazasini ifodalaydi. Uning har ishga yuklanishida ekranda muloqot oyna hosil bo’ladi (7.5-rasm). Bu oynada foydalanuvchi sana va havo temperaturasini kiritishi mumkin.