底が10のLogを求めます。底が20も同じようにできます




function Log10 (x:real):real;
begin
  Log10 := ln(x)/ln(10);
end;

REALはその都度、自分が必要なのに替えて下さい。たしか精度か速度か何か
の理由で使わないほうが良かったと思います。

いくら、「石」とはいっても、これは恥ずかしいぞぉ(^^ゞ

                                                   ゴンパパ

Original document by ゴンパパ        氏 ID:(NAH02027)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。