IF(X) 4,2,3
Так как последним оператором тела DO не может быть арифметический оператор IF
CONTINUE
. . .
Если шаг цикла сделать отрицательным, а начальное и конечное значение положительным, то произойдёт зацикливание программы до переполнения разрядной сетки ЭВМ (-32767).
Начиная с версии ФОРТРАН–77 в качестве переменной цикла можно использовать переменные вещественного типа. Например :
DO 7 X=XN , XK , DX
...
7 WRITE(*,*) X , Y
Примечание:
Оператор цикла DO не предусматривает корректировку шага DX.
Задача:
По введенному значению n вычислить n! (факториал от n) и вычислить сумму квадратов, используя оператор цикла DO.
C Программа №6. Вычисление суммы и факториала от N
WRITE(6,*)’Введите N’
READ(5,*) N
C Вычисление суммы N
S=0.
При вычислении суммы необходимо обнулять ячейку памяти (в данном случае S), так как может оказаться, что эта переменная уже имеет некоторое значение и в результате решение будет неправильным.
DO 2 I=1,N
S=S+I**2
CONTINUE
C Вычисление факториала
P=1.
DO 3 I=1,N
3 P=P*I
C Вывод результата
WRITE(6,*)’Сумма S=’,S,’ факториал =’,P
PAUSE
STOP
END
Вычисление суммы работает следующим образом:
Переменной S присваивается значение ноль. Затем по циклу к переменной S прибавляется величина i2 за каждый проход по циклу.
Для вычисления произведения или факториала сначала переменной Р присваивается значение 1. Затем в цикле Р умножается на I и результат записывается в Р.
Примечание: Если величина шага в операторе цикла DO равна единице, то шаг можно не указывать.
Задача:
Найти все значения функции ,если x изменяется в пределах: X=XH XK c шагом dx. Определить максимальное и минимальное значения.
Если значение <0, то результат вывести в левой части экрана, а если >0 – в правой части.
Дата добавления: 2015-06-10; просмотров: 754;