Реферат: База данных страховой компании

ST18=ST16/ST15*100.

ADD(YU)

CLEAR(ST)

GOR:GOROD=' '

SET(GOR:CGOR,GOR:CGOR)

LOOP UNTIL EOF(GOR)

NEXT(GOR)

IF GOR:NREGION<>XRE:NREGION THEN CYCLE.

F:NGOR=GOR:KG

GET(F,F:K3)

IF F:F1>0

ST3=F:F1.

IF F:F2>0

ST4=F:F2.

IF F:F3>0

ST7=F:F3.

IF F:F4>0

ST8=F:F4.

IF F:F11>0

ST11=F:F11.

IF F:F12>0

ST12=F:F12.

IF ST3 OR ST4

ST5=ST4-ST3.

IF ST3>0 AND ST4>0

ST6=ST4/ST3*100.

IF ST7 OR ST8

ST9=ST8-ST7.

IF ST7>0 AND ST8>0