информатика-задание4-
.docxЗадание по VBA. Цикл DO(while, until)
Указание:
-
Программу реализовать в двух вариантах (с использованием цикла while и until)
-
Создать форму, которая бы содержала текстовые поля для ввода данных и две кнопки. Первая “While” запускает программу решения задачи с использованием цикла While, вторая “until” запускает программу с использованием цикла until.
-
Промежуточные результаты выводить на лист.
Вариант 1
Дана последовательность чисел из n членов и числа а и b. Определить, есть среди членов последовательности хотя бы один, попадающий в интервал .
Вариант 2
Дана последовательность , состоящая из дробей:
Какое минимальное количество элементов последовательности нужно перемножить, чтобы результат превысил число P (вводится с клавиатуры).
Вариант 3
Найти первый отрицательный член последовательности , если - запрашивается, а .
Вариант 4
Вводится последовательность чисел, заканчивающаяся нулем. Определить разность между максимальным и минимальным членом последовательности.
Вариант 5
Дана последовательность чисел. Вывести первый локальный минимум.
Вариант 6
Дан ряд, состоящий из дробей: , где х – положительное число.
Какое минимальное число элементов ряда необходимо сложить (начиная с первого элемента), чтобы сумма превысила число 5?
Результат поместить в ячейку рабочего листа.
Вариант 7
Дана последовательность из n чисел. Найти номер первого элемента, равного числу A.
Вариант 9
Дана последовательность из n чисел. Найти номер первого отрицательного, кратного 5 числа.
Вариант 10
Дана последовательность чисел, заканчивающаяся 0. Определить порядковый номер максимального элемента.
Вариант 11
Найти произведение чисел их ячеек столбца C, начиная с последнего до первого отрицательного числа.
Вариант 12
Вычислить с точностью до ζ >0 значение ряда
Вариант 13
Вычислить, сколько членов должно быть в последовательности, чтобы обеспечить сумму равной 7.
Вариант 14
Дана последовательность из n чисел. Определить со скольких отрицательных она начинается.
Вариант 15
Дана последовательность чисел . Найти номер последнего положительного кратного 3 числа. Если таких чисел нет, вывести соответствующее сообщение.
Вариант 16
Вычислить сумму чисел в ячейках столбца B, следующих за первым элементом, равным целому числу A.
Вариант 17
Вычислить с точностью ζ=0.0003 сумму
Вариант 18
Вычислить произведение чисел последовательности из n элементов, следующих за первым положительным четным числом.
Вариант 19
Распечатывать значения функции, пока не достигнуто пересечение графиков функций . Погрешность вычисления принять равной 0.001.
Вариант 20
Дана последовательность из n чисел. Распечатывать в соседнем столбце квадраты чисел, до тех пор, пока не встретится положительный четный элемент.
Вариант 21
Вычислить с точностью до ζ >0 значение ряда
Вариант 22
Дана последовательность чисел. Вычислить сумму элементов последовательности, предшествующих первому элементу, большему 7 и кратному 3.
Вариант 23
В столбце C распечатывать значения угла в радианах в пределах с заданным шагом ( запросить с клавиатуры) . Вычислить синус первого числа, меньшего .
Вариант 24
Вычислить количество четных чисел из n ячеек столбца C, начиная с C3 до первого нечетного числа.
Вариант 25
Сколько членов должно быть в последовательности, чтобы обеспечить сумму равной 5.
Вариант 26
Дано n пар чисел, представляющих собой координаты точек на плоскости. Найти R — радиус наименьшей окружности с центром в начале координат, в которую попадают все точки.
Вариант 27
Доказать, с точностью до 0.00001, что первый замечательный предел равен 1. При доказательстве пользоваться соотношением
Вариант 28
Дана матрица с 2 строками и 10-ю столбцами. Первый элемент каждого столбца представляет абсциссу, а 2-ой — ординату одной из 10 точек. Проверить, все ли точки располагаются на прямой, проходящей через начало координат (в этом случае имеет место пропорциональная зависимость абсцисс и ординат).
Вариант 29
Распечатывать значения функции, пока не достигнут нуль функции . Погрешность вычисления принять равной 0.001.
Вариант 30
Доказать, с точностью до 0.0001, что производная от синуса есть косинус . При доказательстве пользоваться соотношением.
Запрашивается число n. Логической переменной t присвоить значение true, если в последовательности есть хотя бы одно отрицательное число, иначе false.
Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число).
Спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. Каждый следующий день он увеличивал длину пробега на P процентов от пробега предыдущего дня (P — вещественное, 0 < P < 50). По данному P определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км, и вывести найденное количество дней K (целое) и суммарный пробег S (вещественное число)
Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K. Если таких чисел нет, то вывести 0.