program cambiobase;
(* logaritmi con diverse basi *)

uses crt;

var basenota, basex :real;
var a,b :real;
var logbasex:real;

begin

writeln('il logaritmo di un numero(a) in una data basex');
writeln('si calcola come quoziente');
writeln('del logaritmo del numero in base nota(es.e)');
writeln('e il logaritmo in base nota (es.e) della basex)');
writeln('.................................................');
writeln('esempio basenota = base e; basex = 10 ; numero a= 100');
writeln('calcolo il logaritmo in basex(10) del numero a (100)');
writeln('logbasex = loge(a)/loge(basex)');
writeln('..................................................');

writeln('esempio :cerco logaritmo in base 10 in funzione di base nota neperiana e');
basex:=10;
a:=100;
basenota:=2.718282;
logbasex:=ln(a)/ln(basex);
writeln(logbasex:2:5);

readln;
clrscr;
end.

program cambiobase;
(* logaritmi con diverse basi qbasi1c*)

uses crt;

var basenota, basex :real;
var a,b :real;
var logbasex:real;

begin

writeln('il logaritmo di un numero(a) in una data basex');
writeln('si calcola come quoziente');
writeln('del logaritmo del numero in base nota(es.e)');
writeln('e il logaritmo in base nota (es.e) della basex)');
writeln('.................................................');
writeln('esempio basenota = base e; basex = 2 ; numero a= 64');
writeln('calcolo il logaritmo in basex(2) del numero a (64)');
writeln('logbasex = loge(a)/loge(basex)');
writeln('..................................................');

writeln('esempio :cerco logaritmo in base 2 in funzione di base nota neperiana e');
basex:=2;
a:=64;
basenota:=2.718282;
logbasex:=ln(a)/ln(basex);
writeln(logbasex:2:5);
writeln('infatti verifico ');
writeln(exp(logbasex*ln(basex)):5:1);

readln;
clrscr;
end.

program cambiobase;
(* logaritmi con diverse basi qbasid*)

uses crt;

var basenota, basex :real;
var a,b :real;
var logbasex:real;

begin

writeln('il logaritmo di un numero(a) in una data basex');
writeln('si calcola come quoziente');
writeln('del logaritmo del numero in base nota(es.e)');
writeln('e il logaritmo in base nota (es.e) della basex)');
writeln('.................................................');
writeln('esempio basenota = base 10; basex = 4 ; numero a= 256');
writeln('calcolo il logaritmo in basex(4) del numero a (256)');
writeln('logbasex = loge(a)/loge(basex)');
writeln('..................................................');

writeln('esempio :cerco logaritmo in base 4 in funzione di base nota  10');
basex:=4;
a:=256;
basenota:=10;
logbasex:=ln(a)/ln(basex);
writeln(logbasex:2:5);
writeln('infatti verifico ');
writeln(exp(logbasex*ln(basex)):5:1);

readln;
clrscr;
end.