1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure test;
var  e1, e2 : extended;
begin
  e1 := 54.1;
  e2 :=  (frac (e1)) * 60;
  str (e2, s);
  showmessage (s);                        // 600000000000000E+0000  (wie erwartet)    
  showmessage (Inttostr (trunc (e2)));    // 5         (schock!)     
end;					

1:
2:
3:
4:
5:
6:

CeilMultiplication(a, b: Extended): Extended;
// returns r \in R >= a*b | r <= s \ForAll s \in R >= a*b
// guaranteed >= a*b multiplication approx.
FloorMultiplication(a, b: Extended): Extended;
// returns r \in R <= a*b | r >= s \ForAll s \in R <= a*b
// guaranteed <= a*b multiplication approx.