logaritmi con turbo pascal
turbologa.htm
note ed esempi a integrazione
simile a
precedente: con variante per descrizione calcoli
con caratteristiche >= 0
program provama;
uses crt;
var base,lx:real;
var n1,n2,n3,n4,n5,n6,n7,n8:real;
var l1,l2,l3,l4,l5,l6,l7,l8:real;
var m1,m2,m3,m4,m5,m6,m7,m8:real;
var cx:real;
var contatore, prove: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;
base:=10;
(* serie numerica parziale i tabella logaritmica *)
n1:=15;
n2:=20;
n3:=150;
n4:=200;
n5:=1500;
n6:=2000;
n7:=15000;
n8:=200000;
(* serie mantisse da usare per risalire a numero *)
m1:=frac(ln(n1)/ln(10));
m2:=frac(ln(n2)/ln(10));
m3:=frac(ln(n3)/ln(10));
m4:=frac(ln(n4)/ln(10));
m5:=frac(ln(n5)/ln(10));
m6:=frac(ln(n6)/ln(10));
m7:=frac(ln(n7)/ln(10));
m8:=frac(ln(n8)/ln(10));
writeln('..............................');
writeln('serie numeri e mantisse da consultare');
write(n1:9:0);writeln(' ',m1:1:7);
write(n2:9:0);writeln(' ',m2:1:7);
write(n3:9:0);writeln(' ',m3:1:7);
write(n4:9:0);writeln(' ',m4:1:7);
write(n5:9:0);writeln(' ',m5:1:7);
write(n6:9:0);writeln(' ',m6:1:7);
write(n7:9:0);writeln(' ',m7:1:7);
write(n8:9:0);writeln(' ',m8:1:7);
writeln('.............................');
prove:=4;
for contatore:=1 to prove do
begin
write('scrivi logaritmo ');readln(lx);
cx:=int(lx);
writeln('caratteristica : ',cx:1:0);
writeln('numero = ', potenza(base,lx):5:4);
end;
pausa;
end.
