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

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

Результат:

1. a=1, b=2, c=1

1. x1,2=–1

2. a=1, b=0,5, c=–0,5

2. x1=–1, x2=0,5

3. a=1, b=1, c=3

3. Нет действительных корней

4. a=0, b=1, c=0,13

4. x=–0,13

5. a=0, b=0, c=5

5. Неверные исходные данные

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

Результат:

1.

Радиус кольца (см): 3,6

1.

Ошибка. Радиус отверстия не может быть

Радиус отверстия (см): 7

больше радиуса кольца.

2.

Радиус кольца (см): 4

2.

Площадь кольца: 30,6305283725 (кв. см)

Радиус отверстия (см): 2,5

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

Результат:

1. Введите координату x0 : 1

1. Точка M (1,0,−1) принадлежит

Введите координату y0: 0

плоскости

Введите координату z0: –1

Введите A: 1

Введите B : 2

Введите C : –1

Введите D : –2

2. Введите координату x0 : –2

2. Точка M (−2,1,1) не принадлежит

Введите координату y0: 1

плоскости

Введите координату z0: 1

Введите A: –5

Введите B : 2

Введите C : –1

Введите D : 12

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

Результат:

1.

Введите год основания

1.

Вы ошиблись, Санкт-Петербург был

Санкт-Петербурга: 1705

основан в 1703 году

2.

Введите год основания

2.

Верно

Санкт-Петербурга: 1703

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

Результат:

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

1. Число 23 – нечетное

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

2. Число 6 – четное

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

Результат:

1.

Введите номер месяца

1. Зима

(число от 1 до 12): 11

2.

Введите номер месяца

2.

Ошибка ввода данных

(число от 1 до 12): 15

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

максимального из 3-х введенных чисел.

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

Результат:

1.

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

1.

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

Введите второе число: 3

Введите третье число: 19

2.

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

2.

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

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

Введите третье число: -5

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

Результат:

1.

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

1.

Число 451 на три не делится

2.

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

2.

Число 33 на три делится

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

Результат:

1. Введите первое число: 35

1.

34 меньше 57

Введите второе число: 57

2. Введите первое число: 23

2.

23

больше 15

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

3. Введите первое число: 12

3.

12

равно 12

Введите второе число: 12

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

Результат:

1.

Введите первое число: 12

1.

Вы ошиблись. 12*2=24

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

Сколько будет 12*2: 25

2.

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

2.

Правильно

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

Сколько будет –5*7: –35,7

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

Результат:

1.

Длительность разговора

1.

Стоимость разговора: 250 руб.

(целое число мин): 10

День недели (1 – понедельник, … ,

7 – воскресенье): 2

2.

Длительность разговора

2.

Предоставляется скидка 20%

(целое число мин): 4

Стоимость разговора: 80 руб.

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

Результат:

1.

Введите a : 3

1.

Ветви параболы направлены вверх

Введите b: 2

Введите c : 8

2.

Введите a : 0

2.

Это не парабола. Эта прямая.

Введите b: 2

Введите c : 8

15. Составьте

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

ì

ï- x, если x £ 5,

значений функции

ï

3

+ 5, если 5

< x £ 8,

y(x) = íx

ïsin(x) + x

, если x > 8.

ï

x

î

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

Результат:

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

1.

y(0) = 0

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

2.

y(9) = 1,04579

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

Результат:

1.

Введите первую сторону: 1

1.

Треугольник со сторонами 1, 1, 1

Введите вторую сторону: 1

существует

Введите третью сторону: 1

2.

Введите первую сторону: 2

2.

Треугольник со сторонами 2, 1, 3 не

Введите вторую сторону: 1

существует

Введите третью сторону: 3

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

минимального из 3-х введенных чисел.

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

Результат:

1.

Введите первое число: –3

1.

Минимальоне число: –3

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

Введите третье число: 10

2.

Введите первое число: 20

2.

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

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

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

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

Результат:

1. Введите номер дня

1.

Ошибка ввода данных

(число от 1 до 7): 0

2. Введите номер дня

2.

Воскресенье

(число от 1 до 7): 7

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

Результат:

1.

Введите год начало второй

1.

Вы ошиблись, вторая мировая война

мировой войны: 1941

началась в 1939 году

2.

Введите год начало второй

2.

Верно

мировой войны: 1939

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

Результат:

1.

Введите рост (см): 178

1.

Вам надо поправиться на 2,40 кг

Введите вес (кг): 75,6

2.

Введите рост (см): 173

2.

Вам надо похудеть на 1,21 кг

Введите вес (кг): 74,21

3.

Введите рост (см): 171

3.

У Вас оптимальный вес

Введите вес (кг): 71

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

Результат:

1.

Введите первое число: 19,4

1.

Вы ошиблись. 19,4–2,1=17,3

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

Сколько будет 19,4–2,1: 12,3

2.

Введите первое число: –3

2.

Правильно

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

Сколько будет –3–7: –10,5

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

Результат:

1. Невский проспект получил свое

1. Вы ошиблись. Правильный

название:

ответ: 2

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

Результат:

1.

Введите первый угол: –3

1. –3, 93, 90

не являются углами

Введите второй угол: 93

треугольника

Введите третий угол: 90

2.

Введите первый угол: 30

2. 30, 60, 90

являются углами треугольника

Введите второй угол: 60

Введите третий угол: 90

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

Результат:

1.

Введите a : 3

1.

Прямая убывает

Введите b: 2

2.

Введите a : –1

2.

Прямая возрастает

Введите b: 2

25. Составьте

блок-схему

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

ì

sin(x)

,если x < 0,

ï

ï

x

ï

значений функции

f (x) = í

, если 0 £ x £ 3,

ïx + 3

ï

1

+ x3

,если x > 3.

ï

2

î

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

Результат:

1.

Введите x :–1

1.

f (−1) = 0,84147

2.

Введите x : 0

2.

f (0) = 0

3.

Введите x : 4

3.

f (4) = 64,500