logaritmi con turbo pascal
turbologa.htm
calcolo
logaritmo di potenza e valore della potenza
(calcolato anche aritmeticamente )
program elevamentopotenza;
(* logaritmo della potenza *)
uses crt;
var contatore,cifre,esponente:integer;
var base,logpotenza,logbase1,base1,diretto:real;
var risultato:real;
function potenza(base,logpotenza:real):real;
begin
potenza:=exp(ln(base)*logpotenza);
end;
procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;
begin
clrscr;
base:=10;
writeln('numero prove = ');
readln(cifre);
writeln('------------------------------------');
for contatore := 1 to cifre do
begin
writeln('base1 = ');readln(base1);
writeln('esponente = ');readln(esponente);
logbase1:=ln(base1)/ln(10);
writeln('logaritmo potenza = esponente * logaritmo base1 ');
writeln('logaritmo della potenza = ');
logpotenza:=esponente*logbase1;
writeln(logpotenza:4:5);
writeln('potenza =');
writeln(potenza(base,logpotenza):5:6);
diretto:=exp(ln(base)*logpotenza);
writeln('risultato diretto =',diretto:5:6);
writeln('------------------------------------');
end;
pausa;
end.
