Вычислить сумму квадратов всех элементов массива и корень квадратный этой суммы. - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста задачу решить: В программе должны быть описаны, а при выполнении программы последовательно вызваны три подпрограммы-процедуры: Bbod – ввод исходных данных; Solution – решение (входные параметры этой процедуры являются выходными параметрами процедуры Bbod); Result – вывод результатов (передачу параметров в эту процедуру организовать за счет их глобального описания). Формальные и фактические параметры процедур должны иметь разные имена. ЗАДАЧА Поэлементно ввести двумерный массив (3х3) целых чисел. Вычислить сумму квадратов всех элементов массива и корень квадратный этой суммы. С массивом все в порядке и программа все считает, а вот с остальным не знаю как быть.

Решение задачи: «Вычислить сумму квадратов всех элементов массива и корень квадратный этой суммы.»

textual
Листинг программы
[BASIC]Option Explicit
 
Dim A(1 To 3, 1 To 3) As Long
Dim I, J
Dim mass
 
Sub Программа()
Bbod
Solution
Result
End Sub
 
Sub Bbod()
mass = ""
For I = 1 To 3
For J = 1 To 3
A(I, J) = InputBox("введите элемент массива", "введите элемент массива")
mass = mass & A(I, J) & " "
Next J
mass = mass & vbCrLf
Next I
MsgBox mass
 End Sub
 
Sub Solution()
summ = 0
For I = 1 To 3
For J = 1 To 3
summ = summ + A(I, J) ^ 2
Next J
Next I
kor = Sqr(summ)
 End Sub
 
Sub Result()
MsgBox "сумма элементов:" & summ
MsgBox "квадратный корень =" & kor
 
End Sub
[/BASIC]

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


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

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

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