Здравствуйте!у меня стоит задача переписания программы с фортрана на С++.

SUBROUTINE TDRAND (X)
DATA I/783637/
I=125*I
I=I-(I/2796203)*2796203
X=FLOAT(I)/2796202.
RETURN
END


Подскажите пожалуста что значит DATA? и SUBROUTINE это обьявление класса???

Это сообщение отредактировал(а) Новичок89 - 28.3.2012, 19:45

  

SUBROUTINE - это заголовок подпрограммы. В данном случае - возвращающей значение X.
Оператор DATA (который Вы переписали с ошибкой) в этом контексте - просто инициализация переменной (там должно быть DATA I/783637/). И, похоже, что в четвертой строчке в скобках вместо единицы тоже должно быть I, иначе этот код уж совсем бессмысленный (в нем, правда, и так смысла немного, но все же...).

То есть DATA присваивает переменной I какое то значение от 0 до 783637 ???

Нет. DATA присваивает I значение 783637 при первом вызове подпрограммы.

спасибо,пойду вспоминать как програмировать на си))

сделал примерно такое но что то не то(((
void TDRAND(float x){
    float I=783637;
    for(int i=0;i<10;i++)
    {
    I=125*I;
    I=I-(I/2796203)*2796203;
    x = I/2796202;
    }
    return;


}
помогите

Еще бы. Во-первых, X в процедуре был возвращаемым значением. Во-вторых, инициализация происходит только один раз, переменная, заданная таким образом, является глобальной. Так что более-менее адекватный перевод будет таким:



Добавлено через 1 минуту и 17 секунд
И, кстати, зачем Вы вставили в свой вариант цикл?

 если б я знал как делать я б давно сделал)))
кстати я сделал немного иначе
void TDRAND(float* x,int n)               
{
 float I=783637.;
 for(int i=0;i<10;i++)
 {
 I=125*I;
 I=I-(I/2796203)*2796203;
 x[i] = I/2796202;
 }
 return;
 }
и вызвал ее в мейне
float  xx[10];
TDRAND( &xx[0] , sizeof(xx)/sizeof(float));

только теперь не получается распечатать этот самый массив,выдает нули(((
опять что то нахимичил наверно(((

Добавлено через 3 минуты и 39 секунд
подскажите как вызвать этот массив на печать...

Именно. Вы зачем объявили I как float? Весь фокус этого "генератора случайных чисел" был основан на отбрасывании остатка от деления большого целого числа на другое большое целое. А в получившемся у Вас виде строчка 

означает всего лишь I=I-I, так что неудивительно, что в результате получаются одни нули.

спасибо,все получилось,благодарю!+++