Given a real number a, print the fractional part and the exponent of the internal representation of that number. For 3.14, this should print (approximately)0.785 2
a = 3.14 print *,fraction(a), exponent(a)
#include <math.h> #include <stdio.h>
double d = 3.14; double res; int e; res = frexp(d, &e); printf("%f %d\n",res,e);
import "math"
fmt.Println(math.Frexp(a))
function frexp(a) { exponent = ( Math.floor(Math.log(a, 2)) + 1 ) mantissa = ( a * Math.pow(2, -a) ) return [ mantissa, exponent ] }
local function frexp(a) return math.frexp(a) end
uses math;
var d: double; Mantissa: double; Exponent: integer; begin d := 3.14; frexp(d, Mantissa, Exponent); writeln('Mantissa: ',Mantissa:6:5,', Exponent: ',Exponent); end.
use POSIX qw(frexp);
my ($mantissa, $exponent) = frexp $a; printf "%f %d\n", $mantissa, $exponent;
import math
print(math.frexp(a))
puts Math::frexp(a)
No security, no password. Other people might choose the same nickname.