Mavzu: Delphi dasturlash tilida sikllar

1

Начало



2



n = 1, sg1.rowcount, 1





Нет

Да

3

Sg1.cells[0,n]<>''



D

C

B

А



D

C

B

А

4

Sg1.cells[4,n]:=inttostr(strtoint(cells[1,n])+strtoint(cells[2,n])-strtoint(cells[3,n]));

Sg1.cells[6,n]:=floattostr(strtoint(cells[4,n])*strtofloat(cells[5,n])/1000);

Да

5



Нет



Sg1.cells[6,n]>max



6

L = n



max = Sg1.cells[6,n]

7













8



memo1.lines



9

Конец

7. bazani saqlash tartibi: 6 -tugmani bosing .