txtРазмен = ""
k = InputBox("Введіть суму грошей, яку бажаєте розміняти", "Розмін")
n = Val(k)
lblСумма.Caption = "Ваша сума " + Str(n) + " грн."
For r = 0 To n 'r — можлива кількість купюр по 1 грн.
For d = 0 To n / 2 'd — можлива кількість купюр по 2 грн.
For p = 0 To n / 5 'p — можлива кількість купюр по 5 грн.
If 1 * r + 2 * d + 5 * p = n Then 'Якщо сума грошей з купюр по 1, 2, 5 грн. дорівнює сумі,
Яку треба розміняти, то цей варіант розміну друкується в текстовому полі
txtРазмен.Text = txtРазмен.Text + (Str(r) + " x 1 грн " + Str(d) + " x 2 грн " + Str(p) + " x 5 грн ") + Chr(13)
End If
Next p
Next d
Next r
End Sub
5. Сохраните проект с именем Лр9_Зад6 _Фамилия
6. Запустите проект. Проанализируйте результат.
ЗАВДАННЯ 9.7. ОПРЕДЕЛИТЬ, СКОЛЬКО СУЩЕСТВУЕТ ВАРИАНТОВ РАЗМЕНА СУММЫ 3 РУБ. 20 КОП., ЕСЛИ У ВАС ИМЕЮТСЯ МОНЕТЫ ДОСТОИНСТВОМ 2 РУБ., 1 РУБ., 50 КОП., 10 КОП.
ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)
ЗАВДАННЯ 9.8 ВЫВЕСТИ НА ФОРМУ СЛЕДУЮЩУЮ ИНФОРМАЦИЮ:
ЗАВДАННЯ 9.9. СОСТАВИТЬ ПРОГРАММУ, ПОЗВОЛЯЮЩУЮ РАСПЕЧАТАТЬ ПРОСТЫЕ НАТУРАЛЬНЫЕ ЧИСЛА В ДИАПАЗОНЕ ОТ 1 ДО 100.
|
|
ЗАВДАННЯ 9.10. ЕСЛИ ТРЕХЗНАЧНОЕ ЧИСЛО РАВНО СУММЕ КУБОВ ЧИСЕЛ, ОБРАЗУЮЩИХ ЭТО ЧИСЛО, ТО ТАКОЕ ЧИСЛО НАЗЫВАЕТСЯ "МАГИЧЕСКИМ". НАЙТИ ВСЕ МАГИЧЕСКИЕ ЧИСЛА.
ЛАБОРАТОРНА РОБОТА №10. ПРОЕКТУВАННЯ ДОДАТКІВ VB6, У ЯКИХ ДАНІ ОРГАНІЗОВАНІ У ВИГЛЯДІ ОДНОВИМІРНИХ МАСИВІВ. ЗАНЯТТЯ 1.