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);
writeln('log(numero1/numero2):');
logquoziente:=ln(numero1/numero2)/ln(10);
writeln('logaritmo del quoziente  = ');
writeln(logquoziente:4:5);
writeln('quoziente =');
writeln(potenza(base,logquoziente):5:6);
writeln('aritmetico =', numero1/numero2:5:6);
writeln('------------------------------------');
end;
pausa;
end.

turbologa9.htm