Mavzu: Delphi dasturlash tilida sikllar

10

n = 1, k = 1

autorachet



11



12



13



14



15



16



Конец

17

10. StringGrid -a tugmasini bosing.

10-algoritm uchun tushuntirishlar:

Начало

1


2



memo1.lines
2-blok - tanlovni tasdiqlash.



3



Конец

11. qo'ng'iroqni chop etish .

11-algoritm uchun tushuntirishlar:

Начало

1


2



shellexecute
2-blok - standart pochta mijoziga qo'ng'iroq qilish.

3



Конец

12. chiqish .

12-algoritm uchun tushuntirishlar:

Начало

1



2



halt

Blok 2 - dasturdan chiqish.

3

Конец


5. Dastlabki ma'lumotlarni taqdim etish shakli

Vazifaning shartiga ko'ra, ma'lumotlarni terilgan fayllarda saqlashni ta'minlash kerak. Ushbu muammoni hal qilish uchun terilgan ma'lumotlarni saqlash elementini - ma'lumotlar bazasi to'plamini ishlab chiqish kerak, uning rolini ushbu ilovada quyidagi tuzilishga ega " zap " o'zgaruvchisi bajaradi.

zap=record yozing

mahsulot:string[80];
onng:longint;
reja:longint;
onkg:longint;
swocep : kengaytirilgan ;
oxiri ;

Bular. bu o'zgaruvchi bizga kerakli turdagi o'zgaruvchan ma'lumotlarning chiziqli massividir. Ikki o'lchovli massivni tashkil qilish uchun o'zgaruvchilar bo'limida " Mzap " massivini tavsiflaymiz :

var
Mzap : massiv [1..200 ] zap ; //yozuv massivi turini e'lon qilish

Terilgan fayl - tuzilishi va nomi yuqoridagi o'zgaruvchilar bo'limida tavsiflangan terilgan elementlar to'plami:

filezap: zap fayli;

filenamezap:string;