Вопрос № 151222: Здравствуйте! Помогите написать программу на QBASIC для следующей задачи: В автопарке при обработке путевых листов получено 2 массива. Таблица S(n) пробега автомашин и B(n) расхода бензина Найти: 1) суммарный пробег и суммарный расход бе...
Вопрос № 151.222
Здравствуйте! Помогите написать программу на QBASIC для следующей задачи:
В автопарке при обработке путевых листов получено 2 массива. Таблица S(n) пробега автомашин и B(n) расхода бензина Найти: 1) суммарный пробег и суммарный расход бензина 2) средний пробег и средний расход бензина 3)максимальный и манимальный пробег и номер выезда 4)средний расход бензина на 100 км
Отвечает: Grigory
Здравствуйте, Кочеткова Анастасия! Для решения данной задачи, Вам надо организовать цикл, в котором вы будете проходить по элементам массива, например S(n) и делать необходимые подсчеты. Например, вот так:
Dim i As Integer = 0 Dim probeg_total as Decimal = 0.00 For i = 0 To i = n-1 Step 1 probeg_total = probeg_total + S(i) Next i
Чтобы подсчитать средний пробег, нужно весь пробег поделить на длину массива: Dim probeg_average as Decimal = probeg_total/n
По такому
же принципу рассчитываете суммарный и средний расходы бензина
Для того, чтобы узнать максимальный и минимальный пробеги, нужно в цикле сравнивать один элемент массива со следующими. Как только сравниваемый элемент массива окажется больше последующего, запоминаем тот, с которым сравнивали в переменную, и дальше сравниваем уже его с последующими элементами массива. Если ни один из последующих элементов массива не окажется меньше, значит этот элемент является минималь
ным пробегом. По той же схеме ищете максимальный пробег.
Насчет номера выезда не уверен, но если предположить, что данные заносятся в массивы в том же порядке, что и выезды, то номер выезда будет соответствовать позиции элемента в массиве.
Чтобы подсчитать средний расход бензина на 100км, нужно средний расход умножить на 100 и поделить на суммарный пробег
Удачи!
--------- Если хочешь быть счастливым - будь им! (Козьма Прутков)
Ответ отправил: Grigory (статус: Практикант)
Ответ отправлен: 20.11.2008, 20:43
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 236142 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
