logaritmi con turbo pascal
turbologa.htm
note ed esempi a integrazione
esempio di
utilizzazione della tabella logaritmica che fornisce le mantisse
uguali per numeri simili a parte la posizione della virgola
es. 28.83 - 2.883 - 288.3 - 0.02883 - 2883 - 288300
program tabella;
(* uso tabella se conosco logaritmo e mantissa positiva *)
uses crt;
var qn,ca,nq,nx,n1,n2,n3,n4,lx,l1,ml1,mlx:real;
var contatore,prove:integer;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
begin
clrscr;
prove:=4;
nx:=50000;
lx:=ln(nx)/ln(10);
mlx:= frac(lx);
n1:=5;n2:=50;n3:=500;n4:=5000;
writeln('numeri diversi con uguale mantissa e diversa caratteristica');
writeln('se conosco il logaritmo, cerco mantissa nella tabella');
writeln('e considero il numero in funzione della caratteristica nota');
writeln('caratteristica 0 ( numero con 1 cifra ');
writeln('caratteristica 1 ( numero con 2 cifre ');
writeln('caratteristica 2 ( numero con 3 cifre ');
writeln('caratteristica 3 ( numero con 4 cifre ');
writeln('.....................................');
writeln('numeri diversi con uguale mantissa');
writeln(n1:5:4);
writeln(n2:5:4);
writeln(n3:5:4);
writeln(n4:5:4);
writeln('mantissa = ',mlx:0:7);
pausa;
for contatore:=1 to prove do
begin
write('scrivi logaritmo = ');readln(l1);
ca:=int(l1);
writeln('caratteristica = ',ca:2:0);
if (ca=0) then qn:=n1;
if (ca=1) then qn:=n2;
if (ca=2) then qn:=n3;
if (ca=3) then qn:=n4;
write('essendo caratteristica = ',ca:2:0);writeln(' numero corrispondente = ',qn:5:4);
end;
pausa;
end.
simile a precedente: usato case selettore of , invece di vari if..then
program tabella;
(* uso tabella se conosco logaritmo e mantissa positiva *)
uses crt;
var qn,ca,nq,nx,n1,n2,n3,n4,n5,n6,lx,l1,ml1,mlx:real;
var contatore,prove,indice:integer;
procedure pausa;
var ch:char;
begin
ch:=readkey;
end;
begin
clrscr;
prove:=6;
indice:=0;
nx:=2883;
lx:=ln(nx)/ln(10);
mlx:= frac(lx);
n1:=28.83;n2:=2.283;n3:=288.3;n4:=0.02883;n5:=2883;n6:=288300;
writeln('numeri diversi con uguale mantissa e diversa caratteristica');
writeln('se conosco il logaritmo, cerco mantissa nella tabella');
writeln('e considero il numero in funzione della caratteristica nota');
writeln('caratteristica 0 ( numero con 1 cifra ');
writeln('caratteristica 1 ( numero con 2 cifre ');
writeln('caratteristica 2 ( numero con 3 cifre ');
writeln('caratteristica 3 ( numero con 4 cifre ');
writeln('caratterisrica 4 ( numero con 5 cifre ');
writeln('caratteristica 5 ( numero con 6 cifre ');
writeln('.....................................');
writeln('numeri diversi con uguale mantissa');
writeln(n1:5:4);
writeln(n2:5:4);
writeln(n3:5:4);
writeln(n4:5:4);
writeln(n5:5:4);
writeln(n6:5:6);
writeln('mantissa = ',mlx:0:7);
pausa;
for contatore:=1 to prove do
begin
indice:=indice+1;
write('scrivi logaritmo = ');readln(l1);
ca:=int(l1);
writeln('caratteristica = ',ca:2:0);
case indice of
1:qn:=n1;
2:qn:=n2;
3:qn:=n3;
4:qn:=n4;
5:qn:=n5;
6:qn:=n6;
end;
write('essendo caratteristica = ',ca:2:0);writeln(' numero corrispondente = ',qn:5:4);
end;
pausa;
end.
