- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
ЛР по программированию презентация
Содержание
- 1. ЛР по программированию
- 2. Элементы матрицы А(n×m) вычисляются по формуле: 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
- 4. 2.Дана матрица А(n×m). Получить вектор b1, b2,
- 5. 1 A(i,j)
- 6. Sub Макрос2() Dim a(), k(), n, m,
- 7. 3.Дана матрица А(n×m). Найти номера строк, где
- 8. 1 A(i,j) Mod 5=0 k=k+1 2 3 4
- 9. Sub Макрос1() Dim a(), n, m As
- 10. Дана квадратная матрица А(n× n). Найти максимальный элемент в заштрихованной части.
- 11. n Max=10^-20 i=1,n j=1,n A(i,j) i>j и
- 12. Sub макрос() Dim a() As Single, n
- 13. n i=1,n j=1,n A(I,j)=1/(j*F) A(n,n) конец F=F*i F=1 начало Получить квадратную матрицу А(n× n):
- 14. Sub Макрос5() Dim a() As Single, n
- 15. начало n, m i=1,n j=1,m A(i, j)
- 16. Sub Макрос() Dim a() As Single, n
- 17. For i = 1 To n For
Элементы матрицы А(n×m) вычисляются по формуле: n, m i=1,n начало j=1,m A(i,j)=arcsin(1/(i+j)) A(i,j) конец
Слайд 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
Ответ:
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
Ответ:
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
Ответ:
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
Ответ:
Слайд 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
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
Слайд 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
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
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
Ответ:
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
Ответ:
