3.2. Индивидуальные задания

3.2.1. Примеры проверки числа на кратность

Разработать программу ввода и вывода натурального целого числа а (а ≥ 0), проверяющую кратность этого числа:

if a mod b = 0 then MsgBox ("да") else MsgBox ("нет") ;
if a/3 = fix (a/3) then MsgBox ("да") else MsgBox ("нет");
if a/3 = int (a/3) then MsgBox ("да") else MsgBox ("нет");
if a/3 = cint (a/3) then MsgBox ("да") else MsgBox ("нет");
if a/3 = a\3 then MsgBox ("да") else MsgBox ("нет").

3.2.2. Использование линейной формы записи операторов

условной передачи управления

Составить программу разветвляющихся вычислительных процессов (ввод и вывод выполнить с использованием функций соответственно 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) Даны два натуральных числа –К и Р. Проверить, делится ли одно из них на другое без остатка или нет. Результат проверки вывести на экран.