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) найти произведение элементов, стоящих на нечётных местах.