Приложение 1. Создать макросы по расчету значеий функции с точностью до 2 знака:

Задания

Задание 1.1. Макросы

Создать макросы по расчету значеий функции с точностью до 2 знака:

1. x = 12.347, y = 10.678

2. x = 6.121, y = 15.773

3.

x = 15.664, y = 29.786, t = 32.124

Задание 1.2. Организация Windows диалога - выполнить вычисления (макрос) по формулам:

 

- данные вводятся с клавиатуры,

- если данные не числа – сообщение об ошибке,

- после вычислений вывести запрос на продолжение.

 

Задание 1.3. Вычислить площадь окружности, данные вводятся в окна, результат вывести в окно с сообщением «Площадь =».

 

Задание 1.4. Вычислить длину окружности (радиус = 25), вывести результат в окно с названием «Длина окружности».

2.Математические функции

Задание 2.2: рассчитать сумму выплат как «оклад + премия - подоходный налог», данные вводятся в ячейках В1, В2, В3; результат – в ячейке В4.

 

Задание 2.3: создать функцию для расчета премии по формуле: прибыль * на процент / на число сотрудников (прибыль и процент – переменные, вводятся в окно функции; число сотрудников - ввести как константу).

3. Операторы ветвления VBA

 

Задание 3.1: условный переход

 

 

Задание 3.2: организовать ввод температуры воды в диалоге, добавить в программу условие: < 0 – «Вода превращается в лед».

 

Задание 3.3: создать программу для расчета оценки в зависимости от суммы баллов: > 70 – 5, > 40 – 4, > 30 – 3, > 15 - 2.

 

Задание 3.4: создать функцию для расчета прибыли в зависимости от стажа работы: < 5 лет –5%, < 10 лет – 10%, < 20 лет – 20%, > 30 лет – 30%.

 

4. Операторы циклов

Задание 4.1: Составить программу для расчета суммы нечетных и нечетных чисел от 1 до 50.

 

Задание 4.2: Составить программу для расчета суммы чисел от 1 до 1000.

 

Задание 4.3: Создать функцию, которая вычисляет произведение чисел от заданного числа до конечного с шагом 2.

 

Массивы

 

Задание 5.1. Заполнить два массива случайными числами, вычислить их сумму.

 

Задание 5.2: Заполнить два массива случайными числами, создать третий массив, элементы которого являются суммами двух предыдущих.

 

Задание 5.3. Разместить в диапазоне ячеек B5 - I5 целые положительные и отрицательные числа. Разработать макрос для определения максимального числа. Вывести на рабочий лист найденное значение и сумму максимальных значений.

 

Задание 5.4. Отсортировать введенную вручную в ячейки D2:M2 последовательность чисел по возрастанию.

 

Многомерные массивы

 

Задание 6.1: Заполнить матрицу B5:F15 случайными числами, вывести элементы матрицы в строку, начиная с ячейки А1.

 

Задание 6.2: Заполнить две матрицы любыми числами вручную, получить третью матрицу, элементы которой являются суммами двух предыдущих.

 

Задание 6.3: Вычислить сумму элементов для каждого столбца матрицы B2:F8. Вывести результаты в строке, начиная с A10.

 

Задание 6.4: Создать функцию, определяющую количество столбцов в произвольном массиве.

 

Задание 6.5: Определить количество ячеек в произвольном выделенном диапазоне.

Задания

Тип I

Вариант 1. Заданы вершины треугольника А(x1,y1), B(x2,y2), C(x3,y3). Вычислить длину медианы, проведенной из А.

Вариант 2. Известно, что из четырех чисел x1,x2,x3,x4 три равны между собой, а одно отлично от них. Присвоить переменной NF номер этого числа, а переменной F значение этого числа.

Вариант 3. Составить программу, которая бы с помощью оператора переключателя реализовала бы все возможные операции над двумя целыми числами.

Вариант 4. Составить программу, которая бы с помощью оператора переключателя реализовала бы все возможные операции над двумя вещественными числами.

Вариант 5. Для целого числа К от 1 до 9 вывести фразу "мне К лет", учитывая при этом, что при некоторых значениях К слово "лет" надо заменить на слово "год" или "года".

Вариант 6. Для натурального числа К напечатать фразу "мы нашли К грибов в лесу", согласовав окончание слова "гриб" с целым числом К.

Вариант 7. Составить программу, которая бы реализовала следующий алгоритм: по введенным названиям двух нот (до, ре, ми, фа, соль, ля, си) определить интервал, образованный нотами. Секунда - это интервал из двух соседних нот (по кругу), терция - интервал через ноту и т.д. (кварта, квинта, секста, септима)

Вариант 8. Введенные значения переменных a, b, c поменять местами так, чтобы оказалось a>=b>=c.

Вариант 9. Дано число х. Напечатать в порядке возрастания числа cos(x), 1+|x|, (1+ x x) (1+ x x).

Вариант 10. Даны числа a, b, c, d, e, f. Найти координаты точки пересечения прямых, описываемых уравнениями a x + b y=c и d x + e y=f, если она существует.

Вариант 11. Даны числа a, b, c. Если нельзя построить треугольник с такими длинами сторон, то вывести 0, если треугольник равносторонний - 1, если равнобедренный - 2, если прямоугольный - 3.

Вариант 12. Составить программу согласно условию. Присвоить переменной F значение 1, если ни одно из чисел x, y, z не является положительным и целым, и 0 в противоположном случае.

Вариант 13. Составить программу согласно условию. Присвоить переменной F значение 1, если только два числа из трех чисел x, y, z являются положительными и целыми, и 0 в противоположном случае.

Вариант 14. Составить программу согласно следующему условию. Присвоить переменной f значение 1, если цифра 3 входит в запись заданного трехзначного числа x, и 0 в противоположном случае.

Вариант 15. Заданы координаты вершин треугольника. Выяснить является ли заданный треугольник тупоугольным или нет.

Тип II

Вариант 1. Вычислить S = 1 + 2/2 + (2 4)/(2+4) +... +(2 4 6...(2 N))/(2+4+6+..+(2 N)) для заданного N.

Вариант 2. Вычислить S = sqrt(3 + sqrt(6 + sqrt(9 +... + sqrt(96 + sqrt(99)...).

Вариант 3. Вычислить S = 1/sqrt(1 3) + 1/sqrt(3 5) +... + 1/sqrt(199 201).

Вариант 4. Числа Фибоначчи определяются формулами F(0)=F(1)=1,

F(i)=F(i-1)+F(i-2), i=2,3,... Найти 35-е число Фибоначчи.

Вариант 5. Найти первое число Фибоначчи, большее N, где N - заданное натуральное число, большее 1.

Вариант 6. Найти сумму чисел Фибоначчи, больших М и меньших N, где M и N - заданные натуральные числа, 1<M<N.

Вариант 7. Вычислить сумму всех чисел Фибоначчи, которые не превосходят 100.

Вариант 8. Подсчитать количество чисел Фибоначчи, которые не превосходят заданного целого числа. Напечатать их.

Вариант 9. Вычислить S = (1 + 1/3) * (1/5 + 1/7) * (1/9 +1/11 + 1/13) *...* (1/33 + 1/35 + 1/37 + 1/39 + 1/41 + 1/43).

Вариант 10. Вычислить S = 4/2 + (4 7)/(2 6) +(4 7 10)/(2 6 10) +... +

(4 7 10...301)/(2 6 10... 398).

Вариант 11. Вычислить S = cos(1 +cos(2 +... + cos(39+ cos(40)...).

Вариант 12. Вычислить S = sh(x) = x + x^3/3! + x^5/5! +...+ x^(2 N+1)/(2 N+1)! для заданного N.

Вариант 13. Вычислить S = cos(x) = 1 - x^2/2! + x^4/4! +..+ (-1)^N

x^(2 N)/(2 N)! для заданного N.

Вариант 14. Вычислить S = Ln(1+x) = x - x^2/2 + x^3/3 +..+ (-1)^(N-1) x^N/N для заданного N и |x|<1.

Вариант 15. Вычислить S = arctg(x) = x - x^3/3 + x^5/5 +...+ (-1)^N

x^(2 N+1)/(2 N+1) для заданного N и |x|<1.

Поиск по сайту: