Нужно написать лёгкие процедуры! - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы