|
ｿｽ@ｿｽｿｽTruncｿｽﾖ撰ｿｽｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽﾈゑｿｽ 2011/04/01(ｿｽｿｽ) 14:41:44
ｿｽPｿｽｿｽｿｽﾈ趣ｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽ
var
iSuryoKei: Integer;
dblSuryoKei: Double;
begin
iSuryoKei := Trunc(dblSuryoKei);
dblSuryoKeiｿｽｿｽ1ｿｽﾌ場合ｿｽﾍ、iSuryoKeiｿｽｿｽ1ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽﾋ。
ｿｽfｿｽoｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽiSuryoKei = 0 ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
monaa 2011/04/01(ｿｽｿｽ) 16:14:37
ｿｽfｿｽoｿｽbｿｽOｿｽﾍ詳ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽﾏ撰ｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは不ｿｽvｿｽﾉなゑｿｽﾎ破ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾉ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾊゑｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽﾎ気ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾈゑｿｽ 2011/04/01(ｿｽｿｽ) 16:22:36
ｿｽｿｽｿｽLｿｽﾌようｿｽﾈに趣ｿｽｿｽﾛに使ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
Edit1.Text := 5;
Edit2.Text := 1;
Edit3.Text := 1;
Edit4.Text := 1;
Edit5.Text := 1;
Edit6.Text := 1;
ｿｽｿｽｿｽﾌ場合ｿｽﾍ、Edit7.Text := 0;
Edit1.Text := 1;
Edit2.Text := 1;
Edit3.Text := 1;
Edit4.Text := 1;
Edit5.Text := 1;
Edit6.Text := 5;
ｿｽｿｽｿｽﾌ場合ｿｽﾍ、Edit7.Text := 1;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
[ｿｽｿｽｿｽﾘソｿｽ[ｿｽX]
var
i: Real;
begin
i := StrToInt(Edit1.Text) * 0.1;
i := i + StrToInt(Edit2.Text) * 0.1;
i := i + StrToInt(Edit3.Text) * 0.1;
i := i + StrToInt(Edit4.Text) * 0.1;
i := i + StrToInt(Edit5.Text) * 0.1;
i := i + StrToInt(Edit6.Text) * 0.1;
Edit7.Text := IntToStr(Trunc(i));
monaa 2011/04/01(ｿｽｿｽ) 18:20:01
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ誤差ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ用ｿｽrｿｽｿｽｿｽｿｽRound()ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽTrunc()ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
r := r + 0.000000000001;
ｿｽﾆ趣ｿｽｿｽｿｽｿｽﾌ茨ｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽxｿｽﾌ鯉ｿｽｿｽEｿｽｿｽ闖ｬｿｽｿｽｿｽｿｽｿｽlｿｽｿｽﾏ奇ｿｽｿｽｿｽｿｽOｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ計ｿｽZｿｽｿｽｿｽxｿｽﾉつゑｿｽｿｽﾄは色ｿｽXｿｽﾈとゑｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽﾌでグｿｽOｿｽbｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
http://www.cc.kyoto-su.ac.jp/‾yamada/programming/float.html
ｿｽｿｽｿｽﾈみに、ｿｽﾏ撰ｿｽiｿｽﾍ通擾ｿｽAｿｽｿｽｿｽｿｽ(Integer)ｿｽｿｽiｿｽﾅゑｿｽｿｽｿｽﾅ托ｿｽｿｽﾌ人ｿｽｿｽｿｽﾇむと搾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾈゑｿｽ 2011/04/06(ｿｽｿｽ) 13:54:27
ｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽ差ｿｽｿｽｿｽﾅゑｿｽ謔､ｿｽﾈのゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽ10ｿｽ{ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
tor 2011/04/06(ｿｽｿｽ) 16:28:51
ｿｽｿｽｿｽｿｽｿｽ_ｿｽﾈ会ｿｽ4ｿｽｿｽｿｽﾜでの撰ｿｽｿｽxｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾆゑｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽACurrencyｿｽ^ｿｽｿｽgｿｽｿｽｿｽﾎ誤差ｿｽﾍ出ｿｽﾜゑｿｽｿｽｿｽｿｽB
