Составить программу расчёта величины программируемого урожая (ц/га) по формуле - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д