Блок-схема алгоритма для числа Пи

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
long double piAt8, f;
String s;
bool b;
 
//---------------------------------------------------------------------------
 void alg1()
{
  long int counter1, counter2;
  counter1 = 1;
  counter2 = 3;
  piAt8 = 0;
  while (counter2 < 21474)  // ??????? ????????? ????????
  {
    piAt8 += 1./(counter1*counter2);
    counter1 += 4;
    counter2 += 4;
  }
}
//---------------------------------------------------------------------------
void alg2()
{
  const n=10000, r=46340, r2=46340*46340;
  long int i, pass = 0;
  double x, y;
  randomize();
  for (i=1; i<=n; i++)
  {
    x = random(r+1);
    y = random(r+1);
    if ( x*x+y*y < r2 )
      pass++;
    f = 1.*pass/i*4;
  }
}
//---------------------------------------------------------------------------
bool PiTest(String szPi, const int nDigits)
{
  szPi.SetLength(nDigits+1);
  long int i, f, c, a[26 * 14], d, e, b, g, r;
  int szCurDigit;
  bool res;
 
  String _s;
  res = 0;
 
  if (nDigits > 54900)
  {
    ShowMessage("Error in PiTest(): n must be <= 54900");
    exit(0);
  }
 
  szCurDigit = 0;
  d = 0;
  c = (nDigits / 4 + 1) * 14;
  f = 10000;
 
  for (i = 0; i < c; i++)
    a[i] = 20000000;
 
  c -= 14;
  b = c;
  while (b > 0)
  {
    e = d % f;
    d = e;
    b--;
    while (b > 0)
    {
      d = d * b + a[b];
      g = (b << 1) - 1;
      a[b] = (d % g) * f;
      d /= g;
      b--;
    }
 
    r = e + d / f;
 
    if (r < 1000)
    {
      if (r > 99)
      {
        szPi[szCurDigit] = '0';
        szCurDigit++;
      }
      else if (r > 9)
      {
        szPi[szCurDigit] = '0';
        szCurDigit++;
        szPi[szCurDigit] = '0';
        szCurDigit++;
      }
      else
      {
        szPi[szCurDigit] = '0';
        szCurDigit++;
        szPi[szCurDigit] = '0';
        szCurDigit++;
        szPi[szCurDigit] = '0';
        szCurDigit++;
      }
    }
 
    _s = String(r);
    _s = szPi + _s;;
    szCurDigit += _s.Length();
 
    c -= 14;
    b = c;
  }
 
 //FreeMem(a, c * SizeOf(LongInt));
  szPi[szCurDigit] = '\0';
 
  res = 1;
  return res;
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  alg1();
  Panel1->Caption = FloatToStr(piAt8*8);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  alg2();
  Panel2->Caption = FloatToStr(f);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  int t, i, j, g;
  for (j=1; j<=5; j++)
  {
    Application->ProcessMessages();
    t = GetTickCount();
    for (i = 1; i <= 1000; i++)
      alg1();
    g += (GetTickCount() - t);
  }
  g /= 32;
  Panel3->Caption = IntToStr(g) + " ms";
 
  for (j=1; j<=5; j++)
  {
    Application->ProcessMessages();
    t = GetTickCount();
    for (i = 1; i <= 1000; i++)
      alg2();
    g += (GetTickCount() - t);
  }
  g /= 32;
  Panel4->Caption = IntToStr(g) + " ms";
 
  for (j=1; j<=5; j++)
  {
    Application->ProcessMessages();
    t = GetTickCount();
    for (i = 1; i <= 1000; i++)
 
    g += (GetTickCount() - t);
  }
  g /= 32;
 
 
    }
 
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------