перечисление ВидОперации
Сложение,
Вычитание,
Умножение,
Деление,
Степень,
Остаток
;
метод ВыполнитьОперацию(Операция: ВидОперации, Операнд1: Число, Операнд2: Число): Число
выбор Операция
когда Сложение
возврат Операнд1 + Операнд2
когда Вычитание
возврат Операнд1 - Операнд2
когда Умножение
возврат Операнд1 * Операнд2
когда Деление
если Операнд2 != 0
возврат Операнд1 / Операнд2
иначе
выбросить новый ИсключениеНедопустимыйАргумент("Деление на ноль запрещено.")
;
когда Степень
возврат Операнд1 ** Операнд2
когда Остаток
если Операнд2 != 0
возврат Операнд1 % Операнд2
иначе
выбросить новый ИсключениеНедопустимыйАргумент("Деление на ноль запрещено.")
;
иначе
выбросить новый ИсключениеНедопустимыйАргумент("Неподдерживаемая операция.")
;
;
метод ВыполнитьВычисления()
ВыполнитьОперацию(ВидОперации.Сложение, 20, 30)
ВыполнитьОперацию(ВидОперации.Вычитание, 50, 30)
ВыполнитьОперацию(ВидОперации.Умножение, 20, 30)
ВыполнитьОперацию(ВидОперации.Деление, 2500, 50)
ВыполнитьОперацию(ВидОперации.Степень, 2, 8)
ВыполнитьОперацию(ВидОперации.Остаток, 28, 6)
;