- •Основы и принципы работы в vba
- •Часть 2 омск 2008
- •Часть 2
- •5.1. Теоретические сведения
- •5.2. Индивидуальные задания
- •6.1. Теоретические сведения
- •6.2. Индивидуальные задания
- •Циклы накопления суммы и произведения.
- •7.1. Теоретические сведения
- •7.2. Индивидуальные задания
- •Создание и использование процедур
- •8.1. Теоретические сведения
- •8.1.1. Создание процедур-функций типа Function
- •8.1.2. Создание процедуры-подпрограммы Sub
- •8.2. Индивидуальные задания
- •Часть 2
- •644046, Г. Омск, пр. Маркса, 35
5.2. Индивидуальные задания
З а д а н и е 1. Составить алгоритм и программу табулирования функции с использованием операторов For – Next, While – Wend в соответствии с индивидуальным заданием (табл. 5.1). Вывод значений аргумента и функции выполнить в ячейки рабочего листа Excel и построить график функции.
Таблица 5.1
Функции для табулирования
Вариант |
Функция |
Исходные данные |
Диапазон и шаг изменения аргумента |
1 |
2 |
3 |
4 |
1 |
– |
0 ≤z≤ 5 ∆z = 0,5 | |
2 |
y = 0,03 |
1 ≤ x≤ 4 ∆x = 0,5 | |
3 |
b = 0,13 |
0 ≤ x ≤ 2 ∆x = 0,25 | |
4 |
b = 0,03 |
0 ≤ x ≤ 1 ∆x = 0,1 | |
5 |
a = 1,1 b = 0,02 |
0 ≤ x ≤ 1 ∆x = 0,1 | |
6 |
a = 0,17 b = 1,15 |
2 ≤ x ≤ 4 ∆x = 0,25 | |
7 |
a = 2,25 b = –7,8 |
0 ≤ t ≤ 2 9∆t = 0,1 | |
8 |
b = 3,7 m = –0,5 |
0,1 ≤ t ≤ 0,9 ∆t = 0,15 | |
9 |
a = 1,5 b = –7,1 |
0,3 ≤ x ≤ 1 ∆x = 0,1 | |
10 |
a = 0,25 |
1 ≤ x ≤ 2 ∆x = 0,1 | |
11 |
a =1,79 |
1 ≤ x ≤ 2 ∆x = 0,05 | |
12 |
m = 1,5 |
1,5 ≤ x ≤ 4 ∆x = 0,25 |
Окончание табл. 5.1
1 |
2 |
3 |
4 |
13 |
a = – 0,15 |
∆x = | |
14 |
m = 0,75 |
≤x ≤3 ∆x = | |
15 |
m = 4,4 c = 1,27 |
–2 ≤ t ≤ 2 ∆t = 0,25 |
З а д а н и е 2. Составить алгоритм и программу вывода данных в соответствии с индивидуальным заданием (табл. 5.2) с использованием оператора For – Next. Записать значения аргумента и функции в ячейки рабочего листа Excel в виде таблицы с пояснениями.
Таблица 5.2
Исходные данные для составления таблицы
Вариант |
Задание |
1 |
2 |
1 |
Составить программу вывода в ячейки рабочего листа Excel всех четных чисел от 0 до 20 |
2 |
Составить программу вывода в ячейки рабочего листа Excel всех четных чисел от 0 до 20 в порядке убывания |
3 |
Составить программу вывода в ячейки рабочего листа Excel всех нечетных чисел от 1 до 15 |
4 |
Составить программу вывода на печать всех нечетных чисел от 5 до 15 в порядке убывания |
5 |
В компьютер последовательно ввести данные (двадцать значений) в дюймах. Преобразовать эти данные в метры (1 дюйм = 0,0254 м) и вывести их на лист Excel в виде таблицы |
6 |
В компьютер последовательно ввести 15 чисел. Эти данные представленные в градусах, перевести в радианы и вывести их на лист Excel в виде таблицы |
Окончание табл. 5.2
1 |
2 |
7 |
В компьютер последовательно ввести 10 произвольных чисел х. Составить программу, которая печатала бы в четыре столбца следующие результаты: х, FIX(x), INT(x), CINT(x) |
8 |
В компьютер ввести последовательно 12 произвольных чисел х, составить программу, которая печатала бы в три столбца следующие результаты: х, arcsinx, аrcosx, и вывести их на лист Excel в виде таблицы |
9 |
Написать программу, которая выводит на лист Excel квадраты и кубы целых чисел а от 1 до 10 в виде таблицы. Столбцы таблицы должны иметь обозначения, например: а, а2, а3 |
10 |
Составить программу перевода значений температуры по шкале Цельсия от 0 до 100 градусов с шагом в пять градусов в их эквиваленты по шкале Фаренгейта. Для перевода использовать формулу: tF = 9tС/5 + 32. Результат перевода вывести на лист Excel в виде таблицы |
11 |
Составить программу перевода 1, 2, …, 20 долларов США в рубли по текущему курсу (курс вводится через окно InputBox). Результат перевода вывести на лист Excel в виде таблицы |
12 |
Составить программу распечатки стоимости 50, 100, 150,…, 1000г. сыра. Стоимость 1 кг сыра ввести в окне InputBox, вывести результат на лист Excel в виде таблицы |
13 |
Составить таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2, …, 10 фунтов (1 фунт = 453 г). Вывести данные на лист Excel в виде таблицы |
14 |
Рассчитать значения у для значений х, равных 4, 5, …, 28, если у задается формулой: y = 2t2 +5,5t –2, где t = x + 2 |
15 |
Вывести данные на лист Excel в виде таблицы значения sin 0,1; sin 0,2; ...; sin1,1 |
З а д а н и е 3. Составить алгоритм и программу вложенных циклов с использованием операторов For – Next, While – Wend (первую переменную считать переменной внешнего цикла) в соответствии с индивидуальным заданием (табл. 5.3). Значения аргумента, функции ввести в таблицу рабочего листа Excel и построить график (точечную диаграмму).
Таблица 5.3
Функции для построения семейства кривых
Вариант |
Функция |
Диапазон изменения аргументов |
Шаг изменения аргументов |
1 |
2 |
3 |
4 |
1 |
|
–π/2 ≤ x ≤ π/2 2 ≤ a ≤10 |
∆x = π/10 ∆a=1 |
2 |
|
0 ≤ x≤π
|
∆x=π/10
|
3 |
|
0 ≤ x ≤ π 1 ≤ a ≤4 |
∆x = π/10 ∆a = 0,5 |
4 |
|
–π≤x≤π 1,5 ≤ a≤ 2 |
∆x = π/10 ∆a = 0,1 |
5 |
|
0 ≤ x ≤ π 3 ≤ a ≤ 3,5 |
∆x = π/10 ∆a = 0,1 |
6 |
|
0 ≤ x ≤ π 2 ≤ b ≤3 |
∆x =π/10 ∆b =0,1 |
7 |
|
–1 ≤ x ≤1 1 ≤ a ≤2 |
∆x =0,2 ∆a=0,2 |
8 |
|
–1 ≤ x≤ 1 10 ≤ c≤ 20 |
∆x= 0,3 ∆c=5 |
9 |
|
–1 ≤ x≤ 1 2 ≤ c≤ 3 |
∆x= 0,25 ∆c=0,25 |
10 |
|
–1 ≤ x ≤2 1 ≤ a ≤5 |
∆x = 0,2 ∆a=0,6 |
11 |
|
–π≤x≤π/2 2 ≤ a ≤ 4 |
∆x =π/20 ∆a=0,5 |
12 |
|
2 ≤ x ≤ 3 1 ≤ a ≤ 2 |
∆x = 0,1 ∆a=0,2 |
13 |
|
–π ≤ x ≤ π 2 ≤ a ≤ 4 |
∆x = π/10 ∆a = 0,1 |
Окончание табл.5.3
1 |
2 |
3 |
4 |
14 |
|
–π/2 ≤x≤π/2 2 ≤ b≤ 3 |
∆x=π/10 ∆b=0,1 |
15 |
|
0 ≤ x ≤ π 2 ≤ a ≤3 |
∆x = π/10 ∆a =0,5 |
Лабораторная работа 6
АЛГОРИТМЫ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ С ВЕТВЛЕНИЕМ
Цель работы: изучение особенностей решения задач циклической структуры с ветвлением, реализации цикла со счетчиком.