logaritmi con turbo pascal
turbologa.htm
note ed esempi a integrazione
simile a
precedente: con variante per descrizione calcoli
con caratteristiche
negative
program negativo;
uses crt;
var n1,l1,m1,n2,n3,l2,l3,c3,m3,cm3,ccm3:real;
var nx,lx,mx:real;
var ca:real;
var ch:char;
begin
clrscr;
nx:=267;
lx:=ln(nx)/ln(10);
mx:=frac(lx);
write('mantissa in tabella per numero ',nx:5:0 );writeln('.....',mx:0:7);
writeln('.............................');
writeln('pascal fornisce per logaritmo un valore tutto negativo');
writeln('la mantissa deve essere trasformata in positiva');
writeln('per essere usata nella ricerca con la tabella logaritmica');
n3:=0.267;
l3:=ln(n3)/ln(10);
ca:=-1;
writeln('numero : ',n3:2:6);
writeln('logaritmo :',l3:2:7);
writeln('nel formato misto sarebbe <1>.mantissa ');
writeln('caratteristica : ',ca:1:0);
writeln('.................................................');
writeln('estraggo la mantissa e considero il valore assoluto');
m3:=frac(l3);
writeln(m3:2:7);
cm3:=frac(abs(l3));
writeln(cm3:2:7);
writeln('calcolo il complememto a 1 di tale valore' );
writeln('ottengo una mantissa positiva che permette di risalire al numero');
ccm3:=1-cm3;
writeln('mantissa positiva :', ccm3:2:7);
writeln('il logaritmo in forma nista risulta <1>.42651 (1> = -1 ');
writeln('il numero corrisponde a 267 preceduto da 0 perchŠ la caratteristica = -1');
ch:=readkey;
end.
variante con ricerca numero mediante calcolo con pascal
program negativo;
uses crt;
var n1,l1,m1,n2,n3,l2,l3,c3,m3,cm3,ccm3:real;
var nx,lx,mx:real;
var base,ca:real;
var ch:char;
function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;
begin
clrscr;
base:=10;
nx:=245;
lx:=ln(nx)/ln(10);
mx:=frac(lx);
write('mantissa in tabella per numero ',nx:5:0 );writeln('.....',mx:0:7);
writeln('.............................');
writeln('pascal fornisce per logaritmo un valore tutto negativo');
writeln('la mantissa deve essere trasformata in positiva');
writeln('per essere usata nella ricerca con la tabella logaritmica');
n3:=0.00245;
l3:=ln(n3)/ln(10);
ca:=-3;
writeln('numero : ',n3:2:6);
writeln('logaritmo :',l3:2:7);
writeln('nel formato misto sarebbe <3>.mantissa ');
writeln('caratteristica : ',ca:1:0);
writeln('.................................................');
writeln('estraggo la mantissa e considero il valore assoluto');
m3:=frac(l3);
writeln(m3:2:7);
cm3:=frac(abs(l3));
writeln(cm3:2:7);
writeln('calcolo il complememto a 1 di tale valore' );
writeln('ottengo una mantissa positiva che permette di risalire al numero');
ccm3:=1-cm3;
writeln('mantissa positiva :', ccm3:2:7);
writeln('il logaritmo in forma nista risulta <3>.42651 (3> = -3 ');
writeln('il numero corrisponde a 245 preceduto da 0.00 perchŠ la caratteristica = -3');
ch:=readkey;
writeln('..............................');
writeln('trovo numero con pascal e funzione potenza');
writeln(potenza(base,lx):6:5);
ch:=readkey;
end.
