Цикл и кратность

05.12.2010, 15:47. **Показов** 3803. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Задача : Дана последовательность чисел из 12 элементов. Вычислить сумму модулей элементов значение которых кратных 5. Последовательность чисел ввести поочередно с помощью стaндартной функции inputbox().Вычисления производить по нажатию на командную кнопку «Вычислить». Сумму вывести на форму с помощью элемента textBox. Для выполнения расчетов использовать одномерный массив. Циклический алгоритм реализовать с помощью оператора цикла Do While .. loop

Для вычисления модуля использовать встроенную функцию abs(), для проверки кратности – функцию int()

помогите пожалуйста. Не могу понять, что делать с функциями и кратность как задать

@YuraAAA · 05.12.2010, 16:31

Visual Basic

Option Base 1
Private Sub Command1_Click()
Dim a(12) As Single, i As Integer, sum As Single
sum = 0
i = 0
Do While i < 12
i = i + 1
a(i) = InputBox("Элемент номер " & i)
If a(i) / 5 = Int(a(i) / 5) Then sum = sum + Abs(a(i))
Loop
Text1.Text = sum
End Sub

Monaco
		1
	Цикл и кратность 05.12.2010, 15:47. Показов 3803. Ответов 1 Метки нет (Все метки) Задача : Дана последовательность чисел из 12 элементов. Вычислить сумму модулей элементов значение которых кратных 5. Последовательность чисел ввести поочередно с помощью стaндартной функции inputbox().Вычисления производить по нажатию на командную кнопку «Вычислить». Сумму вывести на форму с помощью элемента textBox. Для выполнения расчетов использовать одномерный массив. Циклический алгоритм реализовать с помощью оператора цикла Do While .. loop Для вычисления модуля использовать встроенную функцию abs(), для проверки кратности – функцию int() помогите пожалуйста. Не могу понять, что делать с функциями и кратность как задать

	05.12.2010, 16:31