Создан заказ №2031210
5 мая 2017
Составить программу расчета уровня внесения органических удобрений (т) необходимого для восстановления потерь гумуса
Как заказчик описал требования к работе:
Контрольная работа. Только вопросы: 30, 45, 91 и задача 9.
Фрагмент выполненной работы:
Составить программу расчета уровня внесения органических удобрений (т), необходимого для восстановления потерь гумуса, по формуле:
Увн=ΔСг*Нв*S,
где ΔСг − потери гумуса на 1 га, т; Нв − норма внесения в почву навоза для компенсации потерь 1 т гумуса, т; S − площадь сельскохозяйственных угодий с пониженным плодородием, га.
Площадь сельскохозяйственных угодий с пониженным плодородием изменяется в пределах от 1200 до 2500 га с шагом 100 га (ΔСг = 8,7 т, Нв = 5 т).
Решение:
В данном примере функцией является величина уровня внесения органических удобрений, а аргументом − площадь сельскохозяйственных угодий с пониженным плодородием. (работа была выполнена специалистами Автор 24)
Для составления программы перейдем от символов в задаче к символам языка Visual BASIC: Увн – Y, ΔСг – C, Нв – H, S - S.
1. Программа расчета уровня внесения органических удобрений с использованием оператора условного перехода имеет вид:
Show
Print "РАСЧЕТ УРОВНЯ ВНЕСЕНИЯ ОРГАНИЧЕСКИХ УДОБРЕНИЙ "
C = InputBox(“Сг = “)
H = InputBox(“Нв = “)
Let S = 1200
Metka
Let Y=C*H*S
Print Y, S
Let S = S + 100
If S <= 2500 Then Go To Metka
В программе оператор Show делает результаты решения задачи видимыми.
Оператор Print выводит на экран дисплея название программы.
Оператор InputBox осуществляет ввод числовых значения переменной C и H (потери гумуса на 1 га, т; и нормы внесения в почву навоза для компенсации потерь 1 т гумуса, т;).
Оператор Let присваивает переменной c значение 1200 (нижний предел изменения площади сельскохозяйственных угодий с пониженным плодородием).
Следующий оператор Let вычисляет значение переменной Y (уровень внесения органических удобрений).
Оператор Print выводит на экран дисплея значения переменных S и Y (площадь сельскохозяйственных угодий с пониженным плодородием и уровень внесения органических удобрений).
Оператор Let увеличивает значение переменной S на шаг 100.
Оператор If осуществляет разветвление вычислительного процесса: если S ≤ 2500, то управление передается метке Metka, в противном случае − на конец программы.
2. При использовании операторов цикла программа принимает вид:
Show
Print "РАСЧЕТ УРОВНЯ ВНЕСЕНИЯ ОРГАНИЧЕСКИХ УДОБРЕНИЙ "
C = InputBox(“Сг = “)
H = InputBox(“Нв = “)
For S = 1200 To 2500 Step 100
Let Y=C*H*S
Print Y, S
Next S
Цикл в программе организуется с помощью операторов заголовка цикла For...To..Step и конца цикла Next...Посмотреть предложения по расчету стоимости
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
6 мая 2017
Заказ завершен, заказчик получил финальный файл с работой
5
Составить программу расчета уровня внесения органических удобрений (т) необходимого для восстановления потерь гумуса.docx
2019-04-20 17:32
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Большое спасибо. Работа выполнена даже быстрее чем был поставлен срок. Мне поставили отлично.
Хочешь такую же работу?
300 ₽
