- . 98


a13=a3-p3

 

DO:

clear

putform viv

at 6,18 ? n

at 7,33 ? v

at 8,12 ? a

at 14,38 ? plat

at 15,33 ? cfn(plat,1) using "ddd"

at 17,36 ? ust

at 18,31 ? cfn(ust,1) using "ddd"

at 20,33 ? sost

at 21,28 ? cfn(sost,1) using "ddd"

at 23,11 ? #date

e.deci=0

at 24,1 ? " "

input ot int with "c y y? (1()/2()): "

if ot=1 then

clear

i=1

while i<=#HCNT do

clear

putform esvar

at 14,1 ? " "

why #HOW(i)

wait

i=i+1

endwhile

endif

 

RULE: OK1

IF: kal<=0.2

THEN: likv+=false cf 50

REASON: c cc, c c c c. c

RULE: OK2

IF: kal>0.2 and kal<=0.7

THEN: likv+=true cf 30

REASON: c cc, c 20-70 % c c. c

RULE: OK3

IF: kal>0.7 and kal<=1

THEN: likv+=true cf 50

REASON: c cc,

c

/ c c c.c

RULE: OK4

IF: kal>1

THEN: likv+=true cf 30

REASON: c cc, c

c c.c, - .

cc, ,

c

RULE: OK5

IF: kl<=0.6

THEN: likv+=false cf 60

REASON: ccc c y c c c . cc, . . ccc

RULE: OK6

IF: kl>0.6 and kl<=0.8