n = 1, 100, 1
11
12
filezap, mzap[n]
А
А
13
сlosefile (filezap);
14
memo1.lines
15
Конец
8. bazani ochish tartibi: 5 tugmachasini bosing .
8-algoritm uchun tushuntirishlar:
Bloklar 2,3 - ma'lumotlarni o'qish uchun ochilish.
4-blok - tsiklning dastlabki holatini o'rnatish.
Bloklar 5,6 - massivni tozalashning takroriy tsikli.
7,8,9 bloklar - terilgan fayldan terilgan massivga o'qish.
Blok 10 - qo'ng'iroqni tozalash StringGridni tasdiqlash .
Blok 11 - tsiklning dastlabki holatini o'rnatish.
Bloklar 12,13,14,15,16 - StringGrid -da massivni tarjima qilish siklini takrorlash .
17-blok - hisoblash tartibini chaqirish.
Blok 18 - tasdiqlash eslatma maydonida chiqish .
1
Начало
assignfile(filezap,filenamezap);
2
reset(filezap);
n:=0;
3
4
n = 0
n = 0, 200, 1
Do'stlaringiz bilan baham: |