База данных страховой компании
Категория реферата: Рефераты по страхованию
Теги реферата: изложение 8 класс русский язык, персонал реферат
Добавил(а) на сайт: Sitnikov.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
' ADD(YU)
CLEAR(ST)
ST='¦ ¦ Доход (балансовая ¦ Уставный
¦ Страховые ¦ Доход (балансовая прибыль) в % к ¦'
ADD(YU)
CLEAR(ST)
ST='¦ Наименование ¦ прибыль (убыток) ¦ капитал
¦ взносы
¦'
ADD(YU)
CLEAR(ST)
ST='¦ ¦ ¦
¦ ¦ уставному капиталу ¦ страховым взносам¦'
ADD(YU)
CLEAR(ST)
ST='¦ страховой организации
¦'
ADD(YU)
CLEAR(ST)
ST='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦
1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦ 1992 ¦ 1993 ¦'
ADD(YU)
CLEAR(ST) ST='
'
ADD(YU)
CLEAR(ST)
ST='¦ 1 ¦ 2 ¦ 3 ¦ 4 ¦ 5
¦ 6 ¦ 7 ¦ 8 ¦ 9 ¦ 10 ¦ 11
¦'
ADD(YU)
CLEAR(ST) ST='
'
ADD(YU)
CLEAR(ST)
CREATE(YU1)
STT='АНАЛИЗ ПОКАЗАТЕЛЕЙ РАЗВИТИЯ СТРАХОВЫХ ОРГАНИЗАЦИЙ '
STT=CENTER(STT)
ADD(YU1)
CLEAR(STT)
STT=' (продолжение)'
ADD(YU1)
CLEAR(STT) STT='
'
ADD(YU1)
CLEAR(STT)
STT='¦ ¦ С т р а х о в ы е ¦ Доход от
инвес- ¦ Доход от инвест-я страх-х рез-в в % к ¦'
ADD(YU1)
CLEAR(STT)
STT='¦ Наименование ¦ р е з е р в ы ¦
тирования стра- ¦'
ADD(YU1)
CLEAR(STT)
STT='¦ ¦ ¦ ховых
резервов ¦ уставному капиталу ¦ страховым взносам ¦'
ADD(YU1)
CLEAR(STT)
STT='¦ страховой организации
¦'
ADD(YU1)
CLEAR(STT)
STT='¦ ¦ 1994 ¦ 1995 ¦ 1994 ¦
1995 ¦ 1994 ¦ 1995 ¦ 1994 ¦ 1995 ¦'
ADD(YU1)
CLEAR(STT) STT='
‘
ADD(YU1)
CLEAR(STT)
STT='¦ 1 ¦ 12 ¦ 13 ¦ 14 ¦
15 ¦ 16 ¦ 17 ¦ 18 ¦ 19 ¦'
ADD(YU1)
CLEAR(STT)STT='
ADD(YU1)
CLEAR(STT)
INS:NTER=0
SET(INS:K1,INS:K1)
LOOP UNTIL EOF(INSP) ! 1
NEXT(INSP)
PN#=0
if ins:nter>23 ! 2
THEN
ST2=CLIP(INS:NAME)&' инспекция'
ST02=CLIP(INS:NAME)&' инспекция'
ELSE
ST2='Инспекция '
ADD(yu)
ST2=INS:NAME
ST02='Инспекция '
ADD(YU1)
ST02=INS:NAME. ! 2
TER:KODT=INS:NTER
SET(TER:K1,TER:K1)
LOOP UNTIL EOF(TERR) ! 3
NEXT(TERR)
IF TER:KODTINS:NTER THEN BREAK.
IF INS:NTER>23 AND PN#=0 ! 4
F:NKUST=INS:NTER
GET(F,F:K1)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0
ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
PN#=1
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU1)
ADD(YU).
! 4
XRE:NREGION=TER:NREGION
SET(XRE:K1,XRE:K1)
LOOP UNTIL EOF(XREG)
! 5
NEXT(XREG)
IF XRE:NREGIONTER:NREGION THEN BREAK.
IF INS:NTER>23
ST2=XRE:IREG.
ST02=ST2
F:NREGION=XRE:NREGION
GET(F,F:K2)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0
ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0
ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0
ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0
ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0 ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0 ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST4>0
ST20=ST16/ST4*100.
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU)
ADD(YU1)
GOR:GOROD=' '
SET(GOR:CGOR,GOR:CGOR)
LOOP UNTIL EOF(GOR) ! 6
NEXT(GOR)
IF GOR:NREGIONXRE:NREGION THEN CYCLE.
F:NGOR=GOR:KG
GET(F,F:K3)
IF F:F5>0
ST3=F:F5.
IF F:F6>0
ST4=F:F6.
IF F:F1>0
ST5=F:F1.
IF F:F2>0
ST6=F:F2.
IF F:F11>0
ST7=F:F11.
IF F:F12>0
ST8=F:F12.
IF ST3>0 AND ST5>0 ST9=ST3/ST5*100.
IF ST4>0 AND ST6>0 ST10=ST4/ST6*100.
IF ST3>0 AND ST7>0 ST11=ST3/ST7*100.
IF ST4>0 AND ST8>0 ST12=ST4/ST8*100.
IF F:F3>0
ST13=F:F3.
IF F:F4>0
ST14=F:F4.
IF F:F9>0
ST15=F:F9.
IF F:F10>0
ST16=F:F10.
IF ST15>0 AND ST13>0
ST17=ST15/ST13*100.
IF ST16>0 AND ST14>0
ST18=ST16/ST14*100.
IF ST15>0 AND ST3>0
ST19=ST15/ST3*100.
IF ST16>0 AND ST14>0
ST20=ST16/ST4*100.
IF ~ST AND ~STT THEN CYCLE.
ST2=GOR:GOROD
ST02=GOR:GOROD
ADD(YU)
CLEAR(ST)
ADD(YU1)
CLEAR(STT)
ADD(YU)
ADD(YU1)
LIC:NREGION=XRE:NREGION
LIC:KNAM=' '
SET(LIC:CNREG,LIC:CNREG)
LOOP UNTIL EOF(LIC)
! 7
NEXT(LIC)
IF LIC:NREGIONXRE:NREGION THEN BREAK.
IF LIC:NCITYGOR:KG THEN CYCLE.
(T67:RECORD)
T67:PNOMBER=LIC:PNOMBER
GET(T67,T67:C)
IF ~ERRORCODE()
IF T67:A400N>0
ST5=T67:A400N/1000.
IF T67:A400K>0
ST6=T67:A400K/1000.
IF T67:A495N>0
ST13=T67:A495N/1000.
IF T67:A495K>0
ST14=T67:A495K/1000..
CLEAR(T17:RECORD)
T17:PNOMBER=LIC:PNOMBER
GET(T17,T17:C)
IF ~ERRORCODE()
! 8
IF T17:F018>0
! 9
THEN
ST4=T17:F018/1000
ELSE
IF T17:F020>0
! 10
ST4=-T17:F020/1000..
! 9, 10
IF T17:F001>0
ST8=T17:F001/1000.
IF T17:F004>0
ST16=T17:F004/1000..
! 8
CLEAR(F92:RECORD)
F92:PNOMBER=LIC:PNOMBER
GET(F92,F92:FC)
IF ~ERRORCODE()
! 11
IF F92:F19>0
THEN
ST3=F92:F19/1000
ELSE
IF F92:F21>0
ST3=-F92:F21/1000..
Рекомендуем скачать другие рефераты по теме: культура шпаргалки, сочинения по русскому языку, рефераты на казахском.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата