Задача №2
Вычислить
все значения функции
при изменении аргумента x от –2 до 6 с шагом 0,5. Функции F1 и F2 взять из задания № 1.
Решение
Sub Zadanie_2()
Const Alfa = 0.5, Betta = 0.2
Dim x as double, A as double, B as double
Dim Y as double, I as Integer
A = 3.4
B = 12.6
Cells(1,1) = ”X” ‘ Вывод в ячейке A1 буквы X
Cells(1,2) = “Y” ‘ Вывод в ячейке B1 буквы Y
I=2 ‘ Номер строки для вывода результатов
For x=-2 To 6 Step 0.5 ‘ Цикл с параметром для изменения x
If (x>=0) And (x<=2) Then Y = Abs(Alfa+x^2)^B ‘ Проверка условия
If x>2 Then Y = Exp(Alfa+x)*Cos(Betta-A)
Cells(I,1) = x ‘ Вывод значения x в ячейке AI
Cells(I,2) = Y ‘ Вывод значения Y в ячейке BI
I = I + 1 ‘ Номер строки - следующий
Next x
End Sub
Задача №3
В одномерном массиве произвольной длины вычислить среднее арифметическое ненулевых элементов и максимальное значение среди четных элементов.
Решение
Sub Zadanie_3()
Const N=10
Dim A(N) as Integer, I as Integer, S as double, K as Integer
Dim Sr as double, Max as Integer, Imax as Integer
WorkSheets(“Лист2”).Select ‘ Выбор рабочего листа Лист2
Cells(1,1) = “Массив А”
Randomize ‘ Генератор случайных чисел
For I = 1 To N
A(I) = Int( Rnd*20 – 10) ‘ Формир-е случ.числа от –10 до 10
Cells(2,I) = A(I) ‘ Вывод массива во вторую строку
Next I
S = 0 : K = 0 : Max = -32000 ‘ Начальные значения результатов
For I = 1 To 10
If A(I) <> 0 Then ‘ Выбор элементов, не равных 0
S = S + A(I) ‘ Поиск суммы
K = K + 1 ‘ Поиск количества
End If ‘ Конец условного оператора
If (A(I) >=Max) And ( A(I) Mod 2 = 0) Then ‘ Поиск максимума
Max = A(I) ‘ среди четных и
Imax = I ‘ его места
End If
Next I
If K <> 0 Then Sr = S/K Else Sr=0 ‘ Поиск среднего арифм.
Cells(4,1) = “S =” ‘ Вывод результатов
Cells(4,2) = S
Cells(5,1) = “K =”
Cells(5,2) = K
Cells(6,1) = “Sr =”
Cells(6,2) = Sr
Cells(7,1) = “Max =”
Cells(7,2) = Max
Cells(8,1) = “Imax =”
Cells(8,2) = Imax
End Sub
Задания для контрольной работы № 1 Задание №1
Вычислить и напечатать значение функции Y = f1+f2+f3+f4. Значение аргумента x задать с клавиатуры. Значения А, В, С, D задать с клавиатуры при помощи оператора присваивания. Значения , , задать в разделе констант.
|
Последняя цифра номера зачетной книжки |
|
N |
f1 |
f3 |
|
0 |
|
|
|
1 |
|
|
|
2 |
|
|
|
3 |
|
|
|
4 |
|
|
|
5 |
|
|
|
6 |
|
|
|
7 |
|
|
|
N |
f1 |
f3 |
|
8 |
|
|
|
9 |
|
|
|
|
Предпоследняя
цифра номера зачетной книжки
|
N |
f2 |
f4 |
|
0 |
|
|
|
1 |
|
|
|
2 |
|
|
|
3 |
|
|
|
4 |
|
|
|
5 |
|
|
|
6 |
|
|
|
7 |
|
|
|
8 |
|
|
|
9 |
|
|
Задание № 2
Вычислить и напечатать все значения функции
при изменении аргумента X от Хн до Хк с шагом dx. Функции f1, f2, f3, f4 взять из задания №1.
|
Последняя цифра номера зачетной книжки |
|
N |
Условие _1 |
Условие _2 |
Условие_ 3 |
Условие _4 |
|
0 |
x > 0 |
-3 x 0 |
Нет |
x < -3 |
|
1 |
Нет |
x > 2 |
-1 x 2 |
x < -1 |
|
2 |
x < -2 |
-2 x 3 |
х > 4 |
3 < х < 4 |
|
3 |
-4 x -2 |
x > 4 |
2 x 4 |
-2 < x < 2 |
|
4 |
x < 0 |
Нет |
x > 4 |
0 x 3 |
|
5 |
x > 4 |
0 x < 1 |
Нет |
1 x 4 |
|
6 |
x < 2 |
-2 x 2 |
Нет |
x > 2 |
|
7 |
x < 0 |
Нет |
x > 5 |
0 x 5 |
|
8 |
0 x 3 |
x < 0 |
x > 3 |
Нет |
|
9 |
x > 4 |
0 x 4 |
Нет |
x < 0 |
|
|
Предпоследняя
цифра номера зачетной книжки
|
N |
Начальное значение аргумента Хн |
Конечное значение аргумента Хк |
Шаг изменения аргумента dx |
|
0 |
-5 |
5 |
0,5 |
|
1 |
-2 |
6 |
0,4 |
|
2 |
-4 |
10 |
1 |
|
3 |
-8 |
8 |
0,4 |
|
4 |
-3 |
6 |
0,3 |
|
5 |
0 |
7 |
0,35 |
|
6 |
-5 |
5 |
0,5 |
|
7 |
-3 |
9 |
0,6 |
|
8 |
-2 |
12 |
0,25 |
|
9 |
-1 |
4 |
0,25 |