logaritmi con turbo pascal
turbologa.htm
quoziente di logaritmo per numero e applicazione a logaritmo radicale
esempio con
caratteristica nulla o positiva (logaritmo tutto positivo: si
divide logaritmo per numero direttamente
oppure si dividono caratteristica e mantissa separatamente e poi
si sommano i quozienti
program numeroquo;
(* divisione di logaritmo per numeroi ntero
*)
uses crt;
var numero,logaritmo,quoziente:real;
var divisore,contatore,prove:integer;
var ca,ma,cad,mad,quo :real;
procedure pausa;
var ch : char;
begin
ch:=readkey;
end;
begin
clrscr;
writeln('logaritmo/numero : (caratteristica/numero) +
(mantissa/numero)');
writeln('...........................................................');
prove:=1;
for contatore:=1 to prove do
begin
writeln('calcolo diretto');
write('logaritmo = ');readln(logaritmo);
write('divisore = ');readln(divisore);
quoziente:=logaritmo/divisore;
writeln('quoziente logaritmo/numero
',quoziente:2:6);
writeln('.................................');
writeln('....premi return...');pausa;
writeln('calcolo per fasi successive');
writeln('logaritmo ',logaritmo:3:6);
ca:=2;
ma:=0.44;
cad:=ca/divisore;
mad:=ma/divisore;
writeln('caratteristica ', ca:0:0);
writeln('mantissa ', ma:2:6);
writeln('caratteristica/divisore ',cad :0:0);
writeln('mantissa/divisore ',mad :2:6);
writeln;
quo:=cad+mad;
writeln('quoziente logaritmo/numero
',quo:2:6);
writeln('.................................................');
pausa;
end;
pausa;
end.
con caratteristica negativa e mantissa nulla
quoziente di logaritmo per numero caratteristica negativa multipla di divisore e mantissa non nulla
program numeroquo; (* divisione di logaritmo per numerointero *) (* caratteristica negativa multipla deldivisore *)
uses crt;
var divisore,contatore,prove:integer;
var ca,ma,cad,mad,quo :real;
procedure pausa;
var ch : char;
begin
ch:=readkey;
end;
begin
clrscr;
writeln('logaritmo/numero : (caratteristica/numero) + (mantissa/numero)');
writeln('...........................................................');
prove:=1;
for contatore:=1 to prove do
begin
writeln('calcolo per fasi successive');
divisore:=2;
ca:=-4;
ma:=0.32728;
writeln('........................');
writeln('divido separatamente caratteristica e mantissa');
cad:=ca/divisore;
mad:=ma/divisore;
writeln('caratteristica ', ca:0:0);
writeln('mantissa ', ma:2:6);
writeln('caratteristica/divisore ',cad :0:0);
writeln('mantissa/divisore ',mad :2:6);
writeln;
writeln('formato misto <2>.16364 ');
writeln('.................................................');
end;
pausa;
end.
