Квадратная целочисленная матрица - VB
Формулировка задачи:
Такая вот задачка...
Квадратная целочисленная матрица. Вводится число.
Задание по условию:
1)Найти количество строк, среднее арифметическое которых меньше заданого числа.
2)Найти сумму модулей элементов росположеных под главной диагональю.
Решение задачи: «Квадратная целочисленная матрица»
textual
Листинг программы
Option Explicit Dim a() As Integer, sm() As Integer, kl As Integer Dim i As Integer, j As Integer Private Sub Command1_Click() Dim n As Integer, k As Integer Dim S Me.Cls Print " Квадратная целочисленная матрица[A], размером N x N." Print " 1)Найти количество строк, среднее" Print "арифметическое которых меньше заданого числа." Print " 2)Найти сумму модулей элементов " Print " росположеных под главной диагональю." Print "================================================" re1: n = Val(InputBox("вводим размерность N")) If n <= 2 Then MsgBox "Некорректный ввод! " & vbCrLf & "Повторите" GoTo re1 End If ReDim a(1 To n, 1 To n) k = Val(InputBox("вводим число k")) ReDim sm(n) kl = 0 For i = 1 To n S = 0 For j = 1 To n a(i, j) = Val(InputBox("вводим a(" & i & "," & j & ")")) S = S + a(i, j) Next j If S / n < k Then kl = kl + 1 sm(i) = 1 End If Next i S = 0 For i = 2 To n For j = 1 To i - 1 S = S + Abs(a(i, j)) Next j Next i Print: Print " исходная матрица": Print For i = 1 To n For j = 1 To n Print Tab(j * 10); a(i, j); Next j Print Next i If kl > 0 Then Print: Print "номер строки, среднее" Print "арифметическое которой меньше "; k For i = 1 To n If sm(i) = 1 Then Print i; " "; Next i Print Print Print " количество строк, среднее" Print "арифметическое которых меньше "; k; " --- "; kl Print Else Print: Print "номер строки, среднее" Print "арифметическое которой меньше не найдено "; Print End If Print " суммa модулей элементов " Print " росположеных под главной диагональю." Print "S= "; S End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д