logaritmi con turbo pascal
turbologa.htm
ricerca logaritmo neperiano e decimale di numero fornito ricerca di numero corrispodente a logaritmo neperiano o decimale fornito
program ricerca;
(* ricerca logaritmi e antilogaritmi *)
uses crt;
var contatore,prove,base:integer;
var base1,esponente,numero,neperiano,decimale,esponente1:real;
function potenza(base,esponente:real):real;
begin
potenza:=(exp(ln(base)*esponente));
end;
function potenza1(base1,esponente1:real):real;
begin
potenza1:=exp(ln(base1)*esponente1);
end;
procedure pausa;
var ch:char;
begin
writeln('premi return per proseguire');
ch:=readkey;
end;
begin
clrscr;
base:=10;
base1:=2.718281828459;
writeln('numero di prove = ');readln(prove);
for contatore:=1 to prove do
begin
writeln('scrivi numero per trovare logaritmo ');readln(numero);
neperiano:=ln(numero);
decimale:=neperiano/ln(10);
writeln('numero ' , numero:5:5);
writeln('neperiano ', neperiano:5:5);
writeln('decimale ', decimale:5:5);
writeln('----------------------------------');
pausa;
writeln('scrivi logaritmo decimale ');readln(esponente);
writeln('calcolo antilogaritmo ');
writeln(potenza(base,esponente):4:5);
writeln('-----------------------------------');
writeln('scrivi logaritmo neperiano');
readln(esponente1);
writeln('calcolo antilogaritmo ');
writeln(potenza1(base1,esponente1):4:5);
pausa;
end;
end.
