Имеющего минимальный доход

Определение фамилии и инициалов сотрудника,

Подсчет количества сотрудников, занимающих должность, название которой задается вводом

Математическая модель

Ввод названия должности - dol

s = 0

Для i = 1.. k-1, если dol = Должность_i, то s = s + 1

Если s = 0, то нет сотрудников, занимающих указанную должность.

Схема алгоритма

Код приложения

Dim s As Integer, с As Variant, dol As String * 10

dol = InputBox("Введите название должности")

s = 0

' Формирование диапазона обработки списка

r = "c2:c" & Trim(Str(k - 1))

For Each с In Range(r)

If с = Trim(dol) Then s = s + 1

Next

If s = 0 Then

MsgBox "Название должности " & dol & " в списке нет"

Else

MsgBox "Количество сотрудников равно " & s

End If

Математическая модель

Min = К выдаче₁; q = 1 (номер строки);

Для i = 1..k – 1, если К выдаче_i < Min, то Min = К выдаче_i; q = i

Схема алгоритма

Код приложения

Dim s As Single, Min As Single, q As Integer

Min = Range("h2").Value: q = 1

For i = 1 To k - 1

If Range("h1").Offset(i).Value < Min Then

Min = Range("h1").Offset(i).Value: q = i

End If

Next

MsgBox "Минимальный показатель К выдаче - " & Min &

" рубля имеет сотрудник " & Range("A1").Offset(q).Value

Дата добавления: 2014-12-27