Программирование разветвлений

разветвляющейся структуры

Чаще всего ветвление предусматривает два варианта. В блок-схемах эта ситуация описывается следующим образом:

выполнено),
НЕТ (условие не выполнено).

В зависимости от варианта ответа и выбирается вариант выполнения алгоритма, или, как говорят, выполняется ветвь.

Пример 1. Составить алгоритм нахождения действительных корней квадратного уравнения общего вида ax2+bx+c=0, a≠0, b≠0.
В случае, если нет действительных корней, написать «нет действительных корней».

условный логический оператор, условный блочный оператор, условный структурный оператор.

Условные операторы

В этих операторах условие записывается в виде логического выражения, которое может принимать лишь два значения: .TRUE. (истина) или .FALSE. (ложь).

переменных или арифметических выражений. Напомним, как логические операции записываются на Фортране.

Логическое выражение

.GT.
Больше или равно >= или .GE.
Не равно /= или .NE.
Меньше < или .LT.
Меньше или равно <= или .LE.
Равно == или .EQ.

Операции отношения

(ЛВ) оператор S,

где S – любой выполняемый оператор, кроме оператора цикла и другого условного оператора.

или ложно.

Порядок выполнения условного логического оператора:

2. Если ЛВ истинно, то выполняется оператор S. После него выполняется оператор, следующий за условным оператором.

3. Если ЛВ ложно, то оператор S не выполняется и управление передается оператору, следующему за условным логическим оператором.

Xmin.

Описание алгоритма

Тогда, сравнивая Xmin с другими переменными x2 и x3, в случае, если оказывается, что Xmin больше x2, то переменной Xmin присваиваем значение переменной x2.

Затем также сравниваем переменную x3 и Xmin. Если оказывается, что Xmin больше x3, то переменной Xmin присваиваем значение переменной x3.

Пример 2. Найти минимальное из трех произвольных вещественных чисел x1, x2, x3, не равных между собой.

“Vvod x1, x2, x3” ! поясняющий текст

read *, x1, x2, x3 ! ввод значений переменных

Xmin = x1

if (Xmin > x2) Xmin = x2 ! Логический оператор 1

if (Xmin > x3) Xmin = x3 ! Логический оператор 2

print *, “Xmin =”, Xmin ! вывод результата
END ! конец программы

арифметических выражений.

Условный блочный оператор

Если ЛВ истинно (или как еще говорят, ЛВ выполняется), то выполняются операторы ветви 1, а операторы ветви 2 пропускаются. Если ЛВ ложно (или как еще говорят, ЛВ не выполняется), то выполняются операторы ветви 2, а операторы ветви 1 пропускаются.

Блочный оператор применяется, если по алгоритму задачи требуется разделение вычислений на две ветви.

нужно предусмотреть обход, тогда можно использовать условный блочный оператор, который содержит только одну ветвь:

Пример 3. Найти максимальное из двух произвольных не равных друг другу чисел.

(A > B) then
Amax=A ! Операторы ветви 1

else
Amax=B ! Операторы ветви 2
endif

PRINT *, ‘Amax=’, Amax

END

оператор

– операторы не выполняются;

Порядок выполнения условного структурного оператора:

если ЛВ2 – истинно, то выполняются операторы ветви 2, если ложно – операторы не выполняются;

если ЛВ1 и ЛВ2 – ложны, то выполняются операторы ветви 3.

правильно составить программу вычисления y, надо предварительно определить знак подкоренного выражения. Из правил математики известно, что

– sin(x)

if (t > 0) then
y = t **(1./3.) ! Ветвь 1

else if (t < 0) then
y = t **(1./3.) ! Ветвь 2

else
y = 0 ! Ветвь 3
end if

print *, ‘ y =’, y
END

DEFAULT ]
SN+1
END SELECT

Оператор выбора (общий вид)

Lkey2, ... , LkeyN - список значений, которые могут быть константными выражениями.

Оператор выбора

S1, S2, ... , SN, SN+1 - блоки операторов.

CASE DEFAULT является необязательным.

Список значений Lkeyi можно задавать либо одним значением, либо списком отдельных значений, разделенных запятыми, либо диапазоном значений, разделенных двоеточием.

5, либо 12, либо 19.

Оператор выбора

CASE (2:10) - блок выполняется, если управляющий параметр заключен в диапазоне от 2 до 10.

CASE (‘A’:’z’) - блок выполняется, если управляющий параметр символьного типа является латинской буквой.

2 – мг, 3 – г, 4 – т, 5 – ц) и массе M вывести на экран соответствующее значение массы в килограммах.

! Поясняющая информация
print *, ‘Programma perevodit massu M v kilogrammy’
print *, ‘Vvedite massu M’

! Ввод значения переменной М
read *, M

! Поясняющая информация
print *, ‘Vvedite nomer edinitsy izmereniya massy M’
print *, ‘ 1 – kg, 2 – mg, 3 – gr, 4 – tonna, 5 – centner’

! Ввод номера единицы измерения n
read *, n