Все элементы заданного массива разделить на сумму элементов массива - VB
Формулировка задачи:
3. Ввести массив А(N). Все элементы массива разделить на сумму элементов массива. Вывести преобразованный массив.
предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками.
Решение задачи: «Все элементы заданного массива разделить на сумму элементов массива»
textual
Листинг программы
- Option Explicit
- Dim N%, i%, Sum%
- Private Sub cmdD_Click()
- Randomize Timer
- N = Val(txtN.Text)
- ReDim A(N) As Single
- ReDim B(N) As Single
- For i = 1 To N
- A(i) = 80 * Rnd
- Next
- For i = 1 To N
- Sum = Sum + A(i)
- Next
- For i = 1 To N
- If Sum <> 0 Then B(i) = A(i) / Sum
- Next
- Print " A()"; Tab(12); "B()"
- For i = 1 To N
- Print Format(A(i), "00.000"); Format(B(i), " 0.00000")
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
