REAL MU(1000)

Т.к. массив называется MU (из-за буквы М ЭВМ воспримет его как целого типа), то необходимо описать его с помощью оператора REAL, при этом использовать DIMENSION не надо.

WRITE(6,*)’Введите значения TN,TK,DT’

READ(5,*) TN,TK,DT

N=(TK-TN)/DT+1

DT=(TK-TN)/(N-1)

A=TN

DO 3 I=1,N

IMU(I)=ATAN(ABS(ALOG(A)/EXP(2.*A))**(1./3.))

WRITE(6,*)’При A=’,A,’ значение MU=’,MU(I)

3 A=A+DT


Блок I можно заменить блоком II

I=1

DO 3 A=TN,TK,DT

IIMU(I)= ATAN(ABS(ALOG(A)/EXP(2.*A))**(1./3.))

WRITE(6,*)’При A=’,A,’ значение MU=’,MU(I)

3 I=I+1

PAUSE

STOP

END

Нахождение чётного числа M:

B=M/2.

K=M/2.

IF(B.EQ.K) WRITE(6,*)’ Число M является чётным’

Вводятся две переменные разных типов: В – вещественного типа и К – целого типа.

Затем число M дважды делится на вещественную двойку (2.). Переменная В получится чётной только тогда, когда M – целое число, иначе В будет иметь дробное значение. Затем сравниваются переменные В и К. Если они равны, то это значит, что число M – чётное.

 

Мини задача:

В массиве А(200) найти произведение элементов, стоящих на нечётных местах.

 









Дата добавления: 2015-06-10; просмотров: 366; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2020 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.