logaritmi con turbo pascal
turbologa.htm

note ed esempi a integrazione

confronto tra quattro modi per eseguire quoziente tra due numeri positvi da inserire

program dividere;
(* varie modalit… pet esequire quoziente *)
uses crt;

var n1,n2,l1,l2,q1,q2,c2,lq1,lq2,base:real;
var contatore,prove:integer;


procedure pausa;
var ch:char;
begin
ch:=readkey;
end;

function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;

begin
clrscr;
prove:=3;
base:=10;
for contatore :=1 to prove do
begin
write('scrivi dividendo          ');readln(n1);
write('scrivi divisore          ');readln(n2);
writeln('quoziente aritmetico n1/n2 ', n1/n2 : 4:4);
writeln('********************************');
l1:=ln(n1)/ln(10);
l2:=ln(n2)/ln(10);
c2:=-ln(n2)/ln(10);;
writeln('logaritmo dividemdo    ',l1:2:6);
writeln('logaritmo divisore     ',l2:2:6);
writeln('cologaritmo divisore   ',c2:2:6);
writeln('...........................');
lq1:=ln(n1/n2)/ln(10);
writeln('logaritmo quoziente =ln(n1(n2)(ln(10)    =  ',lq1:2:6);
writeln('quoziente = exp(ln(base)*esponente)  ');
writeln (potenza(base,lq1):4:4);
writeln('..........................');
lq1:=l1-l2;
writeln('logaritmo quoziente = l1 - l2            = ' ,lq1:2:6);
writeln('quoziente = exp(ln(base)*esponente) ');
writeln(potenza(base,lq1) :4:4);
writeln('..........................');
lq2:=l1+c2;
writeln('logaritmo quoziente = l1 + c2            = ' ,lq2:2:6);
writeln('quoziente = exp(ln(base)*esponente) ');
writeln(potenza(base,lq2):4:4);
writeln('.........................');
pausa;
end;
pausa;
end.

turbologa33.htm