logaritmi con turbo pascal
turbologa.htm
prodotto di
numero per logaritmo
(decimali)
program numelogpro;
uses crt;
var numero,logaritmo,prodotto:real;
var fattore,fattore1:integer;
var mantissa:real;
var caratteristica:integer;
var pcf1, pmf1,pfl:real;
var ch:char;
begin
clrscr;
writeln('calcolo immediato numero*logaritmo (positivo)');
numero:=125;
fattore:=3;
logaritmo:=ln(numero)/ln(10);
prodotto:=fattore*logaritmo;
writeln('numero ',numero:5:2);
writeln('fattore ',fattore);
writeln('logaritmo del numero ',logaritmo:3:6);
writeln('logaritmo*fattore ',prodotto:5:2);
ch:=readkey;
writeln('---------------------------------------');
writeln('calcolo con separazione di caratteristica e mantissa');
logaritmo:=2.096910;
caratteristica:=2;
mantissa:=0.096910;
fattore:=3;
writeln('prodotto caratteristica per fattore ');
pcf1:=fattore*caratteristica;
pmf1:=fattore*mantissa;
pfl:=pcf1+pmf1;
writeln('fattore*caratteristica ',pcf1:2:0);
writeln('fattore*mantissa ',pmf1:5:6);
writeln('stampo prodotto fattore*logaritmo ',pfl:4:6);
writeln('.....fine prova:premi return..');
ch:=readkey;
end.
prodotto di
numero per logaritmo
(decimali)
program numeroXlogarimo;
(* prodotto di numero per logaritmo decimale *)
uses crt;
var mantissa:real;
var caratteristica:integer;
var fattorec,fattore:integer;
var fattorem,eccesso,cprodotto:real;
procedure pausa;
var ch:char;
begin
ch:=readkey
end;
begin
clrscr;
writeln('logaritmo formato misto <1>.94372 * fattore ');
writeln('scrivo separate caratteristica e mantissa ');
writeln('.............................');
caratteristica:=-1;
mantissa:=0.94732;
fattore:=4;
writeln('caratteristica ',caratteristica );
writeln('mantissa ',mantissa :2:6);
writeln('fattore moltiplicatore ',fattore);
writeln('............................');
fattorec:=fattore*caratteristica;
fattorem:=fattore*mantissa;
writeln('fattore*caratteristica ',fattorec);
writeln('fattore*mantissa ',fattorem:3:6);
writeln('...........................');
eccesso:=int(fattorem);
writeln('ricavo eccesso mantissa ',eccesso:2:0);
writeln('............................');
writeln('sommo eccesso a prodotto fattore per caratterista');
cprodotto:=fattorec+eccesso;
writeln('...................................');
writeln('caratteristica finale del prodotto ',cprodotto : 2:0);
writeln('...............................');
writeln('riporto risultato con formato misto ');
writeln(' <1>.78928 ');
writeln('....fine prova:premi return..');
pausa;
end.
prodotto di
numero per logaritmo e applicazione a logaritmo potenza
(decimali)
program numeroperlogaritmo;
(* prodotto di numero per logaritmo *)
uses crt;
var basepotenza,lbasepotenza,lpotenza:real;
var esponente:real;
var base:integer;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;
begin
clrscr;
writeln('calcolo valore potenza usando teorema con logaritmi');
writeln('calcolo logaritno potenza base^esponente : esponente*log base');
writeln('calcolo valore potenza con funzione potenza:=exp(ln(base)*esponente)');
writeln('........................................................');
(* base per decimali 10; base per neperiani 2.718281828459 *)
base:=10;
esponente:=2;
basepotenza:=4.2;
writeln('base potenza :',basepotenza:5:2);
writeln('esponente potenza : ',esponente:0:0);
writeln('...........................');
lbasepotenza:=ln(basepotenza)/ln(10);
lpotenza:=esponente*lbasepotenza;
writeln('log base potenza :',lbasepotenza :4:5);
writeln('log potenza :',lpotenza:5:5);
writeln('...........................');
write('valore potenza :');
writeln(potenza(base,lpotenza):9:2);
pausa;
end.
prodotto di
numero per logaritmo e applicazione a logaritmo potenza
(neperiani)
program numeroperlogaritmo;
(* prodotto di numero per logaritmo *)
uses crt;
var basepotenza,lbasepotenza,lpotenza,base1:real;
var esponente:real;
var base:integer;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
function potenza(base1,esponente:real):real;
begin
potenza:=exp(ln(base1)*esponente);
end;
begin
clrscr;
writeln('calcolo valore potenza usando teorema con logaritmi');
writeln('calcolo logaritno potenza base^esponente : esponente*log base');
writeln('calcolo valore potenza con funzione potenza:=exp(ln(base)*esponente)');
writeln('........................................................');
(* base per decimali 10; base1 per neperiani 2.718281828459 *)
base1:=2.718281828459;
esponente:=2;
basepotenza:=4.2;
writeln('base potenza :',basepotenza:5:2);
writeln('esponente potenza : ',esponente:0:0);
writeln('...........................');
lbasepotenza:=ln(basepotenza);
lpotenza:=esponente*lbasepotenza;
writeln('log base potenza :',lbasepotenza :4:5);
writeln('log potenza :',lpotenza:5:5);
writeln('...........................');
write('valore potenza :');
writeln(potenza(base1,lpotenza):9:2);
pausa;
end.
