前ページの商と余りを求めるプログラム は、 標準装備された関数を使わなくとも、 標準装備された演算子のみを使って作ることもできます。

商と余りを求めるプログラム （ その２ ）
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


　 JIS Full BASIC にも、 乗する （ ＾ ） の演算子が標準装備されていますが、 限られた範囲の数の演算においては、 もう少し次元の低い演算子である かける （ * ） を使って、 それと同じ演算をすることができます。

ｎ （ ｎ は 自然数 ） 乗する
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


　 JIS Full BASIC にも、 かける （ * ） の演算子が標準装備されていますが、 限られた範囲の数の演算においては、 原始的演算子の たす （ ＋ ） を使って、 それと同じ演算をすることができます。

自然数をかける掛け算
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


　 JIS Full BASIC にも、 原始的演算子である たす （ ＋ ） や 引く （ − ） が標準装備されていますが、 限られた範囲の数の演算においては、 さらに原始的な演算子の 「 1 を加える （ ＋1 ）」 や 「 1 を引く （ −1 ）」 を使って、 それと同じ演算をすることができます。

自然数をたす足し算
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


　 ＜ コピぺ用の小窓 ＞