logaritmi con turbo pascal
turbologa.htm
calcolo
logaritmo di quoziente e valore del quoziente
(calcolato anche aritmeticamente senza uso di logaritmi)
program divisione;
(* logaritmo del quoziente *)
uses crt;
var contatore,cifre:integer;
var base,logquoziente,logaritmo1,logaritmo2,numero1,numero2:real;
var risultato:real;
function potenza(base,logquoziente:real):real;
begin
potenza:=exp(ln(base)*logquoziente);
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);
logaritmo1:=ln(numero1)/ln(10);
logaritmo2:=ln(numero2)/ln(10);
writeln('logaritmo1 = ',logaritmo1:5:5);
writeln('logaritmo2 = ',logaritmo2:5:5);
writeln('logaritmo del quoziente = ');
writeln('logquoziente = logaritmo1 - logaritmo2');
logquoziente:=logaritmo1-logaritmo2;
writeln(logquoziente:4:5);
writeln('quoziente =');
writeln(potenza(base,logquoziente):5:6);
writeln('aritmetico =', numero1/numero2:5:6);
writeln('------------------------------------');
end;
pausa;
end.
