Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Математическое выражение Запись на Qbasic



ax < b x > = a AND x < b

a < xb или cxd x >a AND x <= b OR x >= c AND x<= d

Работа операторов: совокупность операторов THEN выполняется, если выражение истинно. Если выражение ложно, выполняется совокупность операторов ELSE. Если слово ЕLSE отсутствует, то управление передается следующему оператору программы.

Такая запись условных операторов называется однострочной.

Можно использовать многострочную форму (блочную) записи оператора IF.

Общий вид:

IF выражение 1 THEN

Операторы 1

ELSEIF выражение 2 THEN

Операторы 2

ELSE

Операторы 3

End IF

При выполнении условного блокового оператора проверяется первое выражение и при его истинности выполняется первый блок операторов. Иначе проверяются все логические условия, следующие за словом ELSEIF до тех пор, пока не будет найдено условие, принимающие значение "истина". В этом случае выполняется блок операторов за словом THEN, иначе выполняется блок операторов за словом ELSE. Блоки ELSEIF и ELSE необязательны.

Пример 1. Даны два числа А и В. Определить максимальное среди них.

Можно применять любой из двух вариантов использования IF:

1. Краткий

max=a

If b>max Then max=b

2. Полный

If a>b Then max=a Else max=b

Пример 2. Вычислить значения функции y = .

If x<0 Then MsgBox “Решения нет “,, “ Ф-ция у ” Else MsgBox Sqr (x),,“y= “

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

Sum=0: Kol=0

If A>0 Then Sum=Sum+A: Kol=Kol+1

If B>0 Then Sum=Sum+B: Kol=Kol+1

Пример 4. Даны два числа А и В. Есть ли среди них положительные?

If А>0 and B>0 Then MsgBox “Оба положительные “,, “ Числа А и В ”

If А>0 or B>0 Then MsgBox “Одно положительное”,, “Среди чисел А и В “

Else MsgBox “Нет положительных”,, “Среди чисел А и В “

Пример 5. Дано число X. Определить, является ли оно положительным, отрицательным или нулем.

strZ=”Значение Х-“

If X > 0 Then

MsgBox ” положительное”,, strZ

Else If X < 0 Then

MsgBox “ отрицательное”,, strZ

Else

MsgBox “ это 0",, strZ

End If





Дата публикования: 2015-07-22; Прочитано: 163 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.006 с)...