Файл: Сборник задач по VBA.pdf

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 16.07.2025

Просмотров: 484

Скачиваний: 0

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

Исходные данные:

Результат:

1.

Введите первое число: 10,1

1.

Вы ошиблись. 10,1+2,1=12,2

Введите второе число: 2,1

Сколько будет 10,1+2,1: 11,4

2.

Введите первое число: –8,5

2.

Правильно

Введите второе число: 9,5

Сколько будет –8,5+9,5: 1

27. Составьте блок-схему и

программу на языке VBA для проверки

попадания точки (x0

, y0 ) в эллипс

x2

+

y2

= 1.

a2

b2

Исходные данные:

Результат:

1. Введите a : 3

1. Точка (2,–2) лежит внутри эллипса

Введите b: 2

Введите x0 : 2

Введите

y0 : –2

2. Введите a : 1

2. Точка (–1,2) лежит на эллипсе

Введите b: 2

Введите x0 : –1

Введите

y0 : 2

3. Введите a : 5

3. Точка (6,0) лежит вне эллипса

Введите b: 2

Введите x0 : 6

Введите

y0 : 0

28. Составьте

блок-схему и программу на

языке VBA для проверки

взаимного расположения

двух

плоскостей

A1x + B1y + C1z + D1 = 0

и

A2x + B2 y + C2z + D2 = 0 в пространстве.

Исходные данные:

Результат:

1. Введите A1: 1

1. Плоскости пересекаются

Введите B1: 2

Введите C1: –1

Введите D1: 21

Введите A2 : 10

Введите B2 : 2

Введите C2 : –11

Введите D2: 21

2. Введите A1: 5

2. Плоскости совпадают

Введите B1: 2

Введите C1: –3

Введите D1: –1

Введите A2 : 10

Введите B2 : 4 Введите C2 : –6

17

Введите D2: –2

3. Введите A1: 5 3. Плоскости параллельны

Введите B1: 1

Введите C1: –3

Введите D1: –1

Введите A2 : –10

Введите B2 : –2

Введите C2 : 6

Введите D2: 5

29. Составьте блок-схему и программу на языке VBA для проверки знака

определителя второго порядка

a

b

.

c

d

Исходные данные:

Результат:

1. Введите a : 1

1. Определитель отрицательный

Введите b: 2

Введите c : 1

Введите d : –2

2. Введите a : 1

2. Определитель положительный

Введите b: –2

Введите c : 1

Введите d : 2

3. Введите a : 1

3. Определитель нулевой

Введите b: 0

Введите c : 1

Введите d : 0

30. Составьте блок-схему и программу на языке VBA для вычисления

ì

ï

x + 5

,если x < 1,

ï

ïcos(x)

значений функции g(x) = í

, если1 £ x < 4,

ïx

- 0,5

ï1

e

x

+ 2,если x

³ 4.

ï

î2

Исходные данные:

Результат:

1. Введите x : 0

1. g(0) = 5,0000

2. Введите x : 1

2.

g(1) = 1,0806

3. Введите x : 4

3.

g(4) = 29,2990

Часть 4. СОЗДАНИЕ ПРОГРАММ С ЦИКЛИЧЕСКОЙ СТРУКТУРОЙ

Начальные сведения по решению задач данной части содержатся в части 5 учебно-методического пособия «Программирование на VBA».

Приступая к решению задач этого раздела, следует вспомнить, что:

ü инструкция For…Next используется для организации циклов с

18

фиксированным, определяемым во время разработки программы, числом повторений;

üколичество повторений цикла For…Next определяется начальным и конечным значениями переменной-счетчика;

üчисло повторений инструкций циклов Do While, Do Until, Do…Loop While, Do…Loop Until определяется ходом выполнения программы;

üциклы Do While, Do Until – это циклы с предусловием, т. е. инструкции тела цикла вообще могут быть не выполнены;

üциклы Do…Loop While, Do…Loop Until – это циклы с постусловием, т. е. инструкции тела цикла будут выполнены хотя бы один раз.

1. Составьте блок-схему и программу на языке VBA, которая вычисляет сумму первых n целых положительных четных чисел. Количество суммируемых чисел должно вводиться во время работы программы. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n ≤ 0), выдавать сообщение об ошибке.

Исходные данные:

Результат:

1.

Введите n: 0

1.

Неверно введено n

2.

Введите n: 25

2.

Сумма первых 25 положительных четных

чисел равна 650

3. Введите n: 2 3. Сумма первых 2 положительных четных

чисел равна 6

2. Составьте блок-схему и программу на языке VBA, которая определяет

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

Исходные данные:

Результат:

1.

Введите целое число: 15

1.

Максимальное число: 23

Введите целое число: –1

Введите целое число: 23

Введите целое число: 7

Введите целое число: 0

2.

Введите целое число: 0

2.

Последовательность не введена

3. Составьте блок-схему и программу на языке VBA, которая вычисляет среднее арифметическое последовательности чисел, вводимых с клавиатуры.

Количество чисел последовательности должно вводиться во время работы программы. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n ≤ 0), выдавать сообщение об ошибке.

Исходные данные:

Результат:

1.

Введите n: –3

1.

Неверно введено n

2.

Введите n: 5

2.

Среднее арифметическое: 1,4400

Введите 1-е число: –1,6 Введите 2-е число: 3,4 Введите 3-е число: –3,3 Введите 4-е число: 4

19

Введите 5-е число: 4,7

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

Исходные данные:

Результат:

1. Введите число: 10

1. Последовательность не является

Введите число: –12,6

убывающей

Введите число: 1

Введите число: 0

2. Введите число: 7,9

2. Последовательность убывающая

Введите число: 6

Введите число: 5,5

Введите число: –7

Введите число: 0

5. Составьте блок-схему и программу на языке VBA, которая проверяет, является ли целое число, введенное пользователем, простым.

Исходные данные:

Результат:

1.

Введите число: 48

1.

48 – не простое число

2.

Введите число: 7

2.

7 – простое число

6.

Составьте блок-схему и программу на языке VBA, которая вычисляет

сумму

первых n членов ряда −

1

+

2

−

3

+K, при

x

> 1. Количество

x

x2

x3

суммируемых членов ряда задается во время работы программы. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n ≤ 0, x ≤ 1), выдавать сообщение об ошибке.

Исходные данные:

Результат:

1.

Введите n: 5

1.

Неверно введены данные

Введите x: 0,2

2.

Введите n: 10

2.

Сумма первых 10 членов ряда

Введите x: –3,5

равна 0,55998346956

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

Исходные данные:

Результат:

1.

Введите число: 1,7

1.

Последовательность знакопеременная

Введите число: –10,6

Введите число: 1,9

Введите число: 1

Введите число: 0

2.

Введите число: 7,1

2.

Последовательность знакопостоянная

Введите число: 1,7

Введите число: 0

8. Составьте блок-схему и программу на языке VBA, которая вычисляет количество положительных чисел во вводимой последовательности из n целых чисел. Количество чисел последовательности должно вводиться во время работы

20

Смотрите также файлы