Назначение и состав программного обеспечения ПО компьютера. Состав и назначение системного ПО (стр. 4 из 4)

8. Степанов А.Н. ИНФОРМАТИКА Для студентов гуманитарных специальностей М, Спб.:ПИТЕР , 2003

Задание № 2 D(N) Вычислить квадратный корень из суммы квадратов элементов.

Ввод длинны массива

Начало цикла

Ввод значений элементов

массива

Обнуление переменной Sum

Начало цикла

Суммирование квадратов

элементов массива

Извлечение корня из суммы

Вывод значения на экран

Private Sub btnCalc_Click()

btnCalc.Default = False

btnCalc.Enabled = False

'Началорасчета

Sum = 0

For i = 1 To lstDim.ListCount

Sum = Sum + CInt(lstDim.List(i - 1)) ^ 2

Next i

Calc = Sqr(Sum)

'Конецрасчета

txtCalculated.Text = CStr(Calc)

End Sub

Private Sub btnInput_Click()

txtN.Enabled = False

btnInput.Default = False

btnInput.Enabled = False

n = CInt(txtN.Text)

Dim d(255) As Integer

Fori = 1 Ton

Letd(i) = CInt(InputBox("Введите значение элемента массива", "Ввод массива", "0"))

lstDim.AddItem (CStr(d(i)))

Next i

btnCalc.Enabled = True

btnCalc.Default = True

End Sub