Re: Листинг


Автор сообщения: Необразованный
Дата и время сообщения: 24 April 2007 at 13:37:36:

В ответ на сообщение: Листинг

DO I = 1, NUMBER
DO K = 1, 9
B1 = (K -1)*10
B2 = K*10
B = ABS(BG(I))
IF(B1 .LE. B .AND. B .LT. B2)THEN ;
CN(K) = CN(K) +1 ;
END IF
END DO
DO K = 1, 18
B1 = (K -1)*5
B2 = K*5
B = ABS(BG(I))
IF(B1 .LE. B .AND. B .LT. B2)THEN ;
CN2(K) = CN2(K) +1 ;
END IF
END DO
END DO

Не вступая в дискуссию, отмечу, что на меня сей кусок программы произвел сильное впечатление.
К тому же, замечу, что операторов инициалицации для CN и СN2 мне почему-то обнаружить не удалось (хотя, конечно, порой добрые дяди и инициализируют массивы автоматически).

С наилучшими пожеланиями
Н.


2595. Вспышки новых звезд в восточных летописях - Markab 12:32 19.04.07 (63)
К списку тем на странице