Задание 2 Программирование разветвлений

Задание №2. Программирование разветвлений.

1. Записать процедуру, которая определяет максимальное число из трех заданных целых чисел.

2.После отладки программы реализуйте ввод чисел из ячеек активного листа Excel.

3.Реализуйте выполнение следующей процедуры

Public Sub Pro3()

Dim x As Boolean, y As Boolean, z As Boolean Cells(1, 1) = "z"

Cells(2, 1) = "x"

Cells(3, 1) = "y" Cells(4, 1) = "x And y"

Cells(5, 1) = "x And y Or z" z = True

x = True

y = False Cells(1, 2) = z Cells(2, 2) = x Cells(3, 2) = y

Cells(4, 2) = x And y Cells(5, 2) = x And y Or z End Sub

После выполнения макроса на активном листе получим

Задачи для самостоятельной работы.

1. По заданным x, y cоставить процедуру вычисления функции z:

2.Даны действительные числа x, y. Определить, принадлежит ли точка с координатами х, y заштрихованной части плоскости:

3.По четырехзначному номеру трамвайного билета определить, является ли он счастливым. (Билет считается счастливым, если сумма первых трех цифр номера совпадает с суммой трех его последних цифр).

4.Определить, является ли заданный год N високосным. Год високосный, если N не кратно 100 и число, изображаемое его двумя последними цифрами, кратно четырем. Если N кратно 100, то год високосный, лишь при N кратном 400.

5.По заданным вещественным числам a, b, c вычислить:

P max(a,b,c) min(a,b,c) . 2

6. Найти решение системы уравнений:

ax by c,dx ey f .

7.Ввести три вещественных числа a, b, c – длины трех отрезков. Если отрезки могут быть сторонами треугольника, найти его периметр и площадь.

8.Заданы числа k, a, b. Определить число точек пересечения прямой y=kx+b с гиперболой y=a/x и их координаты.

9.Заданы числа k, a, b. Проверить, попадают ли вещественные корни

уравнения x2+ax+b=0 в интервал (-k,k).

10.Заданы числа k, b, c, d, e. Определить количество и координаты точек пересечения прямой у=kx+b и параболы y=cx2+dx+e и расстояние от каждой точки до начала координат.

11.Заданы числа a, b, c, u, v. Найти наибольшее и наименьшее значения функции у=ax2+bx+c на отрезке [u,v].

12.Ввести N1, N2, N3 – количества пропущенных часов занятий в среднем на студента за неделю для трех групп. Если min(N1,N2,N3)<10, то напечатать «есть хорошая группа».

13.Ввести N1, N2, N3 – количества рекламаций на 3 вида товаров. Напечатать текст “все товары хорошие”, если max(N1, N2, N3)<5, иначе – «есть плохие товары».

14. Дано N – возраст человека. Выбрать для этого N наиболее подходящее из слов: год, года, лет.

15.По дате рождения и сегодняшней дате определить количество дней до следующего дня рождения.

16.По дате рождения и сегодняшней дате определить количество прожитых дней.

17.Известны день недели, соответствующий 1 января текущего года, и сегодняшняя дата (день, месяц). Определить, какой сегодня день недели.