Soru : Pi sayısının değeri Pi = 4 – 4/3 + 4/5 – 4/7 + 4/9 – 4/11 + ... şeklinde bir sonsuz seri yardımıyla hesaplanabilir. Seri toplamının hesaplanması sırasında, eklenen yeni terimin mutlak değeri duyarlılık olarak belirlenen yeteri kadar küçük bir sayıdan küçük olunca işlem kesilebilir. Buna göre Pi sayısını hesaplayacak programı prosedürde yapınız.

Şekli :

Kodlar : 
Procedure pibulma(Bizimpi:real;sayi,isaret:integer); 
Const 
duyarlilik=0.0000001;  
begin 
repeat
BizimPi:=BizimPi+isaret*(4/sayi);
isaret:=isaret*(-1);
sayi:=sayi+2;
until (4/sayi<duyarlilik); showmessage(floattostr(BizimPi));
end; 

Procedure TForm1.Button1Click(Sender: TObject); 
var 
BPi:real; s, i:integer;
begin
BPi:=0.0;
i:=1;
s:=1;
pibulma(BPi,s,i);
end;

Çalışma Şekli :

‘Pi Değerini Bul' butonuna tıkladığımızda ekrana pi sayısının gerçek değerini verecektir.