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; просмотров: 467; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


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

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

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

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