Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Омский Государственный Университет Путей Сообщения

Предмет:

Информатика

Файл:

Контр_работа VBA (варианты 0-18)

.doc

Скачиваний:

Добавлен:

10.04.2015

Размер:

676.35 Кб

Скачать

☆

Контрольная работа по теме

«Алгоритмизация и программирование на 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,4510^–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,210^–³	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=10³ 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

стр. 9 из 9