Pi zenbakia: Leibniz (1674)

---

Gottfried Wilhelm Leibniz, (Leipzig, 1646ko uztailaren 1a – Hannover, 1716ko azaroaren 14a) alemaniar filosofo, matematikari, logikari, teologo, jurista, liburuzain eta politikaria izan zen.

XVII. eta XVIII. mendeetako pentsalari handienetakoa izan zen, azken jenio unibertsal gisa ezaguna (bere osteko guztiak "ezpezialistak" izan omen dira). Metafisika, epistemologia, logika, erlijioaren filosofia, matematika, fisika, geologia, legegintza eta historiaren alorretan, ekarpen sakon eta garrantzitsuak egin zituen. Filosofiaren historian zein matematikarenean figura esanguratsua da. Newtonen lanarekiko paralelo, kalkulu infinitesimala garatu zuen, notazio eta guzti, ordutik erabiltzen dena. Sistema bitarra ere asmatu zuen, egungo ordenagailuen oinarri birtuala dena.

Bestalde, Leibnizek teknologian ekarpenak egin zituen, bai eta biologian, medikuntzan, geologian, probabilitate teorian, ingeniaritzan eta konputazio zientzietan ere.

Hau da Leibniz segida π konstantearen hamartarrak kalkulatzeko:

Baina soluzioak arazo bat du, 19 milioi termino batu behar dira 7 hamartar zuzen lortzeko. Argi utz dezagun formula horiek aurkitu izana meritu handia dela, nahiz eta praktikan ez diren baliagarriak π zenbakiaren hamartarrak zehaztasunez kalkulatzeko.

Jarraian π zenbakiaren segidari dagokion programa bat:

{ Leibnizen formula PI kalkulatzeko:                   }
{ PI/4 = 1/1 - 1/3 + 1/5 - 1/7 + 1/9 - 1/11 + ...      }
{ zoritxarrez segida honen konbergentzia oso motela da }

program pi_zenbakia_Leibniz;
uses
   crt; 
const
   MUGA = 0.0001;   { iKont kontagailua integer bada }
var
   rSegida, rBatugaia: real;
   iKont, iZeinua: integer;
   rDoikuntza: real;
begin
   clrscr;
   writeln('//////////////////////////////////////');
   writeln;
   repeat
      write('Kalkuluaren doikuntza eman (milaren adibidez, 0.001): ');
      readln(rDoikuntza);
      if rDoikuntza < MUGA then
         writeln('Doikuntza ', MUGA:0:4, ' baino handiagoa izan dadila!');
   until rDoikuntza > MUGA;
   writeln;
   
   rSegida := 1.0;   (* lehen batugaia kanpoan *)
   iZeinua := -1;
   iKont := 3;
   repeat
      rBatugaia := iZeinua*1/iKont;
      rSegida := rSegida + rBatugaia;
      writeln('iKont = ', iKont:5, 'rSegida = ':16, rSegida:0:12, 'rBatugaia = ':17, rBatugaia:15:12);
      iKont := iKont + 2;
      iZeinua := (-1)*iZeinua;
   until abs(rBatugaia) < rDoikuntza;
   
   writeln ;
   writeln('  rSegida = ', rSegida:0:12);
   writeln ;
   writeln('rSegida*4 = ', 4*rSegida:0:12, ' (Leibniz)');
   writeln('       PI = ', PI:0:12);
   
   writeln;
   
   writeln('//////////////////////////////////////');
   readln;
 end.