logaritmi con turbo pascal
turbologa.htm
program usatabella;
(* tabella logaritmi, cerca logaritmo e antilogaritmo *)
uses crt;
var contatore,cifre:integer;
var numero,logaritmo:real;
procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;
begin
clrscr;
writeln('scrivi numero prove');
readln(cifre);
for contatore :=1 to cifre do
begin
writeln('scrivi numero positivo');
readln(numero);
logaritmo:=ln(numero)/ln(10);
writeln('logaritmo = ',logaritmo:4:5);
writeln('--------------------------------------');
end;
pausa;
end.
trovare logaritmo di numero da inserire
notare caratteristica variabile mantissa costante
osservare variazione
caratteristica e costanza mantissa
per 56 mantissa = 74819 diversa da numeri decimali (logaritmo
tutto negativo)
(mantissa resa simile, positiva aggiungendo +1 a caratteristuca e
cambiando di segno
e complememto a cifre mantissa
(-0 + 1 = 0) ( 74819)