Составить программу расчёта величины программируемого урожая (ц/га) по формуле - VB

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

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

Программа должна быть написана в двух вариантах: 1)использовать For ... To.. Step, Next 2) использовать IF... GO TO Составить программу расчёта величины программируемого урожая (ц/га) по формуле Y=(Q*KQ)/(1000*g) Где Q – величина фотосинтетически активной радиации (ФАР) за период вегетации, млн. ккал/га; kQ – коэффициент усвоения ФАР посевами, %; g – калорийность единицы урожая биомассы, ккал/га. Величина ФАР изменяется в пределах от 1800 до 2400 млн. ккал/га с шагом 100 млн. ккал. 1 вариант
2 вариант

Решение задачи: «Составить программу расчёта величины программируемого урожая (ц/га) по формуле»

textual
Листинг программы
Option Explicit
Dim Y As Double, Q As Long, KQ As Double, g As Double
Private Sub Form_Load()
    AutoRedraw = True
    KQ = Val(Replace(InputBox("Введите значение KQ", , 10), ",", "."))
    g = Val(Replace(InputBox("Введите значение g", , 0.9), ",", "."))
    For Q = 1800 To 2400 Step 100
       Y = (Q * KQ) / (1000# * g)
       Print " Q = " & Q, "Y = " & Round(Y, 3)
    Next Q
End Sub

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


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

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

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