mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 08:53:42 +02:00
11 lines
147 B
ObjectPascal
11 lines
147 B
ObjectPascal
Program Example19;
|
|
|
|
{ Program to demonstrate the ldexp function. }
|
|
|
|
Uses math;
|
|
|
|
begin
|
|
writeln(ldexp(2,4):8:4);
|
|
writeln(ldexp(0.5,3):8:4);
|
|
end.
|