Mavzu: Delphi dasturlash tilida sikllar

7-algoritm uchun tushuntirishlar:

Bloklar 2,3 - ma'lumotlarni yozish uchun ochilish.
4-blok - tsiklning dastlabki holatini o'rnatish.
Bloklar 5,6 - massivni tozalashning takroriy tsikli.
Blok 7 - tsiklning dastlabki holatini o'rnatish.
Bloklar 8,9,10 - StringGrid satrini yozuvlar massiviga o'tkazish siklini takrorlash .
Bloklar 11,12 - faylga yozish.
Blok 13 - faylni yopish.
Blok 14 - tasdiqlash eslatmasi maydonida chiqish .



1

Начало



assignfile(filezap,filenamezap);

2





rewrite(filezap);
n:=0;

3





4

n = 0



5



n = 0, 200, 1



Mzap[n].prod:='';
Mzap[n].onng:=0;
Mzap[n].plan:=0;
Mzap[n].onkg:=0;
Mzap[n].svocep:=0;





6



7



n = 1



8



n = 1, sg1.rowcount, 1



Нет

Да

9

sg1.Cells[0,n]<>''





10

Mzap[2*n].prod:=sg1.Cells[0,n];
Mzap[2*n].onng:=strtoint(sg1.cells[1,n]);
Mzap[2*n].plan:=strtoint(sg1.cells[2,n]);
Mzap[2*n].onkg:=strtoint(sg1.cells[3,n]);
Mzap[2*n].svocep:=strtofloat(sg1.cells[5,n]);