mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
9 lines
90 B
ObjectPascal
9 lines
90 B
ObjectPascal
Function Log(const b,r:real):real;
|
|
begin
|
|
log:=ln(r)/ln(b);
|
|
end;
|
|
|
|
begin
|
|
log(2,5);
|
|
end.
|