Помогите пожалуйста доработать код
само задание звучит так
В области n районов. Известны количество жителей (в тыс. чел.) и площадь (в км2) каждого района. Определить среднюю плотность населения по области в целом.
сейчас код не совсем верный, нужно чтобы программа рассчитала плотность населения каждого района, потом их всех сложила и разделила на количество районов
помогите пожалуйста, буду очень очень благодарен, спасибо
В области n районов. Известны количество жителей (в тыс. чел.) и площадь (в км2) каждого района. Определить среднюю плотность населения по области в целом.
Код:
Private Sub Command1_Click()
Dim n As Integer, i As Integer, x As Integer, s As Single, k As Integer, m As Integer
n = InputBox("Ввести количество районов")
For k = 1 To n
x = InputBox("ввести количество жителей")
i = InputBox("ввести площадь")
m = x / i
s = s + m
Next
Text1.Text = s
End Sub
Dim n As Integer, i As Integer, x As Integer, s As Single, k As Integer, m As Integer
n = InputBox("Ввести количество районов")
For k = 1 To n
x = InputBox("ввести количество жителей")
i = InputBox("ввести площадь")
m = x / i
s = s + m
Next
Text1.Text = s
End Sub
помогите пожалуйста, буду очень очень благодарен, спасибо
Код:
Dim RegNum As Integer
Dim AveragePopulationDensity As Double
Dim regPopulation As Integer
Dim regSquare As Double
RegNum = InputBox("Number of regions")
Dim ii As Integer
For ii = 1 To RegNum
regPopulation = InputBox("Population of region " & ii)
regSquare = InputBox("Square of region " & ii)
AveragePopulationDensity = AveragePopulationDensity + regPopulation / regSquare
Next
AveragePopulationDensity = AveragePopulationDensity / RegNum
Dim AveragePopulationDensity As Double
Dim regPopulation As Integer
Dim regSquare As Double
RegNum = InputBox("Number of regions")
Dim ii As Integer
For ii = 1 To RegNum
regPopulation = InputBox("Population of region " & ii)
regSquare = InputBox("Square of region " & ii)
AveragePopulationDensity = AveragePopulationDensity + regPopulation / regSquare
Next
AveragePopulationDensity = AveragePopulationDensity / RegNum
Совет - не экономьте на понятности имени переменной.
Вы запутались, именно потому, что сделали абстракцию, сферического коня в вакууме.
:-)
И типы данных - никогда количество реальных предметов не должно быть целым числом - пожалуй, даже в этом примере.
Только индексы (номера строк итп).
Вы запутались, именно потому, что сделали абстракцию, сферического коня в вакууме.
:-)
И типы данных - никогда количество реальных предметов не должно быть целым числом - пожалуй, даже в этом примере.
Только индексы (номера строк итп).
Вам конечно спасибо большое, но очень замудренно написано у Вас
изучаем ВМ очень поверхностно, так как это далеко не профильный предмет, поэтому надо по простому написать
но уже не актуально, сам додумал
но все равно спасибо Вам
изучаем ВМ очень поверхностно, так как это далеко не профильный предмет, поэтому надо по простому написать
но уже не актуально, сам додумал
но все равно спасибо Вам