ЛР по программированию

1. Лабораторная работа №4

Вариант №10
Выполнил: Тамбулатов А.

2.

1
Элементы матрицы А(n×m) вычисляются по формуле: aij arcsin
i j
начало
n, m
i=1,n
j=1,m
A(i,j)=arcsin(1/(i+j))
A(i,j)
конец

3.

Sub Макрос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
0,523599
0,339837
0,25268
Ответ:
0,339837
0,25268
0,201358
0,25268
0,201358
0,167448

4.

2.Дана матрица А(n×m). Получить вектор b1, b2, …, bn, где bi
равен наименьшим значениям строк.
начало
m,n
i=1,n
Min=10^20
конец
i=1,m
A(i,j)
4
2
K(i)=min
A(i,j)
K(i)
1
3

5.

4
2
1
3
A(i,j)<min
Min=a(i,j)

6.

Sub Макрос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
4
2
2
End Sub
9
1
1
Ответ:
0
3
0

7.

3.Дана матрица А(n×m). Найти номера строк, где элементы кратны 5.
начало
m,n
i=1,n
конец
k=0
j=1,m
A(i,j)
k=m
i
A(i,j)
4
2
1
3

8.

4
2
1
3
A(i,j)
Mod 5=0
k=k+1

9.

Sub Макрос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
94
Next i
End Sub
27
97
40
16
16

10. Дана квадратная матрица А(n× n). Найти максимальный элемент в заштрихованной части.

11.

начало
n
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
конец

12.

Sub макрос()
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
14
12
MsgBox "max=" & Max
12
16
End Sub
Ответ:12
20
5
24
16
12
15
6
18
14
20
26
11

13.

начало
1.Получить квадратную матрицу А(n× n):
n
F=1
i=1,n
F=F*i
j=1,n
A(I,j)=1/(j*F)
A(n,n)
конец
1
1
1
...
1 1! 2 1!
n 1!
1
1
1
...
n 2!
1 2! 2 2!
1
1
1
...
1 n! 2 n!
n n!

14.

Sub Макрос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
0,5
0,33333
3
0,25
0,5
0,25
0,16666
7
0,125
0,16666
7
0,08333
3
0,05555
6
0,04166
7
0,04166
7
0,02083
3
0,01388
9
0,01041
7
1

15.

Дана матрицы А(n×m). Вместо
столбца с номером 3 поставить
столбец с номером n.
начало
n, m
i=1,n
j=1,m
i=1,n
A(i, j) = Int(30 * Rnd(1))
j=1,m
i=1,n
g=A(n,j)
j=1,m
A(i,j)= g
A (I ,j)
A(i,j)
A(i,j)
g
A(I ,j)
g
конец

16.

Sub Макрос()
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

17.

For 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
12
28
16
Ответ:
6
11
11
14
29
12
28
14
16
29
8
15
6
11
8
11
15
4
15
28
16
27
4
15
16
28
27
19
13
20
1
22
19
13
1
20
22