Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел - VB

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

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

Дано N положительных вещественных чисел. Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел.

Решение задачи: «Вывести произведение целых частей чисел, а также сумму дробных частей всех чисел»

textual
Листинг программы
Private Sub Form_Load()
c = InputBox("Сколько чисел?")
ReDim b(1 To c)
произведение_целых_частей = 1
Randomize
For a = 1 To c
  b(a) = Rnd * c
  произведение_целых_частей = произведение_целых_частей * Int(b(a))
  сумма_дробных_частей = сумма_дробных_частей + b(a) - Int(b(a))
Next
MsgBox "произведение целых частей чисел = " & произведение_целых_частей & vbLf & _
"сумма_дробных_частей = " & сумма_дробных_частей
End Sub

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


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

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

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