Сколько времени проработали 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 к предыдущему, ужас

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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .

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

	Сколько времени проработали N комбайнов, если каждый следующий работал на 20 минут больше, чем предыдущий 24.12.2012, 20:16. Показов 1716. Ответов 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

Опции темы