logaritmi con turbo pascal
turbologa.htm
sottrazione di logaritmi e uso di cologaritmo per quoziente
program sottrazione;
(* sottrazione di logaritmi *)
uses crt;
var l1,l2,c2,s1,s2:real;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
begin
clrscr;
writeln('differenza tra due logaritmi :sottraendo-minuendo l1 - l2');
writeln('oppure somma di minuendo e cologaritmo di sottraendo l1 + c2 ');
writeln('-----------------------------------------------------------');
l1:=2.34128;
l2:=5.32743;
c2:=-l2;
s1:=l1-l2;
s2:=l1+c2;
writeln('l1...',l1:4:5);
writeln('l2...',l2:4:5);
writeln('differenza s1= l1-l2 :',s1:4:5);
writeln('trasformo in formato misto <3>.01385 ');
writeln('------------------------------------');
writeln('cologaritmo di l2 :',c2:4:5);
writeln('in formato misto <6>.67257 ');
writeln('differenza l1-l2 = l1+c2 = s2 ',s2:4:5);
writeln('trasformo in formato misto <3>.01385 ');
writeln('----------fine prova : premi return---');
pausa;
end.
calcolo logaritmo quoziente e valore quoziente usando cologaritmo (decimali)
program divisione;
(* calcolo quoziente con cologaritmo *)
uses crt;
var n1,n2,l1,l2,c2:real;
var base,q1,q2:real;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;
begin
clrscr;
base:=10;
n1:=64;
n2:=4;
writeln('quoziente aritmetico n1/n2 :',n1/n2 :4:5);
writeln('.............................');
l1:=ln(n1)/ln(10);
l2:=ln(n2)/ln(10);
c2:=-l2;
writeln('dividendo n1 :',n1:4:5);
writeln('divisore n2 :',n2:4:5);
writeln('logaritmo di n1 ',l1:4:5);
writeln('logaritmo di n2 ',l2:4:5);
writeln('cologaritmo di n2 ',c2:4:5);
writeln('calcolo log quoziente = log n1 - log n2 ');
q1:=l1-l2;
writeln(q1:4:5);
writeln('valore quoziente :');
writeln(potenza(base,q1):4:5);
pausa;
writeln('............................');
writeln('calcolo log quoziente = log n1 + colog n2');
q2:=l1+c2;
writeln(q2:4:5);
writeln('valore quoziente :');
writeln(potenza(base,q2):4:5);
writeln('............fine prova:premi return...');
pausa;
end.
calcolo logaritmo quoziente e valore quoziente usando cologaritmo (neperiani)
program divisione;
(* calcolo quoziente con cologaritmo *)
uses crt;
var n1,n2,l1,l2,c2:real;
var base,q1,q2:real;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;
begin
clrscr;
base:=2.718281828459;
n1:=10000;
n2:=100;
writeln('quoziente aritmetico n1/n2 :',n1/n2 :4:5);
writeln('.............................');
l1:=ln(n1);
l2:=ln(n2);
c2:=-l2;
writeln('dividendo n1 :',n1:4:5);
writeln('divisore n2 :',n2:4:5);
writeln('logaritmo di n1 ',l1:4:5);
writeln('logaritmo di n2 ',l2:4:5);
writeln('cologaritmo di n2 ',c2:4:5);
writeln('calcolo log quoziente = log n1 - log n2 ');
q1:=l1-l2;
writeln(q1:4:5);
writeln('valore quoziente :');
writeln(potenza(base,q1):4:5);
pausa;
writeln('............................');
writeln('calcolo log quoziente = log n1 + colog n2');
q2:=l1+c2;
writeln(q2:4:5);
writeln('valore quoziente :');
writeln(potenza(base,q2):4:5);
writeln('............fine prova:premi return...');
pausa;
end.
