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

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

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

В зависимости от варианта ответа

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

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

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

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

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

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

оператор
IF (ЛВ) оператор S,
где S – любой выполняемый оператор, кроме

оно или ложно.
Порядок выполнения условного логического оператора:
2. Если ЛВ истинно,

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

переменной Xmin.
Описание алгоритма
Тогда, сравнивая Xmin с другими переменными x2

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

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

программы
Код программы по примеру 2.
print *, “Vvod x1, x2,

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

Xmin = x1

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

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

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

или арифметических выражений.
Условный блочный оператор
Если ЛВ истинно (или как еще

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

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

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

B
IF (A > B) then
Amax=A

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

PRINT *, ‘Amax=’, Amax

END

структурный оператор

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

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

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

3 – sin(x)
if (t > 0) then

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

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

print *, ‘ y =’, y
END

CASE DEFAULT ]
SN+1
END SELECT
Оператор выбора (общий вид)

Lkey1, Lkey2, ... , LkeyN - список значений, которые могут

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

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

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

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

либо 5, либо 12, либо 19.
Оператор выбора
CASE (2:10) - блок

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

кг, 2 – мг, 3 – г, 4 – т,

! Поясняющая информация
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

! Если масса в кг – перевод не нужен
m=m
case

case (3) ! Перевод граммов в kg’
m=m*10**3

case (4) ! Перевод тонн в kg’
m=m*10**(-3)

case (5) ! Перевод центнеров в kg’
m=m*10**(-2)

case default ! если не один из случаев не сработал
print *, ‘ Net takogo nomera, 1 ≤ N ≤ 5 !’

END SELECT ! конец оператора выбора

print *, ‘ M=’,m,’ kg’ ! вывод результата
end