1 курс 2 семестр VBA задачи с циклами

advertisement
Часть 4. СОЗДАНИЕ ПРОГРАММ С ЦИКЛИЧЕСКОЙ СТРУКТУРОЙ
ВАРИАНТЫ ЗАДАНИЙ
1. Составьте программу на языке VBA, которая определяет количество пар
элементов последовательности, одинаковых между собой. Программа должна
проверять правильность введенных пользователем данных и, если они неверные ( n =
0), выдавать сообщение об ошибке.
Исходные данные:
1.
Введите
кол-во
последовательности n: 0
2.
Введите
кол-во
последовательности n: 7
элементов
Результат:
Неверно введено n
элементов
Ответ: 3
Последовательность: (1 1 1 2 3 3)
2. Составьте программу на языке VBA, которая определяет количество целыx
чисел
в
последовательности
вещественных
чисел,
признаком
конца
последовательность является ввод нуля. Программа должна проверять правильность
введенных пользователем данных и, если они неверные (первое введенное число
равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
(1
Результат:
Неверные данные
Ответ: 4
1.1 1 2 3.3 3 0)
3. Составьте программу на языке VBA, которая определяет количество чисел в
последовательности из n чисел, которые делятся на заданное число m. Программа
должна проверять правильность введенных пользователем данных и, если они
неверные ( n <= 0 или m<=1), выдавать сообщение об ошибке.
Исходные данные:
1. Введите кол-во элементов n: 0
Введите заданное число m: 2
2. Введите кол-во элементов n: 5
Введите заданное число m: 1
3. . Введите кол-во элементов n: 5
Введите заданное число m: 3
Результат:
Неверно введено n или m
Неверно введено n или m
Таких чисел 3 шт.
Последовательность: (3 1 6 0 5)
4. Составьте программу на языке VBA, которая определяет сумму целыx чисел в
в последовательности вещественных чисел, признаком конца последовательность
является ввод нуля. Программа должна проверять правильность введенных
пользователем данных и, если они неверные (первое введенное число равно нулю),
выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
(1
Результат:
Неверные данные
Ответ: 7
1.1 1 2 3.3 3 0)
5. Составьте программу на языке VBA, которая вычисляет сумму L квадратов
отрицательных элементов в последовательности из n чисел,. Программа должна
проверять правильность введенных пользователем данных и, если они неверные ( n
<= 0), выдавать сообщение об ошибке.
Исходные данные:
1.
Введите
кол-во
последовательности n: 0
2.
Введите
кол-во
последовательности n: 7
элементов
Результат:
Неверно введено n
элементов
Ответ: 13
Последовательность: (1 1 1 -2 3 -3)
6. Составьте программу на языке VBA, которая определяет количество четных,
делящихся при этом на 3 элементов в последовательности целых чисел, признаком
конца последовательность является ввод нуля. Программа должна проверять
правильность введенных пользователем данных и, если они неверные (первое
введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
(1
Результат:
Неверные данные
Ответ: 2
7 18 20 3 240 0)
7. Составьте блок-схему и программу на языке VBA, которая вычисляет
1
x
сумму первых n членов ряда  
2
3
 3  ..., при x  1. Количество суммируемых
2
x
x
членов ряда задается во время работы программы. Программа должна проверять
правильность введенных пользователем данных и, если они неверные
(n  0, x  1) , выдавать сообщение об ошибке.
Исходные данные:
1. Введите кол-во членов ряда n: 3
Введите x: 0,2
2. Введите кол-во членов ряда n: 3
Введите x: 2
2. Введите кол-во членов ряда n: 5
Введите x: 2,2
Результат:
Неверные данные
Ответ: -0,375
Ответ: -0,2493309
8. Составьте блок-схему и программу на языке VBA, которая определяет
S 
a
2
 a
2
 ...  a
2
1
2
n ) элементов последовательноссреднее квадратичное (
ти, признаком конца последовательность является ввод нуля. Программа должна
проверять правильность введенных пользователем данных и, если они неверные
(первое введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность :
(2
Результат:
Неверные данные
Среднее квадратичное: 11,2249
4 -1 -2 8 6 1 0)
9. Составьте блок-схему и программу на языке VBA, которая вычисляет
сумму первых n целых положительных четных чисел. Количество суммируемых чисел
должно вводиться во время работы программы. Программа должна проверять
правильность введенных пользователем данных и, если они неверные (0 < n),
выдавать сообщение об ошибке.
Исходные данные:
1. Введите количество чисел n: 0
2. Введите количество чисел n: 2
2. Введите количество чисел n: 25
Результат:
Неверно введено n
Сумма: 6
Сумма: 650
10. Составьте программу на языке VBA, которая определяет среднее
геометрическое ( S 
a1 * a 2 * ... * an
) элементов последовательности, признаком конца
n
последовательность является ввод нуля. Программа должна проверять правильность
введенных пользователем данных и, если они неверные (первое введенное число
равно нулю), выдавать сообщение об ошибке.
1. Введите последовательность а: 0
2. Введите последовательность :
(2
Неверные данные
Среднее квадратичное: 38,4
2 3 3 4 0)
11. Составьте блок-схему и программу на языке VBA, которая вычисляет
значение n-го элемента в последовательности
элемента должен вводиться во
время работы программы.
введенных пользователем данных
сообщение об ошибке.
Исходные данные:
1. Введите номер элемента n: 0
2. Введите номер элемента n: 2
2. Введите номер элемента n: 9
1 2
3
4
n
; 2 ; 3 ; 4 ;... n , при x  1. Номер
2 2
2
2
2
Программа должна проверять правильность
и, если они неверные (0 < n), выдавать
Результат:
Неверно введено n
Ответ: - 0,5
Ответ: 0,01757813
12. Составьте блок-схему и программу на языке VBA, которая вычисляет
среднее
арифметическое
первых
n
членов
ряда
1 1 1
1
; ; ;..., .
1 2 3
n
Количество
суммируемых членов ряда задается во время работы программы. Программа
должна проверять правильность введенных пользователем данных и, если они
неверные (n  0) , выдавать сообщение об ошибке.
Исходные данные:
1. Введите кол-во элементов n: 0
2. Введите кол-во элементов n: 2
3. Введите кол-во элементов n: 7
Результат:
Неверно введено n
Ответ: 0,75
Ответ: 0,3704083
13. Составьте блок-схему и программу на языке VBA, которая определяет,
сколько во введенной последовательности элементов, больших чем заданное число
m, признаком конца последовательность является ввод нуля. Программа должна
проверять правильность введенных пользователем данных и, если они неверные
(первое введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите m: 3
Введите последовательность: 0
2. Введите m: 3
Введите последовательность: 1; 2; 4; 5; 1; 0
Результат:
Неверные данные
Ответ: 2
14. Составьте блок-схему и программу на языке VBA, которая определяет,
является ли последовательность убывающей (длина последовательности не
ограничена). Признаком конца последовательности является ввод нуля. Программа
должна проверять правильность введенных пользователем данных и, если они
неверные (первое введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность :
2 2 3 3 4 0
2. Введите последовательность :
4 4 3 1 1 0
Результат:
Неверные данные
Ответ: Не является
Ответ: Является
15. Составьте блок-схему и программу на языке VBA, которая вычисляет
факториал числа n, введенного с клавиатуры (Факториалом числа n называется
произведение целых чисел от 1 до n). Число n задается во время работы
программы. Программа должна проверять правильность введенных пользователем
данных и, если они неверные ( 0 < n ), выдавать сообщение об ошибке.
Исходные данные:
1. Введите n: -9
2. Введите n: 0
Результат:
Ответ: Неверно введено n
Ответ: 1
3. Введите n: 5
Ответ: 120
16. Составьте блок-схему и программу на языке VBA, которая вычисляет
сумму положительных чисел из введенной с клавиатуры последовательности
целых чисел (длина последовательности не ограничена). Признаком конца
последовательности является ввод нуля. Программа должна проверять правильность
введенных пользователем данных и, если они неверные (первое введенное число
равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность :
2 -2 3 -1 4 0
Результат:
Неверные данные
Ответ: 9
17. Составьте блок-схему и программу на языке VBA, которая определяет
минимальное число из введенной с клавиатуры последовательности n чисел.
Количество чисел последовательности должно вводиться во время работы
программы.
Программа
должна
проверять
правильность
введенных
пользователем данных и, если они неверные (0 < n), выдавать сообщение об
ошибке.
Исходные данные:
1. Введите число элементов n: 0
1. Введите число элементов n: 6
Введите элементы: 1 3 -3 6 -1 5
Результат:
Неверно введено n
Ответ: -3
18. Составьте блок-схему и программу на языке VBA, которая вычисляет
количество чисел, заканчивающихся на 6 из
введенной
с
клавиатуры
последовательности положительных
чисел (длина
последовательности
не
ограничена). Признаком конца последовательности является ввод нуля. Программа
должна проверять правильность введенных пользователем данных и, если они
неверные (первое введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность :
6 2 3 1 6 0
Результат:
Неверные данные
Ответ: 2
19. Составьте блок-схему и программу на языке VBA, которая определяет
количество нулей и единиц из введенной с клавиатуры последовательности n
чисел. Количество чисел последовательности должно вводиться во время работы
программы.
Программа
должна
проверять
правильность
введенных
пользователем данных и, если они неверные (0 < n), выдавать сообщение об
ошибке.
Исходные данные:
Результат:
1. Введите число элементов n: 0
1. Введите число элементов n: 6
Введите элементы: 1 3 0 6 1 5
Неверно введено n
Ответ: 3
20. Составьте блок-схему и программу на языке VBA, которая определяет
количество нечетных, делящихся при этом на 7 элементов в последовательности
целых чисел, признаком конца последовательность является ввод нуля. Программа
должна проверять правильность введенных пользователем данных и, если они
неверные (первое введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
(1
Результат:
Неверные данные
Ответ: 2
7 14 21 3 240 0)
21. Составьте блок-схему и программу на языке VBA, которая вычисляет
количество
положительных,
отрицательных
и
нулевых
элементов
в
последовательности из n чисел. Программа должна проверять правильность
введенных пользователем данных и, если они неверные ( n <= 1), выдавать
сообщение об ошибке.
Исходные данные:
1. Введите количество элементов n: 1
2. Введите количество элементов n: 7
Массив: (2 4 0 2 -4 -1 1)
Результат:
Неверно введено n
Положительных: 4
Отрицательных: 2
Нулей: 1
22. Составьте блок-схему и программу на языке VBA, которая вычисляет
количество четных и нечетных элементов в последовательности чисел, признаком
конца последовательность является ввод нуля. Программа должна проверять
правильность введенных пользователем данных и, если они неверные (первое
введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
(1
7 14 21 3 240 0)
Результат:
Неверно введено n
Четных: 2
Нечетных: 4
23. Составьте блок-схему и программу на языке VBA, которая определяет сумму
квадратных корней из неотрицательных элементов последовательности в n
элементов. Программа должна проверять правильность введенных пользователем
данных и, если они неверные ( n <= 1), выдавать сообщение об ошибке.
Исходные данные:
1. Введите количество элементов n: 1
2. Введите количество элементов n: 7
Результат:
Неверно введено n
Получилось: 13
Последовательность: 9 4 0 1 -4 1 36
24. Составьте блок-схему и программу на языке VBA, которая вычисляет сумму
ряда вида
1 1 1
1
до тех пор, пока n-ый член ряда не станет меньшим
   ... 
1 2 3
n
заданной точности k. Программа должна проверять правильность введенных
пользователем данных и, если они неверные (k >= 1), выдавать сообщение об ошибке.
Исходные данные:
1. Введите точность k: 1
2. Введите точность k: 0,3
3. Введите точность k: 0,001
Результат:
Неверно введено k
Ответ: 1,83333333333
Ответ: 1,485478
25. Составьте блок-схему и программу на языке VBA, которая вычисляет
произведение P отрицательных элементов последовательности из n целых чисел.
Программа должна проверять правильность введенных пользователем данных и,
если они неверные ( n <= 0), выдавать сообщение об ошибке.
Исходные данные:
1. Введите количество элементов n: 0
2. Введите количество элементов n: 7
Последовательность: -9 4 0 1 -4 1 36
Результат:
Неверно введено n
Получилось: 36
26. Составьте блок-схему и программу на языке VBA, которая вычисляет
среднее арифметическое положительных чисел из введенной с клавиатуры
последовательности целых чисел (длина последовательности не ограничена).
Признаком конца последовательности является ввод нуля. Программа должна
проверять правильность введенных пользователем данных и, если они неверные
(первое введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
(1
Результат:
Неверно введено n
Четных: 64,5
-7 14 -21 3 240 0)
27. Составьте блок-схему и программу на языке VBA, которая определяет,
является ли последовательность из n ненулевых элементов знакочередующейся.
Программа должна проверять правильность введенных пользователем данных и,
если они неверные (n <= 0), выдавать сообщение об ошибке.
Исходные данные:
1. Введите количество элементов n: 0
2. Введите количество элементов n: 7
Последовательность: -9 4 6 1 -4 1 36
2. Введите количество элементов n: 3
Последовательность: -9 4 -6
Результат:
Неверно введено n
Ответ: не является
Ответ: не является
28. Составьте блок-схему и программу на языке VBA, которая вычисляет
количество элементов последовательности, попадающих в интервал [a;b].
Программа должна проверять правильность введенных пользователем данных и,
если они неверные (n <= 0, a>b), выдавать сообщение об ошибке.
Исходные данные:
1. Введите число элементов n: 0
2. Введите число элементов n: 7
Введите a: 5
Введите b: 2
3. Введите число элементов n: 7
Введите a: 2
Введите b: 5
Последовательность: 2 4 1 -1 4 -1 8
Результат:
Неверно введено n
Неверно введены a или b
Ответ: 3
29. Составьте программу на языке VBA, которая определяет, являются ли все
введенные числа последовательности положительных чисел четными. Признаком
конца последовательности является ввод нуля. Программа должна проверять
правильность введенных пользователем данных и, если они неверные (первое
введенное число равно нулю), выдавать сообщение об ошибке.
Исходные данные:
1. Введите последовательность а: 0
2. Введите последовательность
7 14 21 3 240 0)
3. Введите последовательность
Результат:
Неверные данные
Не все четные
(1
(2
Все четные
4 14 22 4 24 0)
30. Составьте программу на языке VBA, которая определяет, являются ли все
введенные числа последовательности из n положительных чисел нечетными.
Программа должна проверять правильность введенных пользователем данных и,
если они неверные (n <= 0), выдавать сообщение об ошибке.
Исходные данные:
1. Введите число элементов n: 0
2. Введите число элементов n: 7
7 14 21 3 240 0)
3. Введите число элементов n: 6
Результат:
Неверно введено n
Не все нечетные
(1
(3
11 21 41 241 1)
Все нечетные
Download