Склади програму для розв’язання задачі: Мати дала сину певну кількість грошей та попросила купити 2 кг цукру, хліб і 3 кг картоплі. Склади проєкт для обчислення суми грошей, яка залишиться у сина. 1. Побудуй математичну модель для розв'язування задачі. Визнач вхідні дані, кінцеві результати та формули. 2. Визнач, які компоненти потрібно розмістити на формі для введення вхідних даних і виведення результатів. Розмісти їх на формі. Підпиши їх. 3. Створи обробник події Click для кнопки для обчислення результату й виведення його. ​

Відповідь:

Математична модель:

Вхідні дані:

Кількість грошей, яку мати дала сину.

Формули:

Вартість 2 кг цукру - C;

Вартість 1 хліба - B;

Вартість 3 кг картоплі - P;

Сума грошей, яка залишиться у сина - R.

Кінцеві результати:

Сума грошей, яка залишиться у сина.

Розв'язок:

R = Кількість грошей - (2C + B + 3P)

Компоненти на формі:

Мітка з написом "Введіть кількість грошей:"

Поле для введення кількості грошей

Мітка з написом "Сума грошей, яка залишиться у сина:"

Поле для виведення суми грошей, яка залишиться у сина

Кнопка для обчислення результату

Код обробника події Click для кнопки обчислення результату та виведення його:

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

   Dim money As Double

   Dim costSugar As Double = 2 'Вартість 2 кг цукру

   Dim costBread As Double = 1 'Вартість 1 хліба

   Dim costPotatoes As Double = 3 'Вартість 3 кг картоплі

   Dim remainingMoney As Double

   money = CDbl(txtMoney.Text) 'Отримати кількість грошей від користувача

   remainingMoney = money - (costSugar * 2 + costBread + costPotatoes * 3) 'Обчислити залишок грошей

   txtRemainingMoney.Text = FormatCurrency(remainingMoney) 'Вивести залишок грошей у відповідне поле

End Sub

Пояснення: