#99 Article 549 Posted at 1992/11/15 00:19:17 by Mai (MAP2260) [PASCAL.Q]
Subject: Re: ３５５割る１１３とは流石に結果が違う。 /548
えーと、writelnの桁数指定を変えればＯＫです。 具体的には、 Program Pitest; var v:extended; begin v:=Pi; writeln(v:1:20); writeln(Pi:1:20); end. ってな感じになります。 これで、コンパイル＆実行結果は、 E:\>tpc /TA:\LANG\TURBO /$N+ /$E- pi Turbo Pascal Version 6.0 Copyright (c) 1983,90 Borland International PI.PAS(7) 7 lines, 4896 bytes code, 690 bytes data. E:\>pi 3.141592653589793240 3.141592653589793240 となりますね。 ＴＨＥＬＰによれば、Pi=3.1415926535897932385まで定義されてるようですが、 この辺は演算精度の問題かな？ Ｍａｉ Ｐ．Ｓ．サイズが小さいのは、＄Ｎ－でコプロエミュレートを切ってるからです。 （うちは￥８５００なりの８０Ｃ２８７装備ですから。）