logaritmi con turbo pascal
turbologa.htm
somma di logaritmi decimali positivi
program addizione;
(* somma di logaritmi decimali *)
(* a numero, d decimale *)
uses crt;
var a1,a2,a3,a4:real;
var d1,d2,d3,d4:real;
var dsomma,dmantisse,dcaratteristica:real;
var k:real;
var dc1,dc2,dc3,dc4:integer;
var md1,md2,md3,md4:real;
var sommacd:integer;
procedure pausa;
var ch:char;
begin
writeln('premi return ');
ch:=readkey;
end;
begin
clrscr;
k:=ln(10);
(* numeri *)
a1:=25;
a2:=50;
a3:=75;
a4:=100;
writeln('numeri forniti ');
writeln('a1..',a1:6:6);
writeln('a2 ',a2:6:6);
writeln('a3..',a3:6:6);
writeln('a4..',a4:6:6);
(* caratteristica *)
dc1:=1;
dc2:=1;
dc3:=1;
dc4:=2;
sommacd:=dc1+dc2+dc3+dc4;
(* logaritmo decimale *)
d1:=ln(a1)/k;
d2:=ln(a2)/k;
d3:=ln(a3)/k;
d4:=ln(a4)/k;
(* mantisse decimali *)
md1:=frac(d1);
md2:=frac(d2);
md3:=frac(d3);
md4:=frac(d4);
pausa;
writeln('logaritmi decimali ');
writeln(d1:5:5);
writeln(d2:5:5);
writeln(d3:5:5);
writeln(d4:5:5);
writeln('somma caratteristiche isolate');
writeln(sommacd);
writeln('somma mantisse');
dmantisse:=md1+md2+md3+md4;
writeln(dmantisse:5:5);
(* somma logaritmi *)
dsomma:=d1+d2+d3+d4;
writeln('sommo eccesso mantisse a caratteristiche isolate');
dcaratteristica:=dc1+dc2+dc3+dc4+int(dmantisse);
writeln('caratteristica =');
writeln(dcaratteristica:4:0);
writeln('somma logaritmi decimali :',dsomma:5:5);
writeln('--------------------------');
pausa;
end.
