タイトル | : Re^6: TurboBasicで素数を表示カウントする PRIME2.EXE |
投稿日 | : 2024/03/12(火) 23:45 |
投稿者 | : konno | 番 号 | : 11162 11160 番 としき さんへのコメント |
> マジでN88-BASICに移植することを考えています。> で、まだ逐語的な変換には手をつけていないのですが。私も気になったので、NP2 でやってみました。(^^; N88BASIC.EXE は画面がピンクになって動かないみたいです。(>_<) BASIC.COM がコンパイラなんですね。無事コンパイルしたのを実行したら、 入力した数字が素数かどうかを表示するのですね。(^^;> 気になったのがここ。> if dsp=1 then print#1,"":gosub 1010> if n>2000 then gosub 1000 'output> dsp=1 かつ n>2000 のときは2回出力されるようなんですが、これって仕様的に> なんとなく妙な気がします。これで正しいのですよね?もちろんまずいです。(^^; いい加減なだけでした。> あと、変数 j2 と j3 も、何をやっているのかよくわからない。> この2つを足し算しているところもあるし。これですね。 810 if i<j2 then return 'dsp2でカウント表示 j2=j2+j3 820 LOCATE 5,1:PRINT i; ' j2 は表示するまでのカウント数かな? j3 はオプションの数字で、カウントがこの数字以上になったら次の数字ぶん表示しない という感じですかね。ほとんど意味がないようですが。(^^;
- No.11162 一括表示へ - コメント元:11160 一括表示へ - [ 返信 ] [引用無し] pre