Определить, сколько можно купить тетрадей по 12 листов, по 48 листов и по 96 листов, зная цену - VB
Формулировка задачи:
Определить, сколько можно купить тетрадей по 12 листов, по 48 листов и по 96 листов,
если цена тетради с 96 листами 60 р., с 48 листами – 30 р., с 12 листами – 15 р., и если на
600 р. надо купить 25 тетрадей.
помогите написать цикл........... вроде бы For…Next
Решение задачи: «Определить, сколько можно купить тетрадей по 12 листов, по 48 листов и по 96 листов, зная цену»
textual
Листинг программы
Option Explicit Private Sub Комманда1_Click() Dim S Dim Z Dim eps As Double, a, x, f, N As Double eps = CDbl(InputBox("Задайте точность", "Ввод данных", 0.000000000001)) x = Val(InputBox("Задайте x", "Ввод данных", 60)) N = 0 x = CDec(x * 3.14159265358979 / 180) Do Z = F2(N) a = CDec((-1) ^ N) * (x ^ (2 * N)) / Z S = S + a Debug.Print N, S, a, Z N = N + 1 Loop While Abs(a) > eps txtX.Text = S End Sub Function F2(Q) Dim J F2 = 1 For J = 1 To Q * 2 F2 = F2 * J Next J End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д