BASIC言語について。

以下のURLで、うまくいかなかったものがあるのですが、教えていただけないでしょうか？これを使いながらやっています。
http://worholicanada.mydns.jp/pc98/00301.html
3つほどあります。
後ほど写真で送ります。

質問者からの補足コメント

• 

  まず、1枚目です。

  
    補足日時：2022/02/20 21:50

• 

  2枚目です。これをどのようにプログラムを直せば動くのでしょうか？教えていただけると幸いです。すみません。

  
    補足日時：2022/02/20 21:54

• 

  3枚目も同様です。

  
    補足日時：2022/02/20 21:54

No.2 ベストアンサー 回答者： usa3usa 回答日時： 2022/02/22 09:43

>2枚目と3枚目の写真はどの様に直せば実行可能なのでしょうか？

NO1>N88-BASICは、IFブロックが構造化できません。
IFブロックが構造化できないということですので、

100 IF X<=2 THEN goto 300
200　X>2の時の処理
299 goto 400
300 X<=2の時の処理
400

とすればよいということです

この回答へのお礼

2枚目と3枚目は、N88で、プログラムを直して実行することはできないのでしょうか？また、3枚のこれらのプログラムを実行可能なサイトはないのでしょうか？教えていただけると幸いです。すみません。

お礼日時：2022/02/22 16:03

No.3 回答者： usa3usa 回答日時： 2022/02/22 17:46

No2です

>2枚目と3枚目は、N88で、プログラムを直して実行することはできないのでしょうか？

だ・・か・・ら・・
2枚目と3枚目のIFブロックを
IF …　GOTO 300
　: X>2の時の処理
299 GOTO 400
300
: X<=2の時の処理
400

のように書き換えれば、N88で、実行できますよ

＞3枚のこれらのプログラムを実行可能なサイトはないのでしょうか？教えていただけると幸いです。
あるかも知れませんが、私は知りませんし、この程度の直しはプログラミングの基本という気がしますので、ご自分の力で修正チャレンジしてみてください。

No.1 回答者： neKo_deux 回答日時： 2022/02/20 23:21

N88-BASICは、IFブロックが構造化できません。

100 N=0
110 X=1
120 IF X<=2 THEN N=N+1:X=X*1.05 ELSE GOTO 170
150 GOTO 120
170 PRINT N
180 END

とか。

この回答へのお礼

2枚目と3枚目の写真はどの様に直せば実行可能なのでしょうか？教えていただけると幸いです。すみません。

お礼日時：2022/02/21 16:10