информатика / Информатика_2 семестр / 2-VBA / Контр_работа VBA (варианты 0-18)
.doc
Контрольная работа по теме «Алгоритмизация и программирование на VBA» Студент должен выполнить свой вариант задания по каждой из трех приведенных ниже тем. Во всех заданиях составить алгоритм и программу расчета на языке VBA. Все алгоритмы представить в виде графических схем в одном Word-документе с именем Фамилия_Шифр_КР-Алгоритмы.doc по образцу:
Описание процесса построения графической схемы алгоритма средствами Word приведено в файле Построение блок-схемы.doc. Программы представить в одном Excel-файле Фамилия_Шифр_КР-Программы.xls в одном программном модуле Module1, оформив каждое задание отдельной процедурой с именем Фамилия_Шифр_№_варианта_№_задания в виде:
Сохранить Word и Excel документы следует в формате версии Microsoft Office 97-2003. В верхнем колонтитуле каждого файла (с алгоритмами и программами) указать свою фамилию и инициалы, учебный шифр и дату выполнения контрольной работы. Те же сведения указать и в свойствах файла: в поле Автор – фамилию, в поле Ключевые слова – учебный шифр и дату выполнения работы. Варианты №№ 0 – 18 по каждой теме представлены ниже.
Внимание!!! До выполнения контрольной работы вывести на лист Excel все задания своего варианта по темам по представленному ниже образцу:
Для этого выделить в таблице строку с заданием своего варианта и скопировать ее в буфер обмена любым способом, например, с помощью команды главного меню «Правка» «Копировать»:
Затем вставить содержимое буфера обмена на лист Excel с помощью команды главного меню «Правка» «Специальная вставка» вставить как «Метафайл Windows (EMF)»:
|
Тема 1. Линейные вычислительные процессы
Задание. Вычислить значение функции при заданных исходных данных, сверить полученный результат с представленным в таблице.
Вывести в диалоговое окно и в окно отладки Immediate исходные данные и полученное значение функции.
Вари-ант |
Функция |
Исходные данные |
Результат |
0 |
|
x = 1,42 y = –1,22 |
t = –2,276 |
1 |
x = 1,82 a = 18,25 |
y = –0,027 |
|
2 |
a = 1,378 |
s = 22,006 |
|
3 |
b = 2,2·10–3 |
y = –0,1352 |
|
4 |
x = 0,44 a = 3,1·10-2 |
z = –0,0047 |
|
5 |
x = 0,165 b = 1,1·10-4 |
c = 0,165 |
|
6 |
a = 2,371 b = 1171 |
z = 255,67 |
|
7 |
x = –0,765 a = 3,2 b = 17,5 |
t = –40,94 |
|
8 |
x = 0,515 c = 3,75 b = 0,0002 |
a = 60,62 |
|
9 |
x = 1,71 m = –2,2·10–3 |
y = 0,98 |
|
10 |
b = 4,78; x = 10,378 |
a = 2,834 |
|
11 |
p = 0,137 |
c = 0,0225 |
|
12 |
a = –3,3; x = 2,705 |
z = 4,328 |
|
13 |
a = 0,17; x = 7,75 |
t = 0,57 |
|
14 |
a = 2,79; x = 0,4510–4 |
f = 221981 |
|
15 |
|
x = –1,42; y = 1,22 |
t = –2,95 |
16 |
|
x = –1,82; a = –18,25 |
y = –0,042 |
17 |
|
a = 1,378 |
s = 78,982 |
18 |
b = –2,210–3 |
y = 0,0497 |
Тема 2. Разветвляющиеся вычислительные процессы
Задание. В одной программе с помощью условного оператора IF организовать расчет функции y по трем различным формулам в зависимости от значения аргумента x, введенного с клавиатуры в диалоговом режиме. Вывод исходных данных и результатов организовать на лист Excel, сопроводив их необходимыми комментариями. Запустив программу несколько раз, поочередно проверить результат ее работы при указанных в таблице контрольных значениях x. Предусмотреть для каждого введенного значения x вывод номера ветви для расчета и полученного значения y в отдельные ячейки Excel согласно образцу, приведенному ниже. Для этого рекомендуется в программе оператор вывода записать в каждую ветвь оператора IF после расчета соответствующего значения y.
Образец вывода результатов
расчетов по теме 2:
Вари-ант |
Функция |
Исходные данные |
Результат |
0 |
|
z = 2,3 |
При x=–4,5 y=2,94 При x=0 y=5,29 При x=4,5 y=1,92 |
1 |
|
a = -π |
При x=8,3 y=–3,4 При x=0 y=–4,3 При x=–5,7 y=2,62 |
2 |
|
a = 0,12; b = –4,4 |
При x=0,17 y=–4,4 При x=1,2 y=3,8 При x=3,9 y=7,3 |
3 |
|
с = 0,04 |
При x=–9 y=0,711 При x=3,4 y=0,64 При x=31 y=0,434 |
4 |
|
L = 6,2 |
При x=–1,1 y=0,31 При x=0,2 y=0,9 При x=1,6 y=0,29 |
5 |
|
a = 2,8 |
При x=0 y=0 При x=2 y=22,4 При x=5,3 y=3,88 |
6 |
|
a = 0,01; b = –2π |
При x=–3,6 y=0,01 При x=0 y=0 При x=7,1 y=1,96 |
7 |
|
a = 98,3; b = 4,5 |
При x=0,1 y=4,59 При x=0,33 y=15,2 При x=1,8 y=4,14 |
8 |
|
a = 2,81; b = 5,96 |
При x=–12,6 y=180,9 При x=3,2 y=3,867 При x=10,3 y=–0,3 |
9 |
|
a = 4,4 |
При x=–7,5 y=–0,82 При x=3,98 y=0,55 При x=103 y=–1,29 |
10 |
|
a = 2 |
При x=1,3 y=2,612 При x=2 y=2,016 При x=9,9 y=0,814 |
11 |
|
a = 11,3 |
При x=–2,3 y=0,362 При x=0,1 y=12,02 При x=2,2 y=–0,21 |
12 |
|
a = 0,1 |
При x=2 y=–5,69 При x=20 y=0,66 При x=28,3 y=2,9 |
13 |
|
a = 7,13; b = 0,91 |
При x=–4,4 y=0,673 При x=6,8 y=0,694 При x=21 y=2,718 |
14 |
|
w = π/2 |
При x=0,1 y=0,01 При x=3,1 y=0,9 При x=5,1 y=0,0001 |
15 |
|
d = 2,5 |
При x=–25,1 y=0,53 При x=2,6 y=56,3 При x=13,3 y=–0,9 |
16 |
|
b = 0,91 |
При x=–1,5 y=1,54 При x=6,2 y=2,693 При x=19 y=–0,015 |
17 |
|
k = 9,1 |
При x=–5,5 y=–0,34 При x=1,9 y=1,382 При x=14 y=4,043 |
18 |
|
a = 3,8 |
При x=–5,1 y=5,1 При x=3,3 y=3,69 При x=5,1 y=–3,5 |
Тема 3. Циклические вычислительные процессы
Задание. Получить таблицу значений функции при заданных значениях аргумента с использованием оператора арифметического цикла For-Next. Вывести на лист Excel в два столбца значения аргумента и соответствующие им значения функции. При этом обязательно убедитесь в том, что результат получен для всех (включая последнее) значений аргумента из указанного диапазона.
Вариант |
Функция |
Исходные данные |
Диапазон и шаг изменения аргумента |
0 |
– |
0,4 ≤ x ≤ 4 ∆x = 0,4 |
|
1 |
a = 3; b = 2 |
–1 ≤ x ≤ 2 ∆x = 0,3 |
|
2 |
– |
0,4 ≤ x ≤ 2,2 ∆x = 0,18 |
|
3 |
y = 0,03 |
1 ≤ x ≤ 4 ∆x = 0,5 |
|
4 |
b = 0,13 |
0 ≤ x ≤ 2 ∆x = 0,25 |
|
5 |
b = 3,2 |
0 ≤ x ≤ 2,5 ∆x = 0,25 |
|
6 |
a = 1,1 b = 0,02 |
1 ≤ x ≤ 2 ∆x = 0,1 |
|
7 |
a = 2,25 b = –7,8 |
0 ≤ t ≤ 2 ∆t = 0,1 |
|
8 |
b = 3,7 m = –0,5 |
0,1 ≤ t ≤ 0,9 ∆t = 0,1 |
|
9 |
a = 1,5 b = –7,1 |
0,3 ≤ x ≤ 1,7 ∆x = 0,1 |
|
10 |
a = 0,25 |
1 ≤ x ≤ 2 ∆x = 0,1 |
|
11 |
– |
0,4 ≤ x ≤ 2,2 ∆x = 0,18 |
|
12 |
b = 2 |
1 ≤ x ≤ 3 ∆x = 0,2 |
|
13 |
a = 1,79 |
1 ≤ x ≤ 1,5 ∆x = 0,1 |
|
14 |
a = 0,17 b = 1,15 |
2 ≤ x ≤ 4 ∆x = 0,25 |
|
15 |
a = 3 |
–1 ≤ x ≤ 2 ∆x = 0,3 |
|
16 |
– |
0,4 ≤ x ≤ 2,2 ∆x = 0,18 |
|
17 |
a = 2 |
0 ≤ x ≤ 4 ∆x = 0,2 |
|
18 |
a = 2 |
0 ≤ x ≤ 2 ∆x = 0,2 |
стр.