N88-BASICでFizzBuzz

2024/5/20(月)
 
N88-BASICでFizzBuzz
 
■ 有名な問題
i = 1,2,3, … ,100が
3の倍数ならFizz
5の倍数ならBuzz
3と5の倍数ならFizzBuzz
と表示する
 
■ VL-BASIC用(fizz001v.bas)
150 FOR I=1 TO 100
160   IF I MOD 15 = 0 THEN
170     PRINT       "FizzBuzz";
180   ELSE IF I MOD 3 = 0 THEN
190     PRINT       "Fizz    ";
200   ELSE IF I MOD 5 = 0 THEN
210     PRINT       "Buzz    ";
220   ELSE
230     PRINT USING "###     "; I;
240   ENDIF
250 NEXT
 
■ N88-BASIC(NL-BASIC,XL-BASIC)用(fizz001.bas)
150 FOR I=1 TO 100
160   IF I MOD 15 = 0 THEN         ELSE *ELSE1
170     PRINT       "FizzBuzz";   :GOTO *ENDIF
180   *ELSE1:IF I MOD 3 = 0 THEN   ELSE *ELSE2
190     PRINT       "Fizz    ";   :GOTO *ENDIF
200   *ELSE2:IF I MOD 5 = 0 THEN   ELSE *ELSE3
210     PRINT       "Buzz    ";   :GOTO *ENDIF
220   *ELSE3
230     PRINT USING "###     "; I;
240   *ENDIF
250 NEXT
 
■ あとがき
N88-BASICには
ブロックIF分(IF / ELSE IF / ELSE / ENDIF)
がないのが不便で、あるとき思いついたのが
このような書き方です
 
VL,NL,XL-BASIC付属サンプル
A9/a2.bas(フラクタル図形シダ)でも
このブロックIF文の書き方をしています
 
 
VL,NL,XL-BASICとdlg～.zip(fizz001?.bas)は
このブログ(以下のリンク)から
ダウンロードできます
https://ulprojectmail.blogspot.com
Readme.txtを読んで遊んで下さい