關於平方函數sqr |
|
答題得分者是：Chance36
|
|
inglong
初階會員   發表：28 回覆：27 積分：36 註冊：2004-08-13 發送簡訊給我 |
|
|
richtop
資深會員 發表：122 回覆：646 積分：468 註冊：2003-06-10 發送簡訊給我 |
inglong 您好： 程式的數值有其一定的範圍，所以無法完全將超過其容量的資料正確儲存。
可能要用其他方式來達到您的要求，請參考下列連結：
http://delphi.ktop.com.tw/topic.php?topic_id=49456 RichTop 敬上 =====*****
把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！
=====#####
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
inglong 你好
Var a : Extended; begin a := 1000000; ShowMessage(FloatToStr(Sqr(a))); //=====> 1000000000000 ShowMessage(FloatToStr(Sqr(1000000))); //=====> 結果是錯誤的 ShowMessage(FloatToStr(Sqr(1000000.0)));//=====> 結果正確 end; 由以上觀察得知,sqr的參數須明確的指定為Extended的型態即可正確反應結果 各型態的有效數值範圍如下(Delphi HELP提供) Real48 2.9 x 10^-39 .. 1.7 x 10^38 Single 1.5 x 10^-45 .. 3.4 x 10^38 Double 5.0 x 10^-324 .. 1.7 x 10^308 Extended 3.6 x 10^-4951 .. 1.1 x 10^4932 Comp -2^63 1 .. 2^63-1 Currency -22337203685477.5808.. 922337203685477.5807_______________________________________ 深藍的魚，祝您好運..........連連 |
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
inglong
初階會員 發表：28 回覆：27 積分：36 註冊：2004-08-13 發送簡訊給我 |
發表時間：2004-08-13 23:21:38
IP:61.231.xxx.xxx 未訂閱
系統時間：2024-05-17 15:13:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |