Кто небудь решайте эту задачку, пожалуйста - VB
Формулировка задачи:
Чтобы приготовить клубничный кисель на 5 человек надо 100 г клубники, 3/4 стакана сахара (по 200г.), и 2 столовых ложки крахмала (по 30г.). Во сколько обойдется приготовление этого напитка на 30 человек, если 1 кг клубники стоит а руб., сахара - b руб., крахмала - с руб
Решение задачи: «Кто небудь решайте эту задачку, пожалуйста»
textual
Листинг программы
Sub main() Dim a As Single, b As Single, c As Single, k As Integer, sum As String a = Val(Replace(InputBox("Введите стоимость 1 кг. клубники (руб)", "", 200), ",", ".")) b = Val(Replace(InputBox("Введите стоимость 1 кг. сахара (руб)", "", 50), ",", ".")) c = Val(Replace(InputBox("Введите стоимость 1 кг. крахмала (руб)", "", 70), ",", ".")) k = Val(InputBox("Введите количество человек, на которое нужно приготовить напиток", "", 30)) sum = Format(((0.1 * a + 0.2 * (3 / 4) * b + 2 * (0.03) * c) / 5) * k, "0.00") MsgBox "При стоимости:" & vbCrLf & "клубники " & a & " руб. за кг." & vbCrLf & _ "сахара " & b & " руб. за кг." & vbCrLf & _ "крахмала " & c & " руб. за кг.," & vbCrLf & _ "приготовление напитка на " & k & " человек обойдется в " & vbCrLf & _ Split(sum, ",")(0) & " руб. " & Split(sum, ",")(1) & " коп." End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д