タイトル | : SQRの単精度と倍精度の表示検証ソース |
投稿日 | : 2024/04/08(月) 23:33 |
投稿者 | : konno | 番 号 | : 11206 11205 番 としき さんへのコメント コメント数 1 |
> ということで、今回の結果を出した検証プログラム、#11195に載っているものと> 大体同じものだと思いますが、念のため、もう一度示してください。重要なのは表示> でして、同じような表示にしたいので表示部は必須。DOSVAXJ3 の32ビット版をJ31モードにして TBasicインタプリタが起動できました。 結構互換性があるのね。 それで、ソースをリナンバーしてみました。 RENUM 3000 これで、3000 から始まる行番号にキチンと並べ替えられました。\(^^)/ ヤッタ- ではそのソースを貼り付けます。 3000 ' SQR-3.BAS 3010 DEFDBL A-Z 3020 'defsng a-z 3030 'screen 0 3040 CLS 3050 INPUT S 3060 OPEN "SQR.dat" FOR OUTPUT AS #1 3070 CC=0 3080 X = S / 2! '; // Is there any better way to determine initial value? 3090 LASTX = 0! '; // the value one before the last step 3100 'while ( x != lastx ) '// until the difference is not significant 3110 LASTX = X 3120 X = (X + S / X) / 2! 3130 CC=CC+1 3140 PRINT "div=";LASTX-X, X,LASTX,CC 3150 PRINT#1,"div=";LASTX-X, X,LASTX,CC 3160 IF X < LASTX THEN 3100 3170 PRINT "SQR(";S;")=";X,LASTX,CC 3180 PRINT#1, "SQR(";S;")=";X,LASTX,CC 3190 CLOSE 3200 INPUT A 3210 END このままで J31 と PC-98 で動くと思います。
- No.11206 一括表示へ - コメント元:11205 一括表示へ - [ 返信 ] [引用無し] pre