タイトル | : Re^3: SQRの単精度と倍精度の表示検証ソース |
投稿日 | : 2024/04/10(水) 17:44 |
投稿者 | : としき |
参照先 | : http://toshiki.la.coocan.jp/ | 番 号 | : 11209 11208 番 konno さんへのコメント コメント数 2 |
> もちろん 169 が素数と表示されます。ちょっと残念というか、当然と思えることがおきなければそれも手がかりになる かな、と思っていたわけですよ。 それで、しつこくお尋ねしていた次第。> ところで、USING を使ってみたら違いが表示されました。やっぱりそうでしたか。> 98実機ではどうなるでしょうね。とりあえず、試したいことリスト。 すでに試し済みのものもあるかも。 #11208のpn88.bas、倍精度と単精度 #11175のPN88.BASでNを単精度にしただけのもの そして、#11175のN88P.BASの改造版、以下。 N88P0410.BAS 100 INPUT N 110 IF N MOD 2=0 THEN ELSE *ELSE1 120 IF N=2 THEN PRINT "素数" ELSE PRINT "合成数" 130 GOTO *ENDIF1 140 *ELSE1 150 I=3 160 WHILE (I<=SQR(N)) AND (N MOD I<>0) 165 PRINT I,SQR(N) 170 I=I+2 180 WEND 190 IF I<=SQR(N) THEN PRINT "合成数" ELSE PRINT "素数" 200 *ENDIF1 210 END これも、Nを単精度と倍精度にしたものの2つ。 今のところ、思いつくのはこのくらい。 あ、そうだ、konnoさんのコードだとプログラム終了のところに必ずinputがあるの ですが、これ、コンパイラだとあったほうがいいのですか? それとも他の事情? いえ、うちのインタプリタだと、必ず最後に入力プロンプトの「?」がはいるのが うざいというかうっとうしくて。
- No.11209 一括表示へ - コメント元:11208 一括表示へ - [ 返信 ] [引用無し] pre