IF a*b=0 Then MsgBox("ab=0") Else y=1/(a*b): MsgBox ("y="& y)
End Sub
2. Индивидуальные задания
Задание 1. Использование линейной формы записи операторов
условной передачи управления
Составить программу разветвляющихся вычислительных процессов (ввод и вывод выполнить с использованием функций соответственно InputBox и MsgBox) линейной формы записи оператора условного перехода.
1) Выполнить расчет значения переменных C и В по формулам при a = 9,5; x = 7. Вывести полученные значения С и В в диалоговое окно оператора MsgBox в порядке их возрастания.
2) Даны два числа – К и L. Вывести на печать то из чисел, для которого получается больший целый остаток от его деления на четыре.
3) Даны два числа – А и D. Определить и вывести на печать целый остаток от деления большего из чисел на меньшее.
4) Даны два вещественных числа – В и С. Вывести на печать заданные числа в порядке убывания их целых частей.
5) Даны два числа – R и N. Вывести эти числа на печать в порядке убывания их модулей.
6) Даны два числа – K и N. Если разность этих чисел является четным числом, то вывести на экран их сумму, в противном случае – их произведение.
7) Даны два числа – V и W. Вывести на печать сумму модулей этих чисел, если произведение чисел кратно трем, в противном случае – разность этих
чисел.
8) Даны два числа – С и W . Определить, является ли первое число кратным второму.
9) Даны два вещественных числа – Р и С. Вывести на печать сумму этих чисел, если целая часть их разности не превышает 10, в противном случае – произведение этих чисел.
10) Даны два числа – С и К. Вывести на печать разность этих чисел, если целая часть их отношения равна нулю, в противном случае – сумму этих чисел.
11) Даны два вещественных числа – J и M. Определить, является ли целая часть суммы заданных чисел кратна пяти.
12) Из двух заданных вещественных чисел (A и N) вывести на печать то, у которого дробная часть меньше.
13) Даны два вещественных числа – Р и Q. Вывести эти числа на печать в порядке убывания их дробных частей.
14) Даны два числа – К и В. Вывести на печать сумму этих чисел, если К больше В, в противном случае – их разность.
15) Даны два числа – Н и У. Если сумма заданных чисел кратна трем, то вывести на печать их произведение, в противном случае – среднеарифмети-ческое этих чисел.
16) Написать программу, которая вычисляет частное двух чисел. Прог-рамма должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.
17) Дано целое число A. Если заданное число кратно четырем, то увеличить его в три раза, в противном случае – возвести в квадрат.
18) Даны два вещественных числа – X и Y, не равные друг другу. Наименьшее из этих чисел заменить половиной их суммы. Вывести результат замены и второе число на лист Excel.
19) Дано вещественное число А. Удвоить это число, если оно отрицательное, или увеличить на 10, если – положительное.
20) Даны два натуральных числа – К и Р. Проверить, делится ли одно из них на другое без остатка или нет. Результат проверки вывести на экран.
21) Даны два числа – А и С. Определить, является ли второе число кратным первому.
22) Даны два вещественных числа – J и M. Определить, является ли целая часть разности заданных чисел кратна трем.
23) Даны два числа – Р и Т. Если сумма этих чисел является нечетным числом, то вывести на экран их разность, в противном случае – их произведение.
24) Дано целое число М. Если заданное число кратно семи, то увеличить его в пять раз, в противном случае – возвести в куб.
25) Дано вещественное число В. Утроить это число, если оно положительное, или увеличить на 5, если – отрицательное.
Задание 2. Варианты заданий с использованием блочной формы
оператора условного перехода
Выполнить расчеты функции z(x) по данным, приведенным в Таблице 1. Применить для ввода х функцию InputBox, вывода z – MsgBox, ввода
a и b – Cells.
Таблица 1
Функции для вычисления с использованием условного оператора
Номер
варианта
|
Функция
|
Исходные данные
|
Результат
при заданном
значении x
|
1
|
|
|
|
|
2
|
|
|
|
|
3
|
|
|
|
|
4
|
|
|
|
|
5
|
|
|
|
|
6
|
|
|
|
|
7
|
|
|
|
|
8
|
|
|
|
|
9
|
|
|
|
|
10
|
|
|
|
|
11
|
|
|
|
|
12
|
|
|
|
|
13
|
|
|
|
|
14
|
|
|
|
|
15
|
|
|
|
|
16
|
|
|
|
|
17
|
|
|
|
|
18
|
|
|
|
|
19
|
|
|
|
|
20
|
|
|
|
|
21
|
|
|
|
|
22
|
|
|
|
|
23
|
|
|
|
|
24
|
|
|
|
|
25
|
|
|
|
|
|
Достарыңызбен бөлісу: |
