**[**Back to MATH SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**

*{
This is a small program which is faster than any of the writings on the echo
on calculating Pi. It uses some Calculus (In an exam I did 2/3 weeks ago).
}
***Program **CalcPi;
*{$N+,E+}
***Var
**Result : Extended;
A : Byte;
**begin
**Result := 3; *{Needs a approximation of Pi}
***For **A := 1 **to **3 **do ***{Only needs three goes to get as accurate as possible
with TP variables.}
***begin
**RESULT := RESULT - Sin(result) * Cos(result);
*{this is a simplified version of Newton Raphson Elimation using Tan(Pi)=0}
*Writeln(RESULT : 0 : 18);
*{18 decimal places - as good as TP gets }
***end**;
**end**.

**[**Back to MATH SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**