На языке BASIC.
Для составления разветвляющихся программ используются операторы безусловной и условной передачи управления (см. рис. 2.2). В разветвляющихся вычислительных процессах последовательность выполнения операций заранее не определена и ставится в зависимость от результатов проверки заданных условий.
Оператор безусловного перехода. Общий вид оператора
GO TO N,
где N метка. Этот оператор передает управление первому оператору в строке с меткой N.
Условные операторы. Условные операторы служат для изменения порядка выполнения операторов в зависимости от какого - либо условия.
Условные операторы могут использоваться для организации циклов и ветвлений.
Общий вид условных операторов
1) IF «условие» THEN (или GO TO) N;
2) IF «условие» THEN «действие»;
3) IF «условие» THEN «действие 1» ELSE «действие 2»;
IF «условие 1» THEN
«Блок 1»
ELSEIF «условие 2» THEN
«Блок 2»
. ..
ELSE
«Блок K»
ENDIF
где условие имеет вид
(арифметическое выражение 1) θ (арифметическое выражение 2)
|
|
θ - одна из операций отношения <, <=, >, >=, =, <>;
N - метка; действие - любой оператор BASIC а, в том числе это может быть другой условный оператор.
Сочетание THEN IF позволяет "вкладывать" условия друг в друга. Например,
IF Q >= 3.5 THEN IF Q < 7.4 THEN 20
Действие условного оператора заключается в следующем:
если условие удовлетворяется, то в первом случае осуществляется переход к строке с меткой N=20, во втором и в третьем случаях выполняется оператор, следующий за THEN.
Если условие не удовлетворяется, то в первом случае осуществляется переход к оператору, следующему за условным. Во втором случае осуществляется переход к первому оператору следующей строки,
т. е. все операторы в строке, следующие за условным оператором, при этом игнорируются. В третьем случае выполняется действие, записанное после ключевого слова ELSE.
Возможна одновременная проверка нескольких условий, соединенных словами:
OR - условие считается выполненным, если выполняется хотя бы одно из проверяемых условий;
AND - условие выполнено, если выполняются все проверяемые условия одновременно;
XOR - условие выполнено, если выполняется ровно одно из двух проверяемых условий.
Пример 3. Вычислить
|
Рис. 2.2. Блок - схема разветвляющегося вычислительного процесса
Программа для примера 3 (см. рис. 2.2.):
INPUT "m,n="; m,n
X=3*COS(m/n)
IF X<0 THEN
Y=X^2+3*X-7
ELSEIF X>=1 THEN
Y=EXP(X)
ELSE
Y=2*X-1
ENDIF
PRINT "X="; X, "Y="; Y
END