！商と余りを求めるプログラム （ その２ ）：
10 INPUT PROMPT "割られる方の自然数は？　":n
20 INPUT PROMPT "割る方の自然数は？　":m
30 PRINT
40 LET L=n
50 LET k=0
60 IF n<m THEN GOTO 140
70 FOR I=1 TO n
80    LET n=n-m
90    LET k=k+1
100    IF n<m THEN GOTO 120
110 NEXT I
120 PRINT L;"÷";m;"＝ ";k;" あまり ";n
130 GOTO 150
140 PRINT n;"÷";m;"＝　０ あまり ";n
150 END



！ｎ乗する：
10 INPUT PROMPT " ○乗します。 小数を入力してください。 （ 負の数も加 ） ": n
20 INPUT PROMPT " 何乗しますか？ 自然数を入力してください。": m
30 PRINT
40 LET k=1
50 FOR I=1 TO m
60    LET k=k*n
70 NEXT I
80 PRINT n;"の";m;"乗は ";k;" です。"
90 END



！自然数をかける掛け算：
10 INPUT PROMPT "かけられる小数は？（ 負の数でも可 ）　":n
20 INPUT PROMPT "それにかける自然数は？　":m
30 PRINT
40 LET k=0
50 FOR I=1 TO m
60    LET k=k+n
70 NEXT I
80 PRINT n;"×";m;"＝ ";k
90 END



！足し算：
10 INPUT PROMPT "足される小数は？（ 負の数でも可 ）　":n
20 INPUT PROMPT "それに足す自然数は？　":m
30 PRINT
40 LET L=n
50 FOR I=1 TO m
60    LET n=n+1
70 NEXT I
80 PRINT L;"+";m;"＝ ";n
90 END



！引き算：
10 INPUT PROMPT "引かれる小数は？（ 負の数でも可 ）　":n
20 INPUT PROMPT "それから引く自然数は？　":m
30 PRINT
40 LET L=n
50 FOR I=1 TO m
60    LET n=n-1
70 NEXT I
80 PRINT L;"−";m;"＝ ";n
90 END