LN

Mencari logaritma natural dari suatu bilangan

Contoh:

Uses crt;

Var angka:real;

Begin

Clrscr;

Write(‘Ketikan angka Integer atau real : ’);readln(angka);

Writeln(‘LN  2 dari :’,angka:0:2,’=’,ln(angka):0:2);

Readln;

End.

Berhubung Turbo Pascal tidak menyediakan perintah untuk mencari pangkat tertentu dari suatu bilangan  misalnya(pangkat 3 dari suatu bilangan atau pangkat 4 dari suatu bilangan dan seterusnya),maka exp dan Ln dapat digunakan untuk mencari pangkat sembarang tersebut.

Contoh;

Uses crt;

Var angka:real;

P:integer;

Begin

Clrscr;

Write(‘Ketik suatu angka: ‘);readln(angka);

Writeln;

For p:=2 to 22 do

Writeln(‘pangkat’,p,’dari’,angka:0:2,’=’,exp(ln(angka)*p):0:2);

Writeln;

Readln;

End.

Berikut ini contoh logarithma dengan bilangan dasar 10 dengan menggunakan perintah Ln.

Uses crt;

Var angka:real;

Begin

Clrscr;

Write(‘Ketik Suatu Angka Integer Atau Real: ‘);readln(angka);

Write(‘Log dari ’,angka:0:2,’=’,Ln(angka)/Ln(10):0:2);

Readln;

End.

Kembali ke Contoh Program Turbo Pacal