10月20日のプログラム例

問題6

REM 数当てゲーム
RANDOMIZE
LET X=INT(RND*1000)+1
LET k=0
DO
   INPUT Y
   LET k=k+1
   IF X>Y THEN PRINT k;"回目　もっと大きい"
   IF X<Y THEN PRINT k;"回目　もっと小さい"
LOOP WHILE X<>Y
PRINT k;"回目で当たりました"
END


問題7
(1)
REM 人口の増加
LET P=100
LET k=0
DO
   LET P=P*(1+0.03)
   LET k=k+1
   PRINT  k;"年目の人口は";int(p*10000)/10000;"万人"
LOOP WHILE p<150
END

(2)
REM 積立貯金1
LET S=0
LET r=0.03
FOR k=1 TO 60
   LET S=S+10000
   LET S=S*(1+r/12)
   PRINT  k;"ヵ月後の元利合計は";INT(S);"円"
NEXT k
END

(3)
REM 積立貯金2
LET S=0
LET r=0.03
LET k=0
DO
   LET S=S+10000
   LET S=S*(1+r/12)
   LET k=k+1
   PRINT  k;"ヵ月後の元利合計は";INT(S);"円"
LOOP WHILE S<1000000
END

(4)
REM 車のローン
LET S=1000000
LET r=0.10
LET k=0
DO
   LET S=S*(1+r/12)
   LET S=S-20000
   LET k=k+1
   PRINT  k;"ヵ月後の借金残高は";INT(S);"円"
LOOP WHILE S>0
PRINT k;"ヶ月目の返済額は　";20000+INT(S);"円" 
END