mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-21 12:59:27 +01:00
8 lines
89 B
ObjectPascal
8 lines
89 B
ObjectPascal
Function Log(const b,r:real):real;
|
|
begin
|
|
log:=ln(r)/ln(b);
|
|
end;
|
|
|
|
begin
|
|
log(2,5);
|
|
end. |