名前
題名
▼ Mr.XRAYさん > > LInteger := Trunc(5 * 0.01 * 100); > > ちょっと意味合いは違いますが， > 数値計算では演算の誤差を避けるために以下のような工夫をすることがあります． > > procedure TForm1.Button1Click(Sender: TObject); > var > LInteger : Integer; > begin > LInteger := Trunc(100 * 5 * 0.01); > > Memo1.Lines.Clear; > Memo1.Lines.Add(IntToStr(LInteger)); > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link