Написать программу для решения следующей задачи:
для числа n вводимого с клавиатуры (с помощью функции InputBox()) найти все элементы квадратного массива а(i, j) размерностью n х n если:
а(i, j) = (i+j)/cos(i)
найти для числа m<2n вводимого с клавиатуры (с помощью функции InputBox()) те элементы массива а(i, j), сумма индексов которых равна m.
Вывести в Excel массив а(i, j) и найденные элементы с помощью функции Cells. Подписать выведенные данные.
Первая часть решена , но как найти элементы , сумма индексов которых равна m и потом вывести это в массив , не очень понятно , вернее код не понятен ))
Вот код для первой части , которая уже готова) :
Sub trfu()
Dim a(1 To 7, 1 To 7) As Double
Dim b(1 To 7, 1 To 7) As Double
Dim i As Double
Dim j As Double
Dim n As Double
Dim m As Double
For i = 1 To 7
For j = 1 To 7
If i = j Then
a(i, j) = (i + j) / cosi
Else: a(i, j) = 6
End If
Cells(i, j) = a(i, j)
If i = 7 Or j = 7 Then
a(i, j) = 43
End If
Cells(i, j) = a(i, j)
Cells(i, j) = Cells(n, n)
С первой частью не очень понятно. Зачем условие проверяете: i=j?
Если честно, вообще непонятно, что делаете.
Условие "сумма индексов равна m" проверяется легко: if i+j=m then
(в ваших обозначениях)
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)