Определить, сколько можно купить тетрадей по 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

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


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

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

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