logaritmi con turbo pascal
calcolo
logaritmo di prodotto e valore del prodotto
(calcolato anche aritmeticamente senza uso di logaritmi)
program moltiplicazione;
(* logaritmo del prodotto *)
uses crt;
var contatore,cifre:integer;
var base,logprodotto,logaritmo1,logaritmo2,numero1,numero2:real;
var risultato:real;
function potenza(base,logprodotto:real):real;
begin
potenza:=exp(ln(base)*logprodotto);
end;
procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;
begin
clrscr;
base:=10;
writeln('numero prove = ');
readln(cifre);
writeln('------------------------------------');
for contatore := 1 to cifre do
begin
writeln('numero1 = ');readln(numero1);
writeln('numero2 = ');readln(numero2);
writeln('log(numero1*numero2):');
logprodotto:=ln(numero1*numero2)/ln(10);
writeln('logaritmo del prodotto = ');
writeln(logprodotto:4:5);
writeln('prodotto =');
writeln(potenza(base,logprodotto):5:6);
writeln('aritmetico =', numero1*numero2:5:6);
writeln('------------------------------------');
end;
pausa;
end.
