Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 18
1

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

01.11.2012, 10:26. Показов 1219. Ответов 5
Метки нет (Все метки)

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

Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2012, 10:26
Ответы с готовыми решениями:

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

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

Сколько дней потребуется ждать потребителю, чтобы общее количество выпущенной продукции впервые превысило 1,5k
Помогите пожалуйста с программой, кто может) Строительный склад в первый день работы выпустило k...

Сколько потребуется дней, чтобы накопить 1000000 рублей?
В первый день выручка предпренимателя составила k рублей. Каждый последующий день выручка...

5
Заблокирован
01.11.2012, 10:53 2
dplusm, а зачем тут цикл?
Сумма арифметической прогрессии вычисляется одной строкой.
0
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 18
01.11.2012, 11:00  [ТС] 3
Апострофф, насчет цикла не знаю, так и насчет вычисления одной строкой тоже - без понятия. Я не дружу с Visual Basic и жду вашей помощи.
0
19 / 18 / 7
Регистрация: 30.09.2012
Сообщений: 35
01.11.2012, 13:04 4
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.Думаю тоже сойдет.)
3
Заблокирован
01.11.2012, 13:29 5
Цитата Сообщение от VBmaster98 Посмотреть сообщение
Не ругатЬся...
Очень надо...
Цитата Сообщение от dplusm Посмотреть сообщение
чтобы общее количество выпущенной продукции за все время работы
А не за последний день
А зачем Else в 10-й и 11-й строке?
А почему ответ выводится двумя меседжами?

Не по теме:

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

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

Сколько дней потребуется спортсмену, чтобы преодолеть данные расстояния?
Контрольное задание: Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он...

Сколько времени потребуется, чтобы количество бактерий превзошло X?
Каждая бактерия делится на две в течении одной минуты. В начальный момент имеется A бактерий....

Сколько времени потребуется, чтобы количество бактерий превзошло заданное число?
Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется A бактерий....

превысило ли норму(N) количество выпавших осадков за месяц (К дней)
определите, превысило ли норму(N) количество выпавших осадков за месяц (К дней)?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru