Как выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.,N, Aij = sin ( i + j/2) - VB
Формулировка задачи:
Дано натуральное число N. Выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.......,N
Aij = sin ( i + j/2)
Решение задачи: «Как выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.,N, Aij = sin ( i + j/2)»
textual
Листинг программы
Function CountAij(ByVal N) As String Dim c, dc, i, j For i = 0 To N If i Mod 1000 = 0 Then DoEvents For j = 0 To N If i Mod 1000 = 0 Then DoEvents If Sin(i + j / 2) > 0 Then c = c + 1 ' Debug.Print c & " " & Sin(i + j / 2) Else: dc = dc + 1 End If Next j Next i CountAij = c & " положительных" & _ vbNewLine & _ dc & " отрицательных" MsgBox CountAij, vbInformation, _ "Элементов в ряду Sin(i + j / 2) при N=" & N End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д