logaritmi con turbo pascal
turbologa.htm
da logaritmo neperiano a logaritmo decimale
program neperiani;
(* da logarimo neperiano a decimale *)
uses crt;
var contatore:integer;
var neperiano, decimale:real;
procedure pausa;
var ch:char;
begin
writeln('premi retur per proseguire ');
ch:=readkey;
end;
begin
clrscr;
writeln('da logaritmo neperiano a decimale');
writeln('log(10) N = Ln(N) / Ln(10) ');
writeln('numero......Ln...........Log(10)');
writeln('-------------------------------------');
for contatore:=1 to 20 do
begin
write(contatore);write(' = ');
write(ln(contatore):5:5);
write('............');
writeln((ln(contatore)/ln(10)):5:5);
end;
pausa;
end.
tabella numeri, Ln , Log(10)
program neperiani;
(* da logarimo neperiano a decimale *)
uses crt;
var prove,contatore:integer;
var neperiano, decimale, numero:real;
procedure pausa;
var ch:char;
begin
writeln('premi retur per proseguire ');
ch:=readkey;
end;
begin
clrscr;
writeln('da logaritmo neperiano a decimale');
writeln('log(10) N = Ln(N) / Ln(10) ');
writeln('numero prove = ');
readln(prove);
writeln('----------------------------');
for contatore:=1 to prove do
begin
writeln('scrivi numero ');
readln(numero);
neperiano:=ln(numero);
writeln('Ln = ',neperiano:5:5);
decimale:=neperiano/ln(10);
writeln('Log = ',decimale:5:5);
end;
pausa;
end.
richiesta singoli numeri e calcolo Ln , Log(10)
