Определить, сколько воды потребуется для заполнения всех кастрюль - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
