活期储蓄利率计算

Author: 北京帖建章 Date: 1992-06-12

        4 HOME
        80 PRITN"####活期储蓄计算程序####"
        82 PRINT
        84 PRINT"请键入前次与本次的存取款日期："
        86 PRINT
        100 INPUT“格式为：年，月，日”；N1，Y1，R1
        110 INPUT“格式为：年，月，日”；N2，Y2，R2
        130 LET Z2=N2-N1
        132 IF N2<N1 THEN PRINT“输入数据错误，请重来。”：GOTO 100
        140 LET Z3=Y2-Y1
        150 LET Z4=R2-R1
        152 PRINT：“请键入余额(钱数)：”
        160 INPUT“格式为：元，角，分”；Q1
        170 Q2=INT(Q1)
        180 LET B2=.0810*Z2*Q2:B6=INT(B2*100+.5)/100
        190 LET B3=.0015*Z3*Q2:B7=INT(B3*100+.5)/100
        200 LET B4=.00005*Z4*Q2:B8=INT(B4*100+.5)/100
        210 LET B5=B6+B7+B8+Q1
        220 PRINT“您的本息合计为：”；B5；“元”
        222 PRINT
        230 INPUT“按1键，回车__结束!按空格键，回车__继续!”；Y
        240 IF HFODO4
        45 ME0PRINT:PRINT
        250 PRINT“再见!”：END