Вычислить сумму квадратов всех элементов массива и корень квадратный этой суммы. - 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]
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д