Перевод программы с delphi на с++

@Mars74 · Регистрация: 25.03.2013

Author24 — интернет-сервис помощи студентам

Прмогите пожалуйста перевести код на c++ builder.

Delphi

{ Если N является простым, функция вернет -1 }
function GetLehmanFactor(N: Integer): Integer;
var
  I, k, d, A, B, t, dd: Integer;
begin
  Result := -1;
 
  { Проверка делителей до n^(1/3) }
  for I := 2 to Trunc(Power(N, 1/3)) do
    if N mod I = 0 then begin
      Result := I;
      exit;
    end;
 
  for k := 1 to Trunc(Power(N, 1/3)) do
    for d := 0 to Trunc( Power(N, 1/6) / (4 * Sqrt(k)) ) + 1 do begin
      A := Trunc(Sqrt(4*k*N)) + d;
      t := Sqr(A) - 4*k*N;
 
      if t < 0 then
        continue;
 
      B := Trunc(Sqrt(t));
      if Sqr(B) = t then begin
        ASSERT( (A+B)*(A-B) mod N = 0 );    { Всегда выполняется }
 
        dd := GCD(A-B, N);
 
        if (1 < dd) and (dd < N) then begin
          Result := dd;
          exit;
        end;
      end;
    end;
end;

Заранее спасибо

@SatanaXIII · 05.03.2014, 13:38

В следующий раз показывайте весь код, с подфункциями, если хотите, чтобы вам предоставили рабочий код.

ASSERT не переделал - сами бросайтесь исключениями.

C++

//---------------------------------------------------------------------------
#include <math.h>
int gcd( int a, int b )
{
  if( b == 0 )
    return a;
  else
    return gcd( b, a % b );
}
 
 
/* Если N является простым, функция вернет -1 */
int GetLehmanFactor(int N)
{
int I, k, d, A, B, t, dd;
 
  /* Проверка делителей до n^(1/3) */
  for( I = 2; I < pow(N, 1/3); I++ )
    if( N % I == 0 )
      return I;
 
  for( k = 1; k <= pow( N, 1/3 ); k++ )
    for( d = 0; d <= ( pow( N, 1/6 ) / ( 4 * sqrt(k)) ) + 1; d++ )
      {
      A = sqrt( 4*k*N ) + d;
      t = A*A - 4*k*N;
 
      if( t < 0 )
        continue;
 
      B = sqrt(t);
      if( B*B == t )
        {
        //ASSERT( (A+B)*(A-B) % N == 0 );    /* Всегда выполняется */
 
 
        dd = gcd(A-B, N);
 
 
        if( ( 1 < dd ) && (dd < N) )
          return dd;
        }
      }
return -1;
}
//---------------------------------------------------------------------------

	05.03.2014, 13:38