Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем - VB

Узнай цену своей работы

Формулировка задачи:

Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем? Используйте цикл с постусловием с ключевым словом Until. Заранее спасибо.

Решение задачи: «Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim z As Integer
Dim e As Integer
a = Text1.Text
b = Text2.Text
If a = b Then MsgBox ("Z = 1") Else
If a < b Then MsgBox ("z =>1") Else
Do While a > z
z = z + b
e = e + 1
Loop
MsgBox(" Вычислил...Через E дней количество товаров будет превышено в 2 раза ") 
MsgBox (e)
 
 
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Вычислить "
Label1.Caption = "Введите требуемое кол-во товаров в день"
Label2.Caption = "На сколько больше товаров производится"
Text1.Text = " "
Text2.Text = " "
End Sub

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


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

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

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