program logaritmo;
(* definizione di logaritmo qpotenza4*)
uses crt;
var a,b,c,d,e :real;
    base :real;

function potenza(base:real;n:real):real;
begin
   potenza:=exp(n*ln(base));
    end;

begin
writeln('k = logx(n) se x^k = n ');
writeln('si definisce k logaritmo in base x del numero n ');
writeln('se la base x elevata allo esponente k genera il numero n');
writeln('..............................................');
writeln('a           = log10(15)     : infatti 10^a = 15');
writeln('b           = log10(40)     : infatti 10^b = 40');
writeln('c           = log10(150)    : infatti 10^c = 150');
writeln('d           = log10(350)   : infatti 10^d  = 350');
writeln('e           = log10(400)   : infatti 10^e  = 400');
readln;
clrscr;
base:=10;

a:=1.17609;
b:=1.60206;
c:=2.17609;
d:=2.54407;
e:=2.60206;
writeln('eseguo verifica usando la funzione potenza ');
writeln('log = a : ',potenza(base,a):6:2);
writeln('log = b : ',potenza(base,b):6:2) ;
writeln('log = c : ',potenza(base,c):6:2);
writeln('log = d : ',potenza(base,d):6:2);
writeln('log = e : ',potenza(base,e):6:2);
readln;
clrscr;
end.

program logaritmo;
(* definizione di logaritmo qpotenza5*)
uses crt;
var a,b,c,d :real;
    base :real;

function potenza(base:real;n:real):real;
begin
   potenza:=exp(n*ln(base));
    end;

begin
writeln('k = logx(n) se x^k = n ');
writeln('si definisce k logaritmo in base x del numero n ');
writeln('se la base x elevata allo esponente k genera il numero n');
writeln('..............................................');
writeln('a           = loge(1)      : infatti e^a = 1');
writeln('b           = loge(10)     : infatti e^b = 10');
writeln('c           = loge(100)    : infatti e^c = 100');
writeln('d           = loge(1000)   : infatti e^d = 1000');
readln;
(* base logaritmi neperiani *)
base:=2.718282;
writeln(' a=0.0000 ; b=2.30259 ; c=4.60157 ; d=6.90276 ');
a:=0.00000;
b:=2.30259;
c:=4.60157;
d:=6.90276;
writeln('eseguo verifica usando la funzione potenza ');
writeln('log = a : ',potenza(base,a):6:2);
writeln('log = b : ',potenza(base,b):6:2) ;
writeln('log = c : ',potenza(base,c):6:2);
writeln('log = d : ',potenza(base,d):6:2);
readln;
clrscr;
end.