Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д



Yüklə 1,14 Mb.
səhifə27/36
tarix26.11.2023
ölçüsü1,14 Mb.
#136599
1   ...   23   24   25   26   27   28   29   30   ...   36
DELFI

E’lon qilish

Fayldan o’zgaruvchilarga o’qish buyrug’i

O’zgaruvchilarning fayldan o’qilganidan keyingi qiymati

fam: string[15] name: string[10]

Readin (f, fam, name)

f am= ' Narzullayev'
name= ' G`ayrat'

fam, name: string;

Readin (f, fam, name)

fam= ' Narzullayev G`ayrat'
name= ' '

dust: string[80]

Readin (f, dust)

dust =' Narzullayev G`ayrat'

1.14. Fayl oxiri
Diskda bir nechta satrdan iborat matnli fayl mavjud bo’lsin. Muloqot oynasiga bu faylda mavjud barcha satrlarni chiqarish kerak. Masala echimi juda oddiy: dastlab faylni ochish kerak, so’ngra birinchi satrni o’qish kerak, keyin ikkinchisini, uchinchisini va hokazo fayl oxiriga etguncha o’qish kerak. Lekin fayl oxiriga etganini qanday bilish mumkin?
Fayl oxirini aniqlash uchun EOF (End of File) funksiyasidan foydalanish mumkin. EOF funksiyasining bitta fayl tipidagi parametri bor. Agar o’qilgan element faylda so’ngisi bo’lmasa EOF funksiyasining qiymati False bo’ladi, agar o’qilgan element faylda so’ngisi bo’lsa, u holda EOF ning qiymati True bo’ladi.
EOF funksiyasining qiymatini fayl ochilishi bilan tekshirish mumkin. Agar uning qiymati True bo’lsa, bu fayl bitta ham elementga ega emasligini bildiradi (bunday fayl hajmi nolga teng).
7.5-listingda qo’yilgan masalani bajaruvchi protsedura keltirilgan. U foydalanuvchi tomonidan berilgan fayldan satrlarni o’qiydi va Memo maydoniga o’qilgan satrlarni chiqaradi. 7.6-rasmda dasturning muloqot oynasi berilgan.


Yüklə 1,14 Mb.

Dostları ilə paylaş:
1   ...   23   24   25   26   27   28   29   30   ...   36




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©muhaz.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin