logaritmi con turbo pascal
turbologa.htm
note ed esempi a integrazione
ricerca logaritmo inserendo numero; ricerca numero inserendo logaritmo (notare la differenza nel formato proposto da pascal con numeri decimli, caratteristica negativa)
program confronto;
(* confronta uso tabella logaritmica e ricerca diretta con pascal *)
uses crt;
var nx,n1,n2,n3,lx,l1,l2,l3,mx,nx1,nx2,nx3,base:real;
var contatore,prove:integer;
var ly:real;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;
begin
clrscr;
base:=10;
prove:=3;
nx:=3;
nx1:=3;
nx2:=30;
nx3:=300;
lx:=ln(nx)/ln(10);
mx:=frac(lx);
writeln('numeri con stessa mantissa:',mx:1:7);
writeln('da tabella mantisse');
writeln(nx1:5:2);
writeln(nx2:5:2);
writeln(nx3:5:2);
pausa;
for contatore:=1 to prove do
begin
write('cerca logaritmo inserendo numero ');readln(n1);
l1:=ln(n1)/ln(10);
writeln('logaritmo = ',l1:1:5);
end;
pausa;
writeln('................................');
writeln('cerco numero inserendo logaritmo ');
writeln('consultando tabella e considerando numero in funzione della caratterisca');
writeln('caratteristica 0 : 1 cifra ; 1 :2 cifre ;2 : 3 cifre; 3 : 4 cifre..');
for contatore:=1 to prove do
begin
write('cerca numero inserendo logaritmo ');readln(ly);
writeln(potenza(base,ly):5:2);
pausa;
end;
end.
caratteristica negativa
program confronto;
(* confronta uso tabella logaritmica e ricerca diretta con pascal *)
uses crt;
var nx,n1,n2,n3,lx,l1,l2,l3,mx,nx1,nx2,nx3,base:real;
var contatore,prove:integer;
var ly:real;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
function potenza(base,esponente:real):real;
begin
potenza:=exp(ln(base)*esponente);
end;
begin
clrscr;
base:=10;
prove:=3;
nx:=3;
nx1:=0.3;
nx2:=0.030;
nx3:=0.00300;
lx:=ln(nx)/ln(10);
mx:=frac(lx);
writeln('numeri con stessa mantissa positiva:',mx:1:7);
writeln('da tabella mantisse positive');
writeln(nx1:1:5);
writeln(nx2:1:5);
writeln(nx3:1:5);
pausa;
writeln('notare formato pascal, misto -1.mantissa = <1>.complemento mantissa ');
writeln('-0.52288 ; <1>.47712 ; -1.52288 ; <2>.47712 ; -2.52288 ; <3>.47512 ');
for contatore:=1 to prove do
begin
write('cerca logaritmo inserendo numero ');readln(n1);
l1:=ln(n1)/ln(10);
writeln('logaritmo = ',l1:1:5);
end;
pausa;
writeln('................................');
writeln('cerco numero inserendo logaritmo ');
writeln('consultando tabella e considerando numero in funzione della caratterisca');
writeln('caratteristica 0(-1) : 0.n ; -1<-2>:0.0n ;-2<-3> : 0.00n ');
for contatore:=1 to prove do
begin
write('cerca numero inserendo logaritmo ');readln(ly);
writeln(potenza(base,ly):1:5);
pausa;
end;
end.
