информатика-задание4-

Задание по VBA. Цикл DO(while, until)

Указание:

1. Программу реализовать в двух вариантах (с использованием цикла while и until)

2. Создать форму, которая бы содержала текстовые поля для ввода данных и две кнопки. Первая “While” запускает программу решения задачи с использованием цикла While, вторая “until” запускает программу с использованием цикла until.

3. Промежуточные результаты выводить на лист.

Вариант 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.