Первод кода с++ в Delphi

← →
Alik (2010-04-24 22:54) [0]

Добрый вечер,

Прошу тех кто владеет языком c++ помочь в трансляции следующего блока на Delphi:

enum {TERM_A, TERM_B, TERM_C, TERM_COUNT};

double earth_periodic_term_summation(const double terms[][TERM_COUNT], int count, double jme)
{
int i;
double sum=0;

for (i = 0; i < count; i++)
sum += terms[i][TERM_A]*cos(terms[i][TERM_B]+terms[i][TERM_C]*jme);

return sum;
}

function double earth_radius_vector(double jme)
begin
double sum[R_COUNT];
int i;

for (i = 0; i < R_COUNT; i++)
sum[i] = earth_periodic_term_summation(R_TERMS[i], r_subcount[i], jme);

Result := earth_values(sum, R_COUNT, jme);

end;

← →
Leon © (2010-04-25 01:11) [1]

думаю, так )
const TERM_A = 0; TERM_B = 1; TERM_C = 2; TERM_COUNT = 3; type TTerms = array [0..R_COUNT-1][0..TERM_COUNT-1] of double; function earth_periodic_term_summation(Terms: TTerms; count: integer; jme: double): double; var i: integer; begin result := 0; for i := 0 to count-1 do result := result + erms[i][TERM_A]*cos(terms[i][TERM_B]+terms[i][TERM_C]*jme); end; function earth_radius_vector(jme: double): double var sum: array [0..R_COUNT-1] of double; i: integer; begin for i := 0 to R_COUNT-1 do sum[i] = earth_periodic_term_summation(R_TERMS[i], r_subcount[i], jme); Result := earth_values(sum, R_COUNT, jme); end;

← →
[true]TRIx © (2010-04-25 01:36) [2]

http://www.cadkas.com/ec2delphi.php

Первод кода с++ в Delphi Найти похожие ветки