Помогите перевести на Basic

[alibek]

Привет, форумцы
Есть функция на C, и хотелось бы ее получить на бейсике. Сам я пробовал, что-то не очень выходит.
Код вот:

Код: Выделить всё

BOOL pi(LPTSTR szPi, const int digits)
{
  LPTSTR szCurDigit = szPi;

  if (digits > 54900)
  {
    ::MessageBox(::GetActiveWindow(),
                  _T("n must be <= 54900"),
                  _T("Error in pi()"), 0);
    return FALSE;
  }
 
  int d = 0, e, b, g, r;
  int c = (digits / 4 + 1) * 14;
  int * a = (int*)alloca(c * sizeof(int));
  int f = 10000;
 
  for(int i = 0; i < c; i++)
    a[i] = 20000000;
 
  while((b = c -= 14) > 0)
  {
    d = e = d % f;
   
    While (--b > 0)
    {
      d = d * b + a[b];
      g = (b << 1) - 1;
      a[b] = (d % g) * f;
      d /= g;
    }
   
    r = e + d / f;
   
    if (r < 1000)
    {
      if(r > 99)
      {
        *szCurDigit = '0';
        szCurDigit++;
      }
      else if(r > 9)
      {
        *szCurDigit = '0';
        szCurDigit++;
        *szCurDigit = '0';
        szCurDigit++;
      }
      Else
      {
        *szCurDigit = '0';
        szCurDigit++;
        *szCurDigit = '0';
        szCurDigit++;
        *szCurDigit = '0';
        szCurDigit++;
      }
      //pi.Append(zero[r > 99 ? 0 : r > 9 ? 1 : 2]);
    }

    itoa(r, szCurDigit, 10);
    szCurDigit = szCurDigit + lstrlen(szCurDigit);
    //pi.Append(r);
  }

  *szCurDigit = 0;
  return TRUE;
}


[GSerg]

Имхо, ...

Код: Выделить всё

Function Pi(ByVal Digits As Long) As String
  Dim d As Long, e As Long, b As Long, g As Long, r As Long
  Dim c As Long, f As Long, a() As Long
  Dim i As Long
 
  If Digits > 54900 Then MsgBox "Количество цифр должно не больше 54900", vbCritical, "Ошибка в Pi()": Exit Function
 
  d = 0
  c = (Digits / 4 + 1) * 14
  ReDim a(0 To c - 1)
  f = 10000
 
  For i = 0 To c - 1
    a(i) = 20000000
  Next
 
  c = c - 14
  b = c
  Do While b > 0
    e = d Mod f
    d = e
    b = b - 1
    Do While b > 0
      d = d * b + a(b)
      g = b * 2 - 1
      a(b) = (d Mod g) * f
      d = d / g
      b = b - 1
    Loop
   
    r = e + d / f
   
    If r < 1000 Then
      If r > 99 Then
        Pi = Pi + "0"
      ElseIf r > 9 Then
        Pi = Pi + "00"
      Else
        Pi = Pi + "000"
      End If
    End If
    Pi = Pi & r
   
    c = c - 14
    b = c
  Loop
End Function



[alibek]

Спасибо
Видимо алгоритм кривой. По идее функция должна вычислять число ПИ, а тут уже на четвертом знаке ошибка. Но все равно сенкс.

[GoGosha]

А чего за алгоритм?
Если Digits = 4 то 4-ый знак правилно, а если больше, то - нет