Слайд 1Лабораторная работа №4
Вариант №10
Выполнил: Тамбулатов А.
Слайд 2Элементы матрицы А(n×m) вычисляются по формуле:
n, m
i=1,n
начало
j=1,m
A(i,j)=arcsin(1/(i+j))
A(i,j)
конец
Слайд 3Sub Макрос1()
Dim a(), n, m, f As String, i, j As
Single
c = InputBox("введите n=", "ввод")
n = Val(c)
f = InputBox("введите m=", "ввод")
m = Val(f)
Cells.Clear
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = Atn((1 / (i + j)) / Sqr(1 - (1 / (i + j)) ^ 2))
Cells(i, j) = a(i, j)
Next j
Next i
End Sub
Ответ:
Слайд 42.Дана матрица А(n×m). Получить вектор b1, b2, …, bn, где bi
равен наименьшим значениям строк.
начало
m,n
i=1,n
Min=10^20
i=1,m
A(i,j)
A(i,j)
1
2
K(i)=min
K(i)
3
4
конец
Слайд 6Sub Макрос2()
Dim a(), k(), n, m, f As String, i, j
As Single
c = InputBox("введите n=", "ввод")
n = Val(c)
f = InputBox("введите m=", "ввод")
m = Val(f)
Min = 10 ^ 20
Cells.Clear
ReDim k(n)
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = Int(10 * Rnd(1))
Cells(i, j) = a(i, j)
If a(i, j) < Min Then Min = a(i, j)
Next j
k(i) = Min
Cells(i, j + m - 2) = k(i)
Next i
End Sub
Ответ:
Слайд 73.Дана матрица А(n×m). Найти номера строк, где элементы кратны 5.
начало
m,n
i=1,n
k=0
j=1,m
A(i,j)
A(i,j)
1
2
k=m
i
3
4
конец
Слайд 9Sub Макрос1()
Dim a(), n, m As String, i, j As Single
c
= InputBox("введите n=", "ввод")
n = Val(c)
f = InputBox("введите m=", "ввод")
m = Val(f)
Cells.Clear
ReDim a(n, m)
For i = 1 To n
k = 0
For j = 1 To m
a(i, j) = Int(100 * Rnd(1))
Cells(i, j) = a(i, j)
If a(i, j) Mod 5 = 0 Then k = k + 1
Next j
If k = m Then Cells(i, m + 2) = i
Next i
End Sub
Ответ:
Слайд 10Дана квадратная матрица А(n× n). Найти максимальный элемент в заштрихованной части.
Слайд 11n
Max=10^-20
i=1,n
j=1,n
A(i,j)
i>j
и
N-i+1>j
и
A(i,j)> max
начало
Max=A (i, j)
max
конец
Слайд 12Sub макрос()
Dim a() As Single, n As Variant, t As String,
m As Variant
t = InputBox("n")
n = Val(t)
ReDim a(n, n)
Cells.Clear
Max = -10 ^ 20
For i = 1 To n: For j = 1 To n
a(i, j) = Int(30 * Rnd())
Cells(i, j) = a(i, j)
If (i > j And n - i + 1 > j) And a(i, j) > Max Then Max = a(i, j)
Next j
Next i
MsgBox "max=" & Max
End Sub
Ответ:12
Слайд 13n
i=1,n
j=1,n
A(I,j)=1/(j*F)
A(n,n)
конец
F=F*i
F=1
начало
Получить квадратную матрицу А(n× n):
Слайд 14Sub Макрос5()
Dim a() As Single, n As Variant, t As String,
F As Variant
t = InputBox("n")
n = Val(t)
F = 1
ReDim a(n, n)
Cells.Clear
For i = 1 To n
F = F * i
For j = 1 To n
a(i, j) = 1 / (j * F)
Cells(i, j) = a(i, j)
Next j
Next i
Cells(n, n) = a(n, n)
End Sub
Слайд 15начало
n, m
i=1,n
j=1,m
A(i, j) = Int(30 * Rnd(1))
A(i,j)
A(i,j)
i=1,n
j=1,m
A(i,j)= g
g
g
g=A(n,j)
i=1,n
j=1,m
A(I ,j)
A (I ,j)
конец
Дана
матрицы А(n×m). Вместо столбца с номером 3 поставить столбец с номером n.
Слайд 16Sub Макрос()
Dim a() As Single, n As Variant, t As String,
m As Variant
t = InputBox("n")
n = Val(t)
t = InputBox("m")
m = Val(t)
ReDim a(n, m)
Cells.Clear
For i = 1 To n: For j = 1 To m
a(i, j) = Int(30 * Rnd())
Cells(i, j) = a(i, j)
Next j
Next i
Слайд 17For i = 1 To n
For j = 1 To m
g
= a(i, 3)
a(i, 3) = a(i, m - 1)
a(i, m - 1) = g
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(i, m + 2 + j) = a(i, j)
Next j
Next i
End Sub
Ответ: