В таблице 1 приведена информация о работниках линейно-аппаратного цеха телеграфа. Составьте схему алгоритма и программу решения задачи, предусмотреть вывод результата в текстовой форме
- ID: 03808
- 5 страниц
Содержание:
1.Задание к лабораторной работе
В таблице 1 приведена информация о работниках линейно-аппаратного цеха телеграфа. Составьте схему алгоритма и программу решения задачи, предусмотреть вывод результата в текстовой форме.
Таблица 1. .
Определить средний возраст мужчин, работающих в цехе.
2.Схема алгоритма решения задачи
Начало
Конец
year, wm
count=0
sum=0
For i=0 to 9
wm(i)=”м”
Sum=sum+year(i)
count=count+1
avg=sum/count
avg
3.Программа на языке Visual Basic
В программе используются следующие переменные:
year(9) – массив, содержащий возраст работников
wm(9) - массив, содержащий пол работников
sum - сумма возрастов мужчин, работающих в цехе
count – количество мужчин, работающих в цехе
avg – средний возраст мужчин, работающих в цехе.
Private Sub Command1_Click()
Dim year(9), wm(9)
Dim sum, avg, count, i
year(0) = 21
year(1) = 52
year(2) = 47
year(3) = 34
year(4) = 44
year(5) = 28
year(6) = 20
year(7) = 50
year(8) = 39
year(9) = 26
wm(0) = "ж"
wm(1) = "м"
wm(2) = "м"
wm(3) = "м"
wm(4) = "м"
wm(5) = "ж"
wm(6) = "м"
wm(7) = "ж"
wm(8) = "ж"
wm(9) = "м"
sum = 0
count = 0
For i = 0 To 9
If (wm(i) = "м") Then
sum = sum + year(i)
count = count + 1
End If
Next i
avg = sum \ count
MsgBox ("Средний возраст мужчин = " & avg)
End Sub
4.Результаты выполнения работы
[image]
При нажатии на кнопку “Показать результат”, получаем следующее: