- . 97


(GURU)

 

prob.ipf

clear

perform "err1.iff"

perform "err3.iff"

perform "dream.iff"

perform "vvod.iff"

perform "vvod1.iff"

perform "viv.iff"

perform "buh.iff"

perform "menu1.iff"

putform menu1

e.sord="f"

e.rigr="a"

e.cfco="m"

e.cfjo="m"

e.cfva="pp"

e.dtyp="d"

e.help=true

e.lstr=75

k=0

n=" "

v=" "

a=" "

clear

putform vvod

getform vvod

otv=1

while otv<>0

e.deci=0

while 1=1 do

clear

putform vvod1

putform menu1

otv=0

at 19,58 input otv int using "d"

if otv<>0 and otv<>1 then

putform err1

wait

continue

endif

if otv=1 then

clear

putform buh

getform buh

clear

putform dream

consult fin

likv={true cf 0,false cf 0}

endif

if otv=0 then

return

endif

endwhile

 

" " fin.rss

 

GOAL: sost

INITIAL:

perform "esvar.iff"

e.lstr=80

e.deci=2

ust=unknown

plat=unknown

likv=unknown

bal=unknown

sost=unknown

d=ds+kv

kt=kb+kbr+kp

ec=ist-f-z

et=ec+kkt

es=et+kt

kal=d/(rpp+ko)

kl=rra/(rpp+ko)

kp=((z-rbp)+rra)/(rpp+ko)

a1=d

a2=rra-d

a3=z+ft+rta

p1=rk+ko

p2=kt

p3=kkt+rtp

a11=a1-p1

a12=a2-p2