2.6 Логический условный оператор if.

Логический условный оператор предназначен для пропуска или выполнения одного указанного в нем оператора в зависимости от истинности некоторого условия. Логический оператор IF имеет формат: IF (L) S

где L – логическое выражение;

S – любой оператор Фортрана, кроме оператора цикла DO и логического IF.

Логический оператор IF выполняется следующим образом: сначала проверяется истинность логического выражения L, содержащегося в скобках в формате оператора. Если значение логического выражения истинно (.TRUE.), то следующим выполняется оператор S. Если ложно (.FALSE.), то оператор S пропускается, и управление передается следующему в записи программы оператору.

Пример 1: Функция f (x) задана Соответствующий фрагмент программы

соотношением: и блок-схема на (рис. 4, б) ):

IF (X.GE.1) Y=X*X

IF (X.LT.1) Y=1.

нет да нет да

а) б)

Рис. 4

Пример 2: Вычислить функцию Z по одной из следующих формул:

Соответствующий фрагмент программы может быть представлен так:

IF (X .LT. Y) GO TO 10

10 Z=X*X - Y*Y

GO TO 20

IF (X .EQ. Y) GO TO 30

30 Z=X * X + Y * Y

GO TO 20

IF (X .GT. Y) Z =X-Y

20 PRINT 5, Z

5 FORMAT (3X,’Z=’,F8.2)

2.7 пример выполнения задания в работе № 2 (состоит из двух частей)

Тема: Операторы передачи управления.

Цель: Составить тексты программ для вычисления значений функций, с использованием условного арифметического и условного логического операторов.

Ход работы: Ocoбoе внимание в работе следует обратить на составление фрагмента программы по математической записи вычислений и, наоборот, - на построение по фрагменту программы соответствующей ему блок-схемы и математической записи вычислений. При этом необходимо рационально использовать возможности арифметического и логического IF, а также иметь в виду, что оператор, следующий за GO TO, должен быть снабжен меткой.

Пример 1:

ПО ФРАГМЕНТУ ПРОГРАММЫ 1) ПОСТРОИТЬ БЛОК-СХЕМУ (рис 5) И ДАТЬ МАТЕМАТИЧЕСКУЮ ЗАПИСЬ ПРОЦЕССА 2).

ФРАГМЕНТ ПРОГРАММЫ 1)

IF (X-4.) 1, 1, 2

1. IF (X) 3, 4, 4

3. Y=X-9

GO TO 7

3. Y=4. *X-9

GO TO 7

2. Y=3.*X-5

7 PRINT *, ’Y= ’, Y

БЛОК-СХЕМа

нет

да

нет

Результат выполнения примера 1: да

2) МАТЕМАТИЧЕСКая ЗАПИСЬ

ПРОЦЕССА

Данный фрагмент программы реализует вычисление Y по формулам:

затем к полученному значению y прибавляется х².

Рис. 5