В таблице 1 приведена информация о работниках линейно-аппаратного цеха телеграфа. Составьте схему алгоритма и программу решения задачи, предусмотреть вывод результата в текстовой форме

  • ID: 03808 
  • 5 страниц
200 рубСкачать

гарантия низкой цены

Form1.frm

отчет.docx

Проект1.vbp

Проект1.vbw

Содержание:


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]

При нажатии на кнопку “Показать результат”, получаем следующее: