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

@Кристюня · Регистрация: 29.11.2010

Студворк — интернет-сервис помощи студентам

Программа должна быть написана в двух вариантах:

1)использовать For ... To.. Step, Next
2) использовать IF... GO TO

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

Y=(Q*KQ)/(1000*g)

Где Q – величина фотосинтетически активной радиации (ФАР) за период вегетации, млн. ккал/га;

kQ – коэффициент усвоения ФАР посевами, %;

g – калорийность единицы урожая биомассы, ккал/га.

Величина ФАР изменяется в пределах от 1800 до 2400 млн. ккал/га с шагом 100 млн. ккал.

1 вариант

Visual Basic
1
2
3
4
5
6
7
8
9
dim Y As Double, Q As Integer, KQ As Double, g As Double
Private Sub Form_Load()
For Q=1800 To 2400 Step 100
KQ=InputBox("Введите значение KQ")
g=InputBox("Введите значение g")
Y=(Q*KQ)/(1000*q)
Print Y
Next Q
End Sub

2 вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
dim Y As Double, Q As Integer, KQ As Double, g As Double
Private Sub Form_Load()
KQ=InputBox("Введите значение KQ")
g=InputBox("Введите значение g")
jumplabel1
Y=(Q*KQ)/(1000*q)
Print Y
Q=Q+100
If Q<=2400 Then GoTo jamplabel1
else
End Sub

SoftIce · 04.02.2015, 10:32

Во втором варианте после 4-ой строки должно быть Q=1800 по-моему

И else уберите

Добавлено через 3 минуты

Сообщение от Кристюня

jumplabel1

После этого поставьте двоеточие.

Добавлено через 44 секунды

Сообщение от Кристюня

jumplabel1

Сообщение от Кристюня

jamplabel1

Видите разницу?

Добавлено через 6 минут

Сообщение от Кристюня

Y=(Q*KQ)/(1000*q)

Последняя переменная должна быть g

@Кристюня · 04.02.2015, 10:33 **[ТС]**

ага, пропустила

SoftIce · 04.02.2015, 10:38

Лучше написать так

Visual Basic
1
Q As Long

Добавлено через 1 минуту
И еще, у Вас не напечатается так ничего из этого события.
Нужно добавить строчку

Visual Basic
1
AutoRedraw = True

Добавлено через 4 минуты
Короче, вот 2-й вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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), ",", "."))
    Q = 1800
jamplabel1:
    Y = (Q * KQ) / (1000# * g)
    Print " Q = " & Q, "Y = " & Round(Y, 3)
    Q = Q + 100
    If Q <= 2400 Then GoTo jamplabel1
End Sub

Сейчас первый посмотрю

@Кристюня · 04.02.2015, 10:40 **[ТС]**

а куда добавить и в каком варианте. Просто с basic дело имею первый раз, ничего особо не мыслю

SoftIce · 04.02.2015, 10:42

Вот первый

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
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

@Кристюня · 04.02.2015, 10:47 **[ТС]**

И самый тупой вопрос. Я код писала просто руками по примеру. В какой программе компилировать?

SoftIce · 04.02.2015, 10:53

А что у Вас есть?

Из Visual Basic-ов ?

@Кристюня · 04.02.2015, 10:55 **[ТС]**

Visual Basic 6.0
есть возможность поставить Studio

SoftIce · 04.02.2015, 11:03

Сообщение от Кристюня

Visual Basic 6.0

Вот это самое оно

SoftIce · 04.02.2015, 11:04

Вот Вам, разбирайтесь.

@Кристюня · 04.02.2015, 11:09 **[ТС]**

спасибо) очень помогли)

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

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

Решение

Решение

Решение

@Кристюня 2 / 2 / 1 Регистрация: 29.11.2010 Сообщений: 32
	04.02.2015, 10:33 [ТС]
	ага, пропустила 0

@Кристюня 2 / 2 / 1 Регистрация: 29.11.2010 Сообщений: 32
	04.02.2015, 10:40 [ТС]
	а куда добавить и в каком варианте. Просто с basic дело имею первый раз, ничего особо не мыслю 0

@Кристюня 2 / 2 / 1 Регистрация: 29.11.2010 Сообщений: 32
	04.02.2015, 10:47 [ТС]
	И самый тупой вопрос. Я код писала просто руками по примеру. В какой программе компилировать? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	04.02.2015, 10:53
	А что у Вас есть? Из Visual Basic-ов ? 0

@Кристюня 2 / 2 / 1 Регистрация: 29.11.2010 Сообщений: 32
	04.02.2015, 10:55 [ТС]
	Visual Basic 6.0 есть возможность поставить Studio 0

@Кристюня 2 / 2 / 1 Регистрация: 29.11.2010 Сообщений: 32
	04.02.2015, 11:09 [ТС]
	спасибо) очень помогли) 0