ГлавнаяПобочная
Образец выполнения работы № 2
Задача №1
Пример 1
Найти минимальный среди нечетных элементов под главной диагональю матрицы произвольного размера одинаковой длины.
Решение
Sub Zadanie_1()
Const N=6 ‘ Размерность матрицы
Dim A(N,N) as Integer, I as Integer, J as Integer
Dim Min as Integer, Imin as Integer, Jmin as Integer
Randomize
For I=1 To N
For J=1 To N
A(I,J) = Int(Rnd*10 – 5) ‘ Формирование матрицы
Cells(I,J) = A(I,J) ‘ случайным образом
Next J,I
Min = 32000
For I=1 To N
For J=1 To N
If (A(I,J)<=Min) And (A(I,J) Mod 2<>0) And (I>J) Then ‘ Поиск
Min = A(I,J) ‘ минимума и его
Imin = I ‘ номера строки и
Jmin = J ‘ номера столбца
End If
Next J,I
Cells(N+2,1) = “Min =” ‘ Вывод результатов
Cells(N+2,2) = Min
Cells(N+3,1) = “IMin =”
Cells(N+3,2) = IMin
Cells(N+4,1) = “JMin =”
Cells(N+4,2) = JMin
End Sub
Пример 2
Определить количество нулевых элементов в каждом столбце матрицы произвольного размера.
Решение
Sub Zadanie_1a()
Const N=6, M=5 ‘ Размерность матрицы
Dim A(N,M) as Integer, I as Integer, J as Integer
Dim K as Integer
For I=1 To N
For J=1 To M
A(I,J) = Int(Rnd*10 – 5)
Cells(I,J) = A(I,J)
Next J,I
For J=1 To M ‘ Цикл по столбцам
K = 0 ‘ Начальное значение
For I=1 To N ‘ Цикл по строкам
If A(I,J) = 0 Then K = K+1 ‘ Поиск количества
Next I ‘ Конец цикла по строкам
Cells(N+2,J) = “K =” & K ‘ Вывод результата в J столбец
Next J ‘ Конец цикла по столбцам
End Sub
Задача №2
Сформировать матрицу B(8,9) следующего вида:
4 5 5 5 5 5 5 5 1
4 0 5 5 5 5 5 2 2
4 0 0 5 5 5 3 3 3
4 0 0 0 5 4 4 4 4
4 0 0 0 5 5 5 5 5
4 0 0 6 6 6 6 6 6
4 0 7 7 7 7 7 7 7
4 8 8 8 8 8 8 8 8
Решение
Sub Zadanie_2()
Const N = 8, M = 9
Dim B(8,9) as Integer, I as Integer, J as Integer
WorkSheets(“Лист2”).Select
For I=1 To N
For J=1 To M
If I+J>M+1 Then B(I,J) = I ‘ Область под побочной диагональю
If (I<J) And (I+J < M+1) Then B(I,J) = 5 ‘ Верхний треугольник – цифра 5
If J = 1 Then B(I,J) = 4 ‘ Первый столбец – цифра 4
Cells(I,J) = B(I,J)
Next J,I
End Sub
Задача №3
Вычислить все значения функции 
на промежутке от –3 до 5 с шагом h=0,3 с использованием подпрограммы.
Решение
Function f(x as Single) as Single ‘ Подпрограмма-функция
f = (Sin(x+2))^2/(x-6) ‘ вычисления функции
End Function
Sub Zadanie_3()
Dim x as Single, Y as Single
WorkSheets(“Лист3”).Select ‘ Выбор 3-го листа
Cells(1,1) = “X” ‘ Печать заголовков
Cells(1,2) = “Y” ‘ в первой строке
I = 2 ‘ Номер строки для вывода –2
For x = -3 To 5 Step 0.3
Y = f(x) ‘ Вызов функции
Cells(I,1) = x ‘ Вывод значения x
Cells(I,2) = Y ‘ Вывод значения Y
I = I + 1 ‘ Номер строки - следующий
Next x
End Su
Практическая часть
Задание № 1
 Последняя цифра номера зачетной книжки
| Начало текста |
| Определить сумму и количество элементов, больших 6, по абсолютной величине | |
| Определить сумму и произведение отрицательных четных элементов | |
| Определить минимальный элемент и его местоположение (№ строки и столбца) среди нечетных положительных элементов | |
| Определить максимальный элемент среди отрицательных и его местоположение (№ строки и столбца) | |
| Определить среднее арифметическое всех положительных элементов, кратных 5 | |
| Определить произведение и количество четных элементов, больших 7 | |
| Определить минимальный элемент и его местоположение (№ строки и столбца) среди четных отрицательных элементов | |
| Определить сумму и количество элементов, попадающих в интервал (0;5) | |
| Определить максимальный элемент и его местоположение (№ строки и столбца) среди элементов, кратных 3 | |
| Определить произведение и количество элементов, больших 3 |
 Предпоследняя цифра номера зачетной книжки
| Окончание текста |
| В первом столбце матрицы произвольного размера | |
| В последних трех столбцах матрицы произвольного размера | |
| В каждой строке квадратной матрицы | |
| В четных столбцах матрицы произвольного размера | |
| В нечетных строках матрицы произвольного размера | |
| В каждом столбце матрицы произвольного размера | |
| Во второй и третьей строках матрицы произвольного размера | |
| На главной диагонали квадратной матрицы | |
| Над побочной диагональю квадратной матрицы | |
| В первых трех строках матрицы произвольного размера |
Задание № 2
Сформировать матрицу:
Имя[размер] (вариант – последние две цифры номера зачетной книжки)
| А[7x7] (01, 21, 41, …, 81) | В [7x7] (02, 22, 42, …, 82) |
| 
|
| С [7x8] (03, 23, 43, …, 83) | D [8x8] (04, 24, 44, …, 84) |
| 
|
| E [5x9] (05, 25, 45, …, 85) | F [5x5] (06, 26, 46, …, 86) |
| 
|
| G [5x5] (07, 27, 47, …, 87) | H [5x9] (08, 28, 48, …, 88) |
| 
|
| I [8x8] (09, 29, 49, …, 89) | J [8x8] (10, 30, 50, …, 90) |
| 
|
| K [5x5] (11, 31, 51, …, 91) | L [5x9] (12, 32, 52, …, 92) |
| 
|
| M [5x5] (13, 33, 53, …, 93) | N [5x9] (14, 34, 54, …, 94) |
| 
|
| O [8x8] (15, 35, 55, …, 95) | P [8x8] (16, 36, 56, …, 96) |
| 
|
| R [8x8] (17, 37, 57, …, 97) | S [8x8] (18, 38, 58, …, 98) |
| 
|
| T [8x8] (19, 39, 59, …, 99) | U [8x8] (20, 40, 60, …, 100) |
| 
|
Задание № 3
Найти максимальное и минимальное значения функции y=F(x), а также соответствующие значения аргумента X при изменении аргумента X от Xн до Xк с шагом h, используя подпрограмму-функцию для вычисления функции F(x).
 Последняя цифра номера зачетной книжки
|
| N | Y=F(x) |
| |
| 2x +20,5x | |
| cos(4,9 – x)1,5 | |
| sin3 (2,5 + x) | |
| cos (4 / x)2 | |
| 12 / sin (1,6 +x) | |
| 0,7 ln(5x2) | |
| (4,6 – 3x)3 | |
| 0,1 lg (2x +12) | |
|
| Предпоследняя цифра номера зачетной книжки |
| N | Начальное значение аргумента Хн | Конечное значение аргумента Хк | Шаг изменения аргумента h |
| -5 | |||
| -3 | 0,6 | ||
| 0,4 | |||
| -2 | 0,8 | ||
| 2,4 | 0,2 | ||
| -2,5 | 2,5 | 0,25 | |
| 0,3 | |||
| -4 | -2 | 0,1 | |
| 0,2 | |||
| -5 | 0,5 |