Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Первод кода с++ в 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


 
AlexDan ©   (2010-04-25 02:12) [3]

> [true]TRIx ©   (25.04.10 01:36) [2]
danke, гут.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1242645912
Юрий Зотов
2009-05-18 15:25
2010.08.27
Update одной таблицы по условию из другой таблицы


15-1273548240
Учащийся
2010-05-11 07:24
2010.08.27
Схемы хранения матриц.


15-1264607673
QAZ
2010-01-27 18:54
2010.08.27
Алгоритм Кривая->Кривая безье


15-1264606970
имя
2010-01-27 18:42
2010.08.27
Поселок "Речник"


2-1268835906
user99834
2010-03-17 17:25
2010.08.27
Преобразовать BMP в JPEG, сжать и записать в TMemoryStream