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