logaritmi con turbo pascal
turbologa.htm
calcolo logaritmo di quoziente e valore del quoziente con cologaritmo
program cologaritmo;
(* cologaritmo e quoziente *)
uses crt;
var n1,n2,q1,q2,q3,l1,l2,c2,p1,p2,p3,basen:real;
var ch:char;
begin
basen:=2.718281828459;
clrscr;
writeln('scrivi dividendo n1 ');readln(n1);
writeln('scrivi divisore n2 ');readln(n2);
writeln('n1 ',n1:5:5);
writeln('n2 ',n2:5:5);
writeln('...................');
l1:=ln(n1);
l2:=ln(n2);
writeln('logaritmo n1 ', l1:5:5);
writeln('logaritmo n2 ', l2:5:5);
writeln('----------------------');
q1:=ln(n1/n2);
writeln('lnquoziente = ln( n1/n2');
writeln(q1:5:5);
p1:=exp(ln(basen)*q1);
writeln('quoziente n1/n2');
writeln(p1:5:5);
writeln('--------------------');
ch:=readkey;
writeln('lnquoziente = Ln(n1) - Ln(n2)');
q2:=ln(n1)-ln(n2);
writeln('logaritmo differenza ');
writeln(q2:5:5);
p2:=exp(ln(basen)*q2);
writeln('quoziente ');
writeln(p2:5:5);
writeln('---------------------');
ch:=readkey;
c2:=-ln(n2);
writeln('lnquoziente = ln(n1) + colog(n2)');
writeln('cologaritmo di n2');
writeln(c2:5:5);
q3:=ln(n1)+c2;
writeln('somma logaritmo e cologaritmo');
writeln(q3:5:5);
p3:=exp(ln(basen)*q3);
writeln('quoziente ');
writeln(p3:5:5);
writeln('---------------------');
ch:=readkey;
end.
per logaritmi decimali vedi
turbologa19.htm