{ PI.PAS                             Copyright (c) Dalibor Martisek }
{ Program na vypocet cisla pi konvergenciou jednoducheho radu.      }
{                                                                   }
{ Datum:28.07.2006                             http://www.trsek.com }
 
program pi;
uses crt, dos;
 
var n,Cislo_Pi      :Extended;
    Znamenko,Citac  :Integer;
    Stop            :Boolean;
 
begin
  clrscr;
  writeln('Program pre vypocet Pi (ESC-Koniec)');
 
  { inicializacna cast }
  Cislo_Pi:=0;
  Znamenko:=1;
  Citac:=0;
  n:=0;
  Stop:=false;
 
  { slucka radu pre vypocet Pi }
  Repeat
    { vypocet }
    Cislo_Pi:=Cislo_Pi+Znamenko*1/(2*n+1);
    Znamenko:=-Znamenko;
    inc(Citac);
    n:=n+1;
 
    { vypis doterajsieho vysledku }
    if Citac mod 100000 = 0 then
    begin
      gotoxy(1,3);
      writeln('Pi = ', 4*Cislo_Pi:1:18);
    end;
 
    { ak stlacil ESC }
    if( keypressed ) then
       if( readkey=#27 )then
           stop:=true;
 
  Until Stop;
end.