[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]