logaritmi con turbo pascal
turbologa.htm
tabella
logaritmi decimali con passo da indicare
(viene calcolato il logaritmo decimale in funzione del neperiano)
program decimalitavole;
(* tavole logaritmiche con passo indicato*)
uses crt;
var prove,contatore:integer;
var passo,numero,decimale:real;
procedure pausa;
var ch:char;
begin
writeln(' pre return per proseguire');
ch:=readkey;
end;
begin
clrscr;
write('numero iniziale calcolo = ');readln(numero);
writeln('numero calcoli =');readln(prove);
writeln('passo =');readln(passo);
for contatore:=1 to prove do
begin
decimale:=ln(numero)/ln(10);
write('numero = ',numero:5:5);write('......decimale...');
writeln(decimale:5:5);
numero:=numero+passo;
end;
pausa;
end.
