logaritmi con turbo pascal
program usatabella;
(* tabella logaritmi, cerca logaritmo e antilogaritmo *)
uses crt;
var contatore,cifre:integer;
var numero,logaritmo,base:real;
function potenza(base,logaritmo:real):real;
begin
potenza:=exp(Ln(base)*logaritmo);
end;
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 base ');
readln(base);
writeln('scrivi logaritmo ');
readln(logaritmo);
writeln(potenza(base,logaritmo):5:2);
writeln('--------------------------------------');
end;
pausa;
end.
ricerca dell'antilogaritmo essendo fornito il logaritmo in base 10 (positivo)
osservare come variano caratteristiche e mantisse in numeri con stesso numero di cifre significative