Кто небудь решайте эту задачку, пожалуйста - 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

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


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

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

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