logaritmi con turbo pascal
turbologa.htm

note ed esempi a integrazione

calcolare cologaritmo con caratteristica logaritmica > 0

program complemento;
(* trasformare da misto a normale *)
(* calcolare cologaritmo con caratteristica logaritmo > 0 *)
uses crt;

var ma,x,ca,c1m,lfinale:real;
var contatore, prove:integer;
var cac:real;

procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;

begin
clrscr;
writeln('esempio per caratteristica logaritmica >= 0');
writeln('cologaritmo N = - logaritmo N ');
writeln('aggiungo +1 a caratteristica del logaritmo e cambio segno');
writeln('per mantissa eseguo complemento cifre mantissa logaritmica');
writeln('il formato stampato da pascal va letto come misto <c>.mantissa');
writeln('.........................................................');
prove:=3;
pausa;clrscr;
for contatore:=1 to prove do
begin
write('scrivi logaritmo ');readln(x);
ca:=int(x);
writeln('caratteristica del logaritmo ',ca:2:0);
cac:=-(ca+1);
writeln('caratteristica cologaritmo   ',cac:2:0);
ma:=abs(frac(x));
writeln('mantissa del logaritmo       ',ma:2:6);
c1m:=1-ma;
writeln('mantissa del cologaritmo     ',c1m:2:6);
lfinale:=cac-c1m;
writeln('cologaritmo : ',lfinale:2:6);
writeln('formato sarebbe <c>.mantissa ');
pausa;
end;
end.

calcolare cologaritmo con caratteristica logaritmica <0

program complemento;
(* trasformare da misto a normale *)
(* calcolare cologaritmo con caratteristica logaritmo < 0 *)
uses crt;

var ma,x,ca,c1m,lfinale:real;
var contatore, prove:integer;
var cac:real;

procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;

begin
clrscr;
writeln('esempio per caratteristica logaritmica >= 0');
writeln('cologaritmo N = - logaritmo N ');
writeln('aggiungo +1 a caratteristica del logaritmo e cambio segno');
writeln('per mantissa eseguo complemento cifre mantissa logaritmica');
writeln('il formato stampato da pascal va letto come misto <c>.mantissa');
writeln('.........................................................');
prove:=3;
pausa;clrscr;
for contatore:=1 to prove do
begin
write('scrivi logaritmo ');readln(x);
ca:=int(x);
writeln('caratteristica del logaritmo ',ca:2:0);
cac:=-(ca+1);
writeln('caratteristica cologaritmo   ',cac:2:0);
ma:=abs(frac(x));
writeln('mantissa del logaritmo       ',ma:2:6);
c1m:=1-ma;
writeln('mantissa del cologaritmo     ',c1m:2:6);
lfinale:=cac+c1m;
writeln('cologaritmo : ',lfinale:2:6);
writeln('formato sarebbe <c>.mantissa ');
pausa;
end;
end.

calcolare cologaritmo con caratteristica logaritmica < > 0

program complemento;
(* trasformare da misto a normale *)
(* calcolare cologaritmo di logaritmo fornito *)
(* con caratteristica <> 0 *)

uses crt;

var ma,x,ca,c1m,lfinale:real;
var contatore, prove:integer;
var cac:real;

procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;

begin
clrscr;
writeln('cologaritmo N = - logaritmo N ');
writeln('aggiungo +1 a caratteristica del logaritmo e cambio segno');
writeln('per mantissa eseguo complemento cifre mantissa logaritmica');
writeln('il formato stampato da pascal va letto come misto <c>.mantissa');
writeln('.........................................................');
prove:=2;
pausa;clrscr;
for contatore:=1 to prove do
begin
write('scrivi logaritmo ');readln(x);
ca:=int(x);
writeln('caratteristica del logaritmo ',ca:2:0);
cac:=-(ca+1);
writeln('caratteristica cologaritmo   ',cac:2:0);
ma:=abs(frac(x));
writeln('mantissa del logaritmo       ',ma:2:6);
c1m:=1-ma;
writeln('mantissa del cologaritmo     ',c1m:2:6);
if (ca>0)
then lfinale:=(cac-c1m)
else
if (ca<0)
then lfinale:=(cac+c1m);
writeln('cologaritmo : ',lfinale:2:6);
writeln('formato sarebbe <c>.mantissa ');
pausa;
writeln('................................');
end;
end.

turbo33.htm