Сколько времени проработали N комбайнов, если каждый следующий работал на 20 минут больше, чем предыдущий

@Screampour · Регистрация: 24.12.2012

Студворк — интернет-сервис помощи студентам

Пора сессий, ужасная пора.

Не могу решить несколько заданий по лабораторным, хочется получить зачет и забыть это как страшный сон, выручайте

Циклические алгоритмы
В поле по уборке урожая работало N комбайнов. Первый комбайн работал m ч., а каждый следующий на 20 минут больше, чем предыдущий. Написать программу рассчитывающую, сколько времени проработали N комбайнов.

Нужно сделать 3 текст бокса. В первом вбивать количество комбайнов, во втором время сколько работает первый комбайн и в последнем сколько общее время работы всех комбайнов. Т.е если вводить количество комбайнов 1, то не должно прибавляться к общему времени 20 минут. И я не могу понять как сделать чтоб 20 минут прибавлялось к времени предыдущего и все это вместе складывалось. Нужно использовать алгоритм for, я чувствую это истина где-то рядом, надеюсь на вашу помощь.

Заранее прошу прощения если создал тему не в том разделе, просто завтра уже сдавать, у меня паника

@sco43 · 24.12.2012, 20:33

А что за технический ВУЗ?

Добавлено через 9 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim n%, v%, s%
n = Val(Text1.Text)
v = Val(Text2.Text)
s = v
For i = 2 To n
 v = v + 20
 s = s + v
Next i
Print
Text3.Text = s
End Sub

@Казанский · 24.12.2012, 20:41

В условии есть ловушка: Первый комбайн работал m ч., а каждый следующий на 20 минут больше, чем предыдущий
Надо либо указать, что в Текст2 надо вводить минуты, либо вместо 20 прибавлять 1/3, и тип переменных соотв.

@sco43 · 24.12.2012, 20:46

Или проще:

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim n%, v%, s%
n = Val(Text1.Text)
v = Val(Text2.Text)
s = (2 * v + (n - 1) * 20) * n / 2
Text3.Text = s
End Sub

Добавлено через 52 секунды

Сообщение от Казанский

В условии есть ловушка: Первый комбайн работал m ч., а каждый следующий на 20 минут больше, чем предыдущий
Надо либо указать, что в Текст2 надо вводить минуты, либо вместо 20 прибавлять 1/3, и тип переменных соотв.

Ну да - перевести часы в минуты или наоборот.
Тогд анаверно так правильно:

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim n%, v!, s!
n = Val(Text1.Text)
v = Val(Text2.Text)
s = (2 * v + (n - 1) / 3) * n / 2
Text3.Text = s
End Sub

@Screampour · 24.12.2012, 21:47 **[ТС]**

sco43, Не хотелось бы распространяться на эту тему, будет весело если мой преподаватель обитает на этом форуме

Казанский, Не думаю, что это такой подвох в задаче, скорее всего просто опечатка в задании. Было бы слишком сложно для базового уровня

Большое спасибо, я часа два голову ломал пытаясь понять как прибавить получившееся к следующему, а прибавить 20 к предыдущему, ужас

Вот еще, прошу понять простить за мою эдакую наглость

Одномерные Массивы, Двумерные Массивы, Строки
Ссылка удалена

Комментарий модератора

Читаем правила!
На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.
Картинки и любые другие файлы загружайте на форум, во избежание их удаления или потери на сторонних ресурсах.

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
Запрещено размещать задания в виде картинок и других файлов с их текстом.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Screampour 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 3

	Сколько времени проработали N комбайнов, если каждый следующий работал на 20 минут больше, чем предыдущий 24.12.2012, 20:16. Показов 1704. Ответов 4 Метки нет (Все метки) Пора сессий, ужасная пора. Не могу решить несколько заданий по лабораторным, хочется получить зачет и забыть это как страшный сон, выручайте Циклические алгоритмы В поле по уборке урожая работало N комбайнов. Первый комбайн работал m ч., а каждый следующий на 20 минут больше, чем предыдущий. Написать программу рассчитывающую, сколько времени проработали N комбайнов. Нужно сделать 3 текст бокса. В первом вбивать количество комбайнов, во втором время сколько работает первый комбайн и в последнем сколько общее время работы всех комбайнов. Т.е если вводить количество комбайнов 1, то не должно прибавляться к общему времени 20 минут. И я не могу понять как сделать чтоб 20 минут прибавлялось к времени предыдущего и все это вместе складывалось. Нужно использовать алгоритм for, я чувствую это истина где-то рядом, надеюсь на вашу помощь. Заранее прошу прощения если создал тему не в том разделе, просто завтра уже сдавать, у меня паника 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.12.2012, 20:41
	В условии есть ловушка: Первый комбайн работал m ч., а каждый следующий на 20 минут* больше, чем предыдущий* Надо либо указать, что в Текст2 надо вводить минуты, либо вместо 20 прибавлять 1/3, и тип переменных соотв. 2