Dall'ultima operazione alla funzione: I Logaritmi

program neperio;
uses crt,windos;
var i,g:longint;e:real;q,t:string;ore1,min1,sec1,cent1,ore,min,sec,cent:word;

procedure calcolo;
  begin
  (*calcolo approssimato con il limite notevole*)
  e:=1;
  for i:=0 to 2000000000 do
      e:=e*(1+1/2000000000);
  end;

begin
    clrscr;
    writeln('      25 aprile 2005                           Carmelo Pellegrino VD');
    writeln;
    Writeln('Questo Programma permette di calcolare il valore numerico del numero di Neperio.');
    writeln;
    writeln('Nonostante il programma utilizzi un metodo iterativo di estrema precisione');
    writeln('si verificano approssimazioni grossolane da parte del programma stesso.');
    writeln('Pertanto si registra sperimentalmente un''errore dell''ordine di 10^-5.');
    writeln('Si consiglia di attendere con pazienza l''uscita del programma.');
    writeln;
    writeln('Premere INVIO per continuare.');
    readln;
    GetTime(ore,min,sec,cent);
    calcolo;
    GetTime(ore1,min1,sec1,cent1);
    writeln;
    writeln('La procedura Š terminata.');
    (*elimino il suffisso 'E+00' alla fine del numero*)
    str(e,q);
    delete(q,pos('E+00',q),4);
    writeln('e =',q);
    g:=(360000*(ore1-ore)+6000*(min1-min)+100*(sec1-sec)+cent1-cent);
    str(g,t);
    insert('.',t,Length(t)-1);
    t:=t+'sec';
    writeln('Tempo di elaborazione: ',t);
    readln;
end.

In effetti mi ero chiesto quando qualcuno mi avrebbe detto questo! Si può dire che l'abbia messo apposta! Cmq è log in base -2 di -8=3!