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

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

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

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

Циклические алгоритмы

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

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

textual
Листинг программы
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

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


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

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

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