今日のテーマ

タイトル	： 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 で動くと思います。

おなまえ
Ｅメール
タイトル
メッセージ auto soft pre(図表、プログラム) ※折り返さずに改行を入れてね
> > ということで、今回の結果を出した検証プログラム、#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 で動くと思います。 > >
参照先
暗証キー (英数字で8文字以内)
プレビュー