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

@dplusm · Регистрация: 01.11.2012

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

Заранее спасибо.

@~~Апострофф~~ · 01.11.2012, 10:53

dplusm, а зачем тут цикл?
Сумма арифметической прогрессии вычисляется одной строкой.

@dplusm · 01.11.2012, 11:00 **[ТС]**

Апострофф, насчет цикла не знаю, так и насчет вычисления одной строкой тоже - без понятия. Я не дружу с Visual Basic и жду вашей помощи.

@VBmaster98 · 01.11.2012, 13:04

Visual Basic

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

Не ругатся первая норм. програ на форуме Visual Basic.

Добавлено через 2 минуты
Использовал цикл while do...loop.Думаю тоже сойдет.)

@~~Апострофф~~ · 01.11.2012, 13:29

Сообщение от VBmaster98

Не ругатЬся...

Очень надо...

Сообщение от dplusm

чтобы общее количество выпущенной продукции за все время работы

А не за последний день

А зачем Else в 10-й и 11-й строке?
А почему ответ выводится двумя меседжами?

Не по теме:

Это я не ругаюсь вофсе:D

@VBmaster98 · 01.11.2012, 13:46

Это я так ЯП вспоминаю после Pascal)))Просто после изучения Basic, Pascal учить начал - изучил.Теперь Basic вспоминаю

@dplusm 0 / 0 / 0 Регистрация: 01.11.2012 Сообщений: 18
		1
	Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем 01.11.2012, 10:26. Показов 1219. Ответов 5 Метки нет (Все метки) Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы общее количество выпущенной продукции за все время работы впервые превысило запланированный объем? Используйте цикл с постусловием с ключевым словом Until. Заранее спасибо. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@~~Апострофф~~ Заблокирован
	01.11.2012, 10:53	2
	dplusm, а зачем тут цикл? Сумма арифметической прогрессии вычисляется одной строкой. 0

@dplusm 0 / 0 / 0 Регистрация: 01.11.2012 Сообщений: 18
	01.11.2012, 11:00 [ТС]	3
	Апострофф, насчет цикла не знаю, так и насчет вычисления одной строкой тоже - без понятия. Я не дружу с Visual Basic и жду вашей помощи. 0

@~~Апострофф~~ Заблокирован
	01.11.2012, 13:29	5
	Сообщение от VBmaster98 Не ругатЬся... Очень надо... Сообщение от dplusm чтобы общее количество выпущенной продукции за все время работы А не за последний день А зачем Else в 10-й и 11-й строке? А почему ответ выводится двумя меседжами? Не по теме: Это я не ругаюсь вофсе:D 0

@VBmaster98 19 / 18 / 7 Регистрация: 30.09.2012 Сообщений: 35
	01.11.2012, 13:46	6
	Это я так ЯП вспоминаю после Pascal)))Просто после изучения Basic, Pascal учить начал - изучил.Теперь Basic вспоминаю 1

Опции темы

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

Решение