mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-14 16:32:36 +02:00
16 lines
291 B
ObjectPascal
16 lines
291 B
ObjectPascal
Program Example23;
|
|
|
|
{ Program to demonstrate the logn function. }
|
|
|
|
Uses math;
|
|
|
|
begin
|
|
Writeln(Logn(3,4):8:4);
|
|
Writeln(Logn(2,4):8:4);
|
|
Writeln(Logn(6,9):8:4);
|
|
Writeln(Logn(exp(1),exp(1)):8:4);
|
|
Writeln(Logn(0.5,1):8:4);
|
|
Writeln(Logn(0.25,3):8:4);
|
|
Writeln(Logn(0.125,5):8:4);
|
|
end.
|