program usotabella;
(* uso della tabella logaritmica per gestione logaritmi in basi diverse *)
(* qbasi2a *)

uses crt;

var basex, lognumerox, logbasex, lognumero:real;

begin
writeln('per calcolare il logaritmo di un numero in una determinata basex');
writeln('usando la tabella logaritmica che fornisce le mantisse (positive..)');
writeln('si pu• procedere nel modo seguente:');
writeln('si calcola il logaritmo in base 10 del numero e della base x');
writeln('si divide il logaritmo(10) del numero per il logaritmo(10) di basex');
writeln('..............................................................');
readln;
writeln('esempio basex = 2 ; numero = 64 ');
writeln('si calcola logbasex = 0.30103 usando la tabella');
writeln('si calcola lognumero= 64 usando la tabella ');
writeln('si esegue quoziente lognumero/logbasex : 1.80618/0.30103 ');
writeln('..............................................................');
writeln('riporto dati calcolati da utente ');
logbasex:=0.30103;
lognumero:=1.80618;
writeln('logbasex   ',logbasex:1:5);
writeln('lognumero  ',lognumero:1:5);
writeln('eseguo quoziente ');
lognumerox:=lognumero/logbasex;
writeln('lognumero in base x = ',lognumerox:2:5);
readln;
clrscr;
end.