Лабы по КП / Лаба 5
.docФедеральное агентство по образованию
Государственное образовательное учреждение
Высшего профессионального образования
«Государственный Университет Управления»
Институт Информационных Систем Управления
Кафедра компьютерных технологий
Лабораторная работа № 5
По дисциплине «Компьютерная подготовка»
4 вариант
Выполнила:
студентка ИНиМЭ,
Проверил:
Канаков А.Г.
МОСКВА 2005
Заданы следующие структуры массива N записей, все данные, по полям которых не упорядочены: ТАБЕЛЬНЫЙ НОМЕР, ФАМИЛИЯ, ПРОФЕССИЯ, ВЫПОЛНЕНИЕ ПЛАНА, РИТМИЧНОСТЬ. По каждой профессии определить фамилии рабочих, выполнивших план, но не ритмично.
Option Explicit
Private Type ZAP
TN As Byte
FAM As String
PROF As String
VP As String
RITM As Byte
End Type
Private Sub Command1_Click()
Dim I As Integer, J As Integer
Dim N As Integer
Dim K As Integer
Dim SP As String
Dim MAS() As ZAP
Dim R() As String
Dim L As Integer
N = InputBox("Введите количество записей N=")
ReDim MAS(1 To N) As ZAP
ReDim R(1 To N) As String
For I = 1 To N
MAS(I).TN = InputBox("Введите табельный номер" + Str(I) + "-го сотрудника")
MAS(I).FAM = InputBox("Введите фамилию" + Str(I) + "-го сотрудника")
MAS(I).PROF = InputBox("Введите профессию" + Str(I) + "-го сотрудника")
MAS(I).VP = InputBox("Введите выполнение плана" + Str(I) + "-м сотрудником: выполнил-1; не выполнил-0")
MAS(I).RITM = InputBox("Введите ритмичность" + Str(I) + "-го сотрудника:ритмично-1; неритмично-0")
Next I
For I = 1 To N
List1(0).List(I - 1) = MAS(I).TN
List1(1).List(I - 1) = MAS(I).FAM
List1(2).List(I - 1) = MAS(I).PROF
List1(3).List(I - 1) = MAS(I).VP
List1(4).List(I - 1) = MAS(I).RITM
Next I
K = 0
For I = 1 To N
For J = 1 To K
If MAS(I).PROF = R(J) Then GoTo 1
Next J
K = K + 1: R(K) = MAS(I).PROF
1 Next I
For J = 1 To K
L = 0
SP = SP + R(J) + " "
For I = 1 To N
If R(J) = MAS(I).PROF And MAS(I).VP = 1 And MAS(I).RITM = 0 Then SP = SP + MAS(I).FAM + " ": L = L + 1
Next I
If L = 0 Then SP = SP + vbCrLf
Next J
Text1.Text = SP
End Sub
Private Sub Command2_Click()
End
End Sub