Study note of 十進Basic
By Osaka bar association belonging lawyer Goemon
No7 Hoffmann Coefficient
input a , b , c
let c = 1/(1+b)+1/(1+2b)･･････1/(1+ab)
print c
end
??????????
input a , b
for a = 1 to a step 1
1/(1+ab)
next a
No6 Principal and interest evenness payoff calculation
INPUT a,n,r
LET w=r/(1-1/(1+r)^n)
LET y=w*a
PRINT y
END
No5 Leibniz Coefficient
INPUT a,b
LET c=(1-1/(1+b)^a)/b
PRINT c
END
No4 Even payoff calculation
INPUT p,r,b,c
LET r=r/12
LET d=0
FOR d=1 TO c
LET p=p-b+p*r/100*d/365
next D
PRINT p
END
No3 Heron's formula
INPUT a,b,c
LET d=(a+b+c)/2
LET S=SQR(d*(d-a)*(d-b)*(d-c))
PRINT s
END
No2
INPUT p,i,f ! Principal Interest Considering interest
LET r=(i+f)/p*100
PRINT r
END
No1
Let A=2 Substitute two for variable A.
Let B=3
Let C=A+B
Print C
End
Studay Pc-E650
b reset pf1 and pf1 freo enter 61368 ok
リチウム電池 CR2016