Нужно написать лёгкие процедуры! - VB
Формулировка задачи:
надо написать процедуры:
1) Находжение суммы в одномерном массиве
2) Находжение суммы в двухмерном массиве
3) Нахождение максимальных элементов
4) Нахождение минимальных элементов
Решение задачи: «Нужно написать лёгкие процедуры!»
textual
Листинг программы
Private Sub Command1_Click() Dim a() As Single, n As Byte, m As Byte Dim max As Single, min As Single, sum As Single n = InputBox("n") m = InputBox("m") ReDim a(1 To n, 1 To m) For i = 1 To n For j = 1 To m a(i, j) = InputBox("A(" & i & ";" & j & ")") sum = sum + a(i, j) Next j Next i max = a(1, 1): min = a(1, 1) For i = 1 To n For j = 1 To m If a(i, j) > max Then max = a(i, j) If a(i, j) < min Then min = a(i, j) Next j Next i MsgBox "min=" & min MsgBox "max=" & max MsgBox "sum=" & sum End Sub Private Sub Command2_Click() Dim a() As Single, n As Byte Dim max As Single, min As Single, sum As Single n = InputBox("n") ReDim a(1 To n) For i = 1 To n a(i) = InputBox("A(" & i & ")") sum = sum + a(i) Next i max = a(1): min = a(1) For i = 1 To n If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i MsgBox "min=" & min MsgBox "max=" & max MsgBox "sum=" & sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д