Pi

//+------------------------------------------------------------------+
//|                                                           Pi.mq4 |
//|                                                    Ïðèâàëîâ Ñ.Â. |
//|                                             Skype -> privalov-sv |
//+------------------------------------------------------------------+
#property copyright "Ïðèâàëîâ Ñ.Â."
#property link      "Skype -> privalov-sv"

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//----
   // ÷åì áîëüøå öèêëîâ - òåì áîëüøå òî÷íîñòü
   // â äàííîì âàðèàíòå ñîâïàäàåò ñî âëîæåííîé â MathCad êîíñòàíòîé ïè   
   double Pi=0.0;
   for(double i=0; i<11; i++) Pi+= 1/MathPow(16,i)*(4/(8*i+1)-2/(8*i+4)-1/(8*i+5)-1/(8*i+6));
   Print("Pi=",DoubleToStr(Pi,8));
//----
   return(0);
  }
//+------------------------------------------------------------------+