Определить, сколько воды потребуется для заполнения всех кастрюль - VB

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

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

На столе лежит 10 кастрюль, которые необходимо заполнить водой. В первую кастрюлю помещается 0,5 л воды, а в каждую следующую на 0,5 л больше, чем в предыдущую. Сколько воды потребуется для заполнения всех кастрюль? Нужна программа на VB и желательно блок-схема. Заранее спасибо

Решение задачи: «Определить, сколько воды потребуется для заполнения всех кастрюль»

textual
Листинг программы
Sub main1()
    Dim i As Long, a(1 To 10) As Double, s As Double
    For i = 1 To 10
        If i = 1 Then a(i) = 0.5 Else a(i) = a(i - 1) + 0.5
        s = s + a(i)
    Next i
    MsgBox "Кол-во воды, необходимое для заполнения всех кастрюль: " & s
End Sub

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


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

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

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