regeda_v_v_regeda_o_n_osnovy_programmirovaniya_na_vba
.pdf
ВАРИАНТ 15
Для каждой из точек, координаты которых заданы в последовательном файле coord.dat (нечетные записи – координаты x, четные – координаты y) определить принадлежит ли эта точка заштрихованной области. Подсчитать количество проверяемых точек в файле, количество точек принадлежащих заштрихованной области, вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.
Y
Y=-x
X
Y=x
Y=±√2x+8
ВАРИАНТ 16
Для каждой из точек, координаты которых заданы в последовательном файле coord.dat (нечетные записи – координаты x, четные – координаты y) определить принадлежит ли эта точка заштрихованной области. Подсчитать количество проверяемых точек в файле, количество точек принадлежащих заштрихованной области , вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.
Y
Y=x2 - 9
X
Y=x2+4
ВАРИАНТ 17
Найти максимальное значение радиуса шара r (изменяется от r1 до r2 с шагом k) и соответствующее значение радиуса основания r4 вырезанного из этого шара шарового сегмента, для которых площадь поверхности шарового сегмента не превышает площади поверхности куба со стороной a (изменяется от a1 до a2 с шагом m одновременно с r). Высота шарового сегмента h остается неизменной. Используя процедуру решить задачу для всех вариантов условий.
r1 |
r2 |
k |
a1 |
a2 |
m |
h |
|
|
|
|
|
-0,1 |
|
1,3 |
9,4 |
0,1 |
13,1 |
1,2 |
0,3 |
|
4,9 |
12,1 |
0,1 |
8,6 |
3,1 |
-0,1 |
2,5 |
0,35 |
1,55 |
0,01 |
|
0,12 |
-0,01 |
0,2 |
12,4 |
18,6 |
0,1 |
|
3,5 |
-0,1 |
11,2 |
2,1 |
13,1 |
0,1 |
|
0,2 |
-0,1 |
1,4 |
ВАРИАНТ 18
Найти минимальное значение угла в вершине шарового сектора α (изменяется от α1 до α2 с шагом β) и соответствующее значение радиуса основания r1 и высоты h шарового сектора, для которых площадь поверхности шарового сектора не меньше площади поверхности прямоугольного параллелепипеда со сторонами t, b и c (сторона b изменяется от b1 до b2 с шагом k одновременно с углом α). Радиус шара r остается неизменным. Используя процедуру решить задачу для всех вариантов условий.
α1 |
α2 |
β |
t |
b1 |
b2 |
k |
c |
r |
|
|
|
|
|
|
|
|
|
173 |
4 |
-1 |
3,6 |
0,3 |
14,8 |
0,1 |
2,4 |
12,1 |
166 |
13 |
-1 |
1,3 |
0,1 |
2,1 |
0,1 |
6,9 |
8,2 |
177 |
7 |
-1 |
5,2 |
0,7 |
13,3 |
0,1 |
4,4 |
9,9 |
150 |
15 |
-1 |
8,8 |
1,1 |
33,1 |
0,1 |
2,9 |
22,6 |
169 |
8 |
-1 |
2,4 |
0,4 |
12,2 |
0,1 |
3,7 |
7,7 |
ВАРИАНТ 19
Найти минимальное значение радиуса шара r (изменяется от r1 до r2 с шагом k) и соответствующее значение радиуса нижнего основания r4 и высоты h шарового слоя, для которых объем шарового слоя не меньше объема прямоугольного параллелепипеда со сторонами t, b и c (сторона c изменяется от c1 до c2 с шагом m одновременно с r). Центральный угол нижнего основания шарового слоя α и центральный угол верхнего основания шарового слоя β остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.
r1 |
r2 |
k |
t |
b |
c1 |
c2 |
m |
α |
β |
|
|
|
|
|
|
|
|
|
|
0,6 |
11,6 |
0,1 |
1,5 |
2,4 |
7,7 |
1,3 |
-0,1 |
177 |
105 |
2,7 |
16,2 |
0,1 |
4,1 |
14,8 |
16,8 |
0,7 |
-0,1 |
169 |
22 |
0,1 |
0,9 |
0,01 |
1,1 |
0,02 |
5,2 |
1,1 |
-0,1 |
162 |
25 |
16,6 |
29,8 |
0,1 |
19,3 |
16,2 |
40,4 |
15,1 |
-0,1 |
155 |
5 |
14,2 |
22,4 |
0,1 |
15,1 |
27,2 |
55,5 |
22,6 |
-0,1 |
179 |
33 |
ВАРИАНТ 20
Найти максимальное значение радиуса верхнего основания усеченного прямого конуса r1 (изменяется от l до n с шагом m) и соответствующее значение высоты h2 и образующей ob прямого конуса, для которых объем усеченного прямого конуса не превышает объема шара радиуса r3 ( изменяется от r4 до r5 с шагом k одновременно с r1). Радиус нижнего основания r2 и высота h1 усеченного прямого конуса остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.
l |
n |
m |
r4 |
r5 |
k |
r2 |
h1 |
|
|
|
|
|
-0,1 |
|
|
0,3 |
4,4 |
0,1 |
15,5 |
5,1 |
4,6 |
3,6 |
|
0,13 |
0,99 |
0,01 |
3,2 |
0,3 |
-0,01 |
1,02 |
0,66 |
1,8 |
4,4 |
0,1 |
12,2 |
1,9 |
-0,1 |
5,5 |
20,2 |
2,1 |
13,9 |
0,1 |
16,8 |
4,6 |
-0,1 |
16,0 |
6,3 |
0,8 |
2,5 |
0,1 |
4,4 |
1,1 |
-0,1 |
2,6 |
1,6 |
ВАРИАНТ 21
Найти максимальное значение внешнего радиуса цилиндрической трубы r2 (изменяется от l до n с шагом m) для которого объем цилиндрической трубы не превышает объема куба со стороной a (изменяется от a1 до a2 с шагом k одновременно с r2). Внутренний радиус r1 и высота h цилиндрической трубы остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.
l |
n |
m |
a1 |
a2 |
k |
r1 |
h |
|
|
|
|
|
|
|
|
2,5 |
12,8 |
0,1 |
15,5 |
2,1 |
-0,1 |
2,2 |
3,9 |
0,39 |
2,88 |
0,01 |
2,27 |
0,31 |
-0,01 |
0,33 |
0,61 |
24,1 |
51,9 |
0,1 |
44,2 |
22,5 |
-0,1 |
19,6 |
14,2 |
4,0 |
19,2 |
0,1 |
16,8 |
6,6 |
-0,1 |
2,9 |
8,2 |
1,9 |
18,2 |
0,1 |
22,4 |
12,5 |
-0,1 |
1,1 |
26,2 |
ВАРИАНТ 22
Найти минимальное значение центрального угла нижнего основания шарового слоя α (изменяется от α1 до α2 с шагом γ) и соответствующее значение радиуса нижнего основания r1, радиуса верхнего основания r2 и высоты h шарового слоя, для которых площадь поверхности шарового слоя не меньше площади поверхности прямоугольного параллелепипеда со сторонами a, b и c (сторона a изменяется от t1 до t2 с шагом k одновременно с α). Радиус шара r, из которого вырезан шаровой слой, и центральный угол верхнего основания шарового слоя α остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.
α1 |
α2 |
γ |
t1 |
t2 |
k |
b |
c |
r |
β |
|
|
|
|
|
|
|
|
|
|
160 |
25 |
-1 |
1,2 |
4,4 |
0,1 |
2,9 |
0,3 |
6,6 |
22 |
175 |
13 |
-1 |
4,1 |
12,3 |
0,1 |
13,5 |
4,2 |
19,1 |
7 |
168 |
33 |
-1 |
0,3 |
2,9 |
0,1 |
4,7 |
2,2 |
2,6 |
30 |
178 |
20 |
-1 |
0,1 |
2,6 |
0,1 |
1,0 |
0,5 |
0,6 |
13 |
170 |
34 |
-1 |
2,2 |
7,7 |
0,1 |
3,0 |
10,1 |
9,3 |
22 |
ВАРИАНТ 23
Найти минимальное значение радиуса шара r (изменяется от r1 до r2 с шагом k) и соответствующее значение радиуса основания r3 и высоты h шарового сектора, для которых объем шарового сектора, для которых объем шарового сектора не меньше объема куба со стороной t (t изменяется от t1 до t2 с шагом m одновременно с r). Угол α, в вершине сектора остается неизменным. Используя процедуру решить задачу для всех вариантов условий.
r1 |
r2 |
k |
t1 |
t2 |
m |
α |
|
|
|
|
|
|
|
3,9 |
0,1 |
-0,1 |
0,1 |
3,2 |
0,1 |
97 |
1,1 |
0,1 |
-0,01 |
0,2 |
3,1 |
0,01 |
177 |
15,8 |
3,5 |
-0,1 |
1,8 |
13,5 |
0,1 |
155 |
8,3 |
0,8 |
-0,1 |
1,5 |
8,2 |
0,1 |
179 |
9,6 |
1,8 |
-0,1 |
0,5 |
7,9 |
0,1 |
133 |
ВАРИАНТ 24
Найти максимальное значение большой высоты усеченного круглого цилиндра h2 (изменяется от l до k с шагом m), для которого объем усеченного круглого цилиндра не превышает объема прямоугольного параллелепипеда со сторонами a, b и c (сторона a изменяется от a1 до a2 с шагом n одновременно с h2). Радиус основания усеченного круглого цилиндра r, и его меньшая высота h1 остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.
l |
k |
m |
a1 |
a2 |
a |
b |
c |
r |
h1 |
|
|
|
|
|
|
|
|
|
|
1,3 |
26,1 |
0,1 |
31,2 |
14,3 |
-0,1 |
2,6 |
2,0 |
1,6 |
2,4 |
0,2 |
3,9 |
0,1 |
10,1 |
0,2 |
-0,1 |
1,7 |
0,9 |
0,5 |
0,2 |
4,1 |
16,2 |
0,1 |
22,9 |
4,6 |
-0,1 |
21,1 |
15,0 |
12,7 |
3,4 |
2,0 |
8,1 |
0,1 |
17,3 |
5,2 |
-0,1 |
2,5 |
8,1 |
3,7 |
1,1 |
4,1 |
15,8 |
0,1 |
33,6 |
13,2 |
-0,1 |
9,9 |
6,4 |
7,9 |
5,1 |
ПРИЛОЖЕНИЕ 5. Варианты заданий к курсовой работе
по курсу "Информатика" на тему
ОСНОВЫ ПРОГРАММИРОВАНИЯ НА VBA
Разработать алгоритм решения задачи и реализовать этот алгоритм в среде VBA. Предусмотреть запуск программы из среды Microsoft Word,вывод результатов работы программы в формы и панели сообщений.
Оформить пояснительную записку в текстовом редакторе Microsoft Word, включив в нее распечатку результатов работы программы и схему алгоритма программы, созданные средствами любого графического редактора, а также листинг разработанной программы.
ВАРИАНТ 1
Изобразить в Corel Draw комбинацию приборов для автомобиля любой марки и разместить их в форме. Разработать виртуальную модель стрелочных часов и разместить их в той же форме. Предусмотреть возможность установки времени и таймера с помощью соответствующих виртуальных рукояток подвода, расположенных в форме.
ВАРИАНТ 2
Изобразить в Corel Draw комбинацию приборов для автомобиля любой марки и разместить их в форме. Разработать виртуальную модель указателя температуры охлаждающей жидкости и разместить их в той же форме. Предусмотреть возможность задания дискретных значений температуры охлаждающей жидкости с помощью соответствующих элементов управления, расположенных в форме, и окна ввода. При достижении температуры охлаждающей жидкости значения 100 градусов должен включаться вентилятор системы охлаждения. При превышении температуры охлаждающей жидкости предельного значения стрелка должна переходить в красную зону шкалы, а в окне сообщений должно появляться сообщение о необходимости проверки работы вентилятора.
ВАРИАНТ 3
Изобразить в Corel Draw комбинацию приборов для автомобиля любой марки и разместить их в форме. Разработать виртуальную модель тахометра и поместить его в ту же форму. Дискретные значения частоты вращения коленчатого вала задавать с помощью виртуальной педали акселератора, расположенной в форме, и окна ввода. Предусмотреть вывод на экран соответствующего сообщения в окне сообщений в случае попадания стрелки в желтую зону шкалы, соответствующую режиму работы двигателя с высокой частотой вращения коленчатого вала, и в случае попадания стрелки в красную зону шкалы, соответствующую опасному для двигателя режиму.
ВАРИАНТ 4
Изобразить в Corel Draw комбинацию приборов для автомобиля любой марки и разместить их в форме. Разработать виртуальные модели суммирующего счетчика пройденного пути и суточного счетчика пройденного пути и поместить их в ту же форму. Предусмотреть возможность обнуление суточного счетчика пройденного пути с помощью соответствующих элементов управления, расположенных в форме, и окна ввода. Продемонстрировать работу программы для различных вариантов графиков движения и состояний суммирующего счетчика пройденного пути, хранящихся в таблицах Excel.
ВАРИАНТ 5
Изобразить в Corel Draw комбинацию приборов для автомобиля любой марки и разместить их в форме. Разработать виртуальную модель спидометра и поместить ее в ту же форму. Предусмотреть возможность задания дискретных значений скорости с помощью виртуальных моделей педали акселератора и рычага переключения передач, расположенных в форме, и окна ввода. Продемонстрировать работу программы для различных вариантов графиков движения, хранящихся в таблицах Excel.
ВАРИАНТ 6
Изобразить в Corel Draw комбинацию приборов для автомобиля любой марки и разместить их в форме. Разработать виртуальные модели кон-
трольной лампы резерва топлива и указателя уровня топлива и поместить их в ту же форму. Предусмотреть возможность задания значений уровня топлива путем изменения размера соответствующего графического объекта в среде MS Word методом потягивания мыши. Продемонстрировать работу программы для различных вариантов расхода топлива, хранящихся в таблицах Excel.
ВАРИАНТ 7
Изобразить в Corel Draw комбинацию приборов и необходимые виды для автомобиля любой марки и разместить их в форме. Разработать виртуальные модели контрольных ламп включения указателей поворота по левому и по правому бортам, а также включателя аварийного режима и поместить их в ту же форму. Предусмотреть возможность демонстрации работы этих ламп при переключении рычага переключателя указателя поворота и синхронное зажигание соответствующих фонарей указателей поворота. Продемонстрировать работу ламп и фонарей в аварийном режиме.
ВАРИАНТ 8
Изобразить в Corel Draw органы управления для автомобиля любой марки, предназначенные для управления работой очистителя ветрового стекла, ветровое стекло и щетки очистителя, разместив их в форме. Разработать виртуальную модель рычага переключателя очистителей и омывателей стекол, поместив ее в ту же форму. Продемонстрировать работу очистителей в трех режимах: прерывистый, с малой постоянной скоростью и с большой постоянной скоростью.
ПРИМЕЧАНИЕ. Очиститель имеет три режима работы: 1 режим – прерывистый, осуществляется в положении II и III рычага переключателя очистителя и омывателя ветрового стекла; 2 режим – постоянный, с малой скоростью движения щеток, осуществляется в положении IV рычага переключателя очистителя и омывателя ветрового стекла; 3 режим – постоянный, с высокой скоростью движения щеток, осуществляется в положении V рычага переключателя очистителя и омывателя ветрового стекла.
ВАРИАНТ 9
Изобразить в Corel Draw блок управления электростеклоподъемников для автомобиля любой марки и разместить их в форме. Разработать виртуальные модели переключателей стеклоподъемников дверей, предусмотрев их блокировку в крайних нижнем и верхнем положениях стекол, и поместить их в ту же форму. Продемонстрировать работу электростеклоподъемников дверей с помощью соответствующих переключателей и в автоматическом режиме для различных вариантов, хранящихся в таблицах
Excel.
ВАРИАНТ 10
Изобразить в Corel Draw блок управления наружными зеркалами и обогрева передних сидений для автомобиля любой марки и разместить их в форме. Разработать виртуальные модели клавиш управления приводом зеркала, рычага зеркала и сигнализатора положения рычажка, а также сигнализаторов включения обогрева и выключателей обогрева передних сидений, поместив их в ту же форму. Продемонстрировать синхронное поворачивание зеркала в соответствующую сторону при нажатии на клавиши управления приводом зеркала и постепенное нагревание передних сидений путем постепенного изменения их цвета, например, от синего к красному.
ВАРИАНТ 11
Изобразить в Corel Draw блок индикации бортовой системы контроля для автомобиля любой марки и разместить их в форме. Разработать виртуальные модели сигнализатора недостаточного уровня масла в картере двигателя, недостаточного уровня охлаждающей жидкости в расширительном бачке и недостаточного уровня омывающей жидкости в бачке, поместив их в ту же форму. Предусмотреть возможность задания значений уровня масла и жидкости путем изменения размера соответствующего графического объекта в среде Microsoft Word методом потягивания мыши. Продемонстрировать работу блока в следующих режимах: выключен, режим ожидания, предварительный контроль сигнализаторов и контроль параметров.
ПРИМЕЧАНИЕ. Блок находится в режиме "Выключен", если ключ не вставлен в выключатель зажигания. В положении 0 ("Выключено") ключа в выключателе зажигания блок переходит в "Режим ожидания". Если при этом будет открыта дверь водителя, возникнет неисправность "За-
бытый ключ в выключателе зажигания" и звуковой сигнализатор блока в течении 5-10 с будет подавать прерывистый сигнал. Сигнал можно прервать или закрыв дверь, или вынув ключ, или повернув ключ в выключателе зажигания в положение 1 ("Зажигание"). В положении 1 ключа в выключателе зажигания блок переходит в режим "Предвыездной контроль сигнализаторов", при котором для проверки их исправности на 2-6 с включаются все световые и звуковой сигнализаторы, а затем через паузу в 1 с блок переходит в режим "Контроль параметров" и при наличии неисправности производит сигнализацию по следующему алгоритму:
–световой сигнализатор того параметра, который вышел за пределы нормы, начинает мигать в течении 5-10 с, после чего переходит в режим постоянного свечения до устранения неисправности или возвращения ключа в выключателе зажигания в положение 0 ("Выключено");
–одновременно со световым сигнализатором на 5-10 с включается звуковой сигнализатор;
–если при этом возникнет другая неисправность, то звуковая сигнализация и световая в режиме мигания начинают работать для последней неисправности, как более приоритетной, а световой сигнализатор предыдущей неисправности переходит в режим постоянного свечения.
ВАРИАНТ 12
Изобразить в Corel Draw блок индикации бортовой системы контроля для автомобиля любой марки и разместить их в форме. Разработать виртуальную модель сигнализатора неисправностей ламп стоп-сигнала и габаритных огней. Продемонстрировать работу блока в следующих режимах: выключен, режим ожидания, предварительный контроль сигнализаторов и контроль параметров.
ПРИМЕЧАНИЕ. Блок находится в режиме "Выключен", если ключ не вставлен в выключатель зажигания. В положении 0 ("Выключено") ключа в выключателе зажигания блок переходит в "Режим ожидания". Если при этом будет открыта дверь водителя, возникнет неисправность "Забытый ключ в выключателе зажигания" и звуковой сигнализатор блока в течении 5-10 с будет подавать прерывистый сигнал. Сигнал можно прервать или закрыв дверь, или вынув ключ, или повернув ключ в выключателе зажигания в положение 1 ("Зажигание"). В положении 1 ключа в выключателе зажигания блок переходит в режим "Предвыездной контроль сигнализаторов", при котором для проверки их исправности на 2-6 с включаются все световые и звуковой сигнализаторы, а затем через паузу в 1 с