logaritmi con turbo pascal
turbologa.htm
somma di logaritmi neperiani positivi
program addizione; (* somma di logaritmi neperiani *) (* a numero, d neperiamo *) 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; var base,prodotto:real; procedure pausa; var ch:char; begin writeln('premi return '); ch:=readkey; end; function potenza(base,esponente:real):real; begin potenza:=exp(ln(base)*esponente); end; begin clrscr; base:=2.718281828459; (* 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:=3; dc2:=3; dc3:=4; dc4:=4; sommacd:=dc1+dc2+dc3+dc4; (* logaritmo neperiano *) d1:=ln(a1); d2:=ln(a2); d3:=ln(a3); d4:=ln(a4); (* mantisse neperiane *) md1:=frac(d1); md2:=frac(d2); md3:=frac(d3); md4:=frac(d4); pausa; writeln('logaritmi neperiani '); 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 neperiani :',dsomma:5:5); writeln('--------------------------'); pausa; writeln(potenza(base,dsomma):12:5); writeln('aritmetico :',a1*a2*a3*a4:5:5); pausa; end.