Az előző poszt kissé komplikált algoritmusa után következzék egy sokkal egyszerűbb (igaz, sokkal lassabb, és sokkal kevesebb tizedesjegyet előállítani képes) program, amely a Leibniz-formulával közelíti a pi értékét Casio programozható grafikus zsebszámológépeken (pl. Casio CFX-9850 GB Plus-on, vagy Casio FX-7400 G-n).
ClrText;
4 -> P;
3 -> A;
For 1 -> X to X+1;
P-4/A+4/(A+2) -> P;
A+4 -> A;
Locate 8,3,P;
Locate 2,3,X;
Next
