Mavzu: Delphi dasturlash tilida sikllar

2



edit1.clear
Bloklar 2-6 - tozalash edi t -s.



А



B



3

edit2.clear



4



edit3.clear





5

edit4.clear





6



edit5.clear





Конец

7

4. Yangi baza yaratish tartibi: 4 -tugmachani bosing .

4-algoritm uchun tushuntirishlar:

1



Начало

Нет

Да

2

messagedlg
Blok 2 - saqlanmagan ma'lumotlarni o'chirishni
so'rash.

cleansg

3
.
Blok 3 - protsedura chaqiruvi.



4

memo1.lines.insert
4-blok - ma'lumotlar bazasi yaratilishini
tasdiqlovchi eslatma maydoniga



7

Конец

5. yozuvni qo'shish tartibi: 1 tugmani bosing .

Algoritm 5 tushuntirishlari:

Blok 2 - bo'sh bo'lmagan satrlar uchun tahrir s ni tekshirish.
Blok 3 - bu satrga butun o'zgaruvchilarni belgilashga urinish.
2…5 maydonlari raqam bo'lishi kerakligi haqidagi xabar.
4-blok - tsiklning dastlabki holatini o'rnatish.
5,6 bloklari - odatdagi massivni tozalash sikli.
Blok 7 - tsiklning dastlabki holatini o'rnatish.
Bloklar 8,9,10 - StringGrid qatorini yozuvlar massiviga o'tkazish sikli .
Blok 11 - tsiklning dastlabki holatini o'rnatish.
12,13,14 bloklari - qo'shilgan qiymatdan kattaroq yozuvlar sonini topish sikli.
13-blok - matn o'zgaruvchilarini solishtirish shartining bajarilishi.
Bloklar 15,16 - qatorga qatorga yozuv qo'shish.
Blok 17 - protsedura chaqiruvi.
18-blok - tsiklning dastlabki holatini o'rnatish.
Bloklar 19,20,21,22,23 - massivni Strin va Gridga o'tkazish sikli .
Blok 24 - tahrirni tozalash protsedurasini chaqirish .
25-blok - avtomatik hisoblash tartibini chaqirish.
barcha maydonlar majburiy bo'lishi kerakligi haqidagi xabar.

Начало

1





Да

Нет



If edit1.text <>'' and edit2.text <>'' and edit3.text <>'' and edit4.text <>'' and edit5.text <>''

2



А





Да

Нет

B

messagedlg

Try:n=strtoint(edit2…5)