Контрольная по программированию на VBA для Excel Задание 2 Второй вариант.

Задание 2 на тему «Условный оператор»

Ввести числа в переменные X и Y. Записать в переменную Z значение вычисленное по следующему условию:

Решение подобной задачи:

Sub задание2()<br> Dim x As Single, y As Single, z As Single 'инициализируем переменную'<br> x = Val(InputBox("Введите число в переменную z", "Ввод данных")) 'вводим данные в переменную'<br> y = Val(InputBox("Введите число в переменную z", "Ввод данных")) 'вводим данные в переменную'<br> If (y >= 0) And (y <= 10) Then 'Проверяем входит ли y заданный диапозон значений '<br> z = ((Abs(x + 5) ^ (1 / 2)) / (y ^ (x - 2))) * (x + ((y) ^ 2)) 'вычисляем если входит'<br> MsgBox "Результат z = " + Str(z) 'Выводим результат'<br> Else 'если y не входит в диапозон'<br> z = ((x + y)) ^ (1 / 3) 'вычисляем'<br> MsgBox "Результат z = " + Str(z) 'Выводим результат'<br> End If<br> End Sub

155
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.