Условный оператор IF … THEN … ELSE. Для выполнения действий по заданным условиям в Gambas существует условный оператор, который имеет краткую и полную формы. Краткая форма: Запись в одну строку, если нужно выполнить одно действие по условию IF THEN IF THEN Запись, если действий много IF THEN … END IF
Запись в одну строку, если нужно выполнить несколько действие по условию IF THEN : IF THEN : Условием может выступать любая арифметическая операция сравнения: > - больше; = - больше или равно; - неравно; Графическое представление краткой формы условного оператора: действие ? нет да
Полная форма: Запись в одну строку, если нужно выполнить одно из двух действий IF THEN ELSE Запись, если действий много IF THEN … ELSE … END IF
Графическое представление полной формы условного оператора: действие_1 ? нет да действие_2 Задача 1: Даны три переменные: D, E, F, значения которых запрашиваются командой Input. Где D – количество столов, привезенных в здание; Е – количество одинаковых помещений в здании; F – количество столов, которых нужно поставить в одно помещение. Определить: а) сколько помещений полностью будут заставлены столами; б) хватит ли столов на всё здание (вывод на форму «да» или «нет» в) если «нет», то сколько нужно еще столов; г) если «да», то сколько столов лишних.
Решение: Dim d, e, f as integer Input d, e, f Print "количество привезенных столов ="; d Print "количество помещений ="; e Print "количество столов для одного помещения ="; f n = e * f If d >= n Then Print "Столами заставят "; e; " помещений" If d < n Then Print "Столами заставят "; Fix(d / f); " помещений" If d >= n Then Print "Да, столов хватит. Лишних - "; d - n If d < n Then Print "Нет, столов не хватит. Не хватает - "; n - d
Задача 1_а: Измените программу так, чтобы не появлялось сообщение «Лишних - 0». Задача 2: Даны три переменные: E, F, G, значения которых запрашиваются командой Input. Где E – количество деревьев в лесу; F – сколько месяцев продолжалась вырубка; G – количество деревьев, вырубленных за неделю. Для простоты решения принять, что в каждом месяце по 4 недели. Определить: а) сколько деревьев было вырублено за все время; б) останутся ли деревья в лесу (вывод на форму «да» или «нет» в) если «нет», то сколько нужно еще деревьев; г) если «да», то сколько деревьев осталось. Задача 2_а: Изменить программу так, чтобы расчет велся точно, т.е. в месяце не 4 недели.
Результат выполнения программы задания 1 может быть такой, как на рис.: