logaritmi con turbo pascal
turbologa.htm
note ed esempi a integrazione
quoziente di logaritmi (se in formato misto, prima trasformarli)
program mistoquo;
(* quoziente tra logaritmi *)
uses crt;
var l1,l2,l1f,l2f,quoziente:real;
procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;
begin
clrscr;
writeln('logaritmi da elaborare, formato misto');
writeln('l1 = <1>.32475 misto, trasformo -1 + 0.32475 = -0.67525 ');
writeln('l2 = <2>.59736 misto, trasformo -2 + 0.59736 = -1.40264');
writeln('quoziente = l1 / l2 = - 0.67525 / -1.40264');
writeln('........................................');
writeln('l1 = <1>.32475 misto ');
l1f:=-0.67525;
writeln('l1f trasformato =',l1f:2:6);
writeln('l2 = <2>.59736 misto');
l2f:=-1.40264;
writeln('l2f trasformato =',l2f:2:6);
writeln('.............................');
writeln('eseguo quoziente = l1f/l2f ');
quoziente:=l1f/l2f;
writeln('quoziente = ',quoziente:2:6);
writeln('...........................');
pausa;
end.
prodotto di
logaritmi
(se in formato misto, prima trasformarli
program mistopro;
(* prodotto tra logaritmi *)
uses crt;
var l1,l2,l1f,l2f,prodotto:real;
procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;
begin
clrscr;
writeln('logaritmi da elaborare, formato misto');
writeln('........................................');
writeln('l1 = <1>.32475 misto ');
l1f:=-0.67525;
writeln('l1f trasformato =',l1f:2:6);
writeln('l2 = <2>.59736 misto');
l2f:=-1.40264;
writeln('l2f trasformato =',l2f:2:6);
writeln('.............................');
writeln('eseguo prodotto = l1f*l2f ');
prodotto:=l1f*l2f;
writeln('prodotto = ',prodotto:2:6);
writeln('...........................');
pausa;
end.
