Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Pascal

Idiom #248 Construct a 64-bit floating-point value

Construct the "double precision" (64-bit) floating point number d from the mantissa m, the exponent e and the sign flag s (true means the sign is negative).

uses SysUtils;
d.buildup(s, m, e);
d = (s?-1:1) * m * double.Exp10(e);
New implementation...
< > ⌨
Bart 
d.buildup(s, m, e);
d = (s?-1:1) * m * double.Exp10(e);
  if (s) then
    d = -m * radix(d)**e
  else
    d =  m * radix(d)**e
  end if


if s {
	m = -m
}
d := math.Ldexp(m, e)
$d = ($s?-1:1) * "${m}e${e}"; 
sign = -1 if s else 1
d = math.ldexp(sign*m,e)
d = (s ? -1 : 1) * Math::ldexp(m, e)
let d = if s { -1.0 } else { 1.0 } * m as f64 * 2.0f64.powf(e as f64);