1
// 0478/22 Feb/Mar 2018
2

3
// StudentSubjects储存每个学生报的班，格式：[学生序号，学生选的第几节课]
4
DECLARE StudentSubjects: ARRAY[1:60, 1:2] OF INTEGER
5
DECLARE StudentNames: ARRAY[1:60] OF STRING  // 储存所有学生的名字
6
DECLARE AllSubjects: ARRAY[1:5] OF STRING  // 储存每个Subject的名字
7
DECLARE SubjectStu: ARRAY[1:5, 1:60] OF STRING  // 储存每个班里学生的名字，格式：[课程索引，学生姓名]
8
DECLARE SubjectsStuNo: ARRAY[1:5] OF INTEGER  // 储存每个班里学生的数量
9
DECLARE FullStudents: ARRAY[1:120] OF STRING  // 储存全部多出来的学生
10
DECLARE TotalSparePlace: INTEGER  // 储存班级中空位的总数
11
DECLARE TotalUnallocatedStu: INTEGER  // 储存多出来的学生的总数
12

13
DECLARE i, j, k, Counter: INTEGER  // 意义不大的一些临时变量
14
DECLARE line: STRING  // 意义不大的一些临时变量
15

16

17
// 设置每个班的人数上限，当成常量来用（问就是不会定义常量）
18
DECLARE SUBSCRIBE_LIMIT: INTEGER
19
SUBSCRIBE_LIMIT <- 30
20

21
// 初始化变量
22
AllSubjects[1] <- "Computer Science"
23
AllSubjects[2] <- "Physics"
24
AllSubjects[3] <- "Chemistry"
25
AllSubjects[4] <- "History"
26
AllSubjects[5] <- "Geography"
27

28
// 将每个班级中的人数设为0
29
FOR i <- 1 TO 5
30
    SubjectsStuNo[i] <- 0
31
NEXT i
32

33
// 初始化空位人数和未分配人数
34
TotalSparePlace <- 0
35
TotalUnallocatedStu <- 0
36

37
OUTPUT "***TASK ONE***"
38

39
// Task 1
40

41
// 依次询问60名学生
42
FOR i <- 1 TO 60
43
  // 读取学生的姓名
44
    OUTPUT "Enter the name of student ", i
45
  INPUT StudentNames[i]
46

47
  // 询问他们要选什么课
48
    FOR j <- 1 TO 2
49
      // 读取课程编号
50
        OUTPUT "Enter the subject ", j, " for the student ", i
51
        INPUT StudentSubjects[i,j]
52

53
        // 将课程编号作为SubjectsStuNo的索引，将那个班级的人数+1
54
        SubjectsStuNo[StudentSubjects[i,j]] <- SubjectsStuNo[StudentSubjects[i,j]] + 1
55

56
    // 添加学生到SubjectStu中
57
    //
58
    // 值得注意的点：这里取了个巧，将SubjectsStuNo[StudentSubjects[i,j]]————也就是学生选的那门课
59
    // 的人数作为SubjectStu的第二个索引。因为当前那门科目的人数正好是第几个选那门课的人，所以可以直接用
60
    // 那门课的人数作为索引将当前的学生添加到SubjectStu这个数组中。
61
    //
62
        SubjectStu[StudentSubjects[i,j], SubjectsStuNo[StudentSubjects[i,j]]] <- StudentNames[i]
63
    NEXT j
64
NEXT i
65

66
// 输出每门科目的人数
67
//
68
// 用一个类型为String的数组和一个类型为Integer的“互相对应”的数组可以同时使用，省去单独定义每个科目的数组的
69
// 麻烦。“互相对应”就是说，比如说这AllSubjects在索引为2的位置上为'Physics'，那么在SubjectsStuNo索引为2
70
// 的位置上储存的正好是选择Physics科目的人数。
71
//
72
FOR i <- 1 TO 5
73
    OUTPUT "The number of students in ", AllSubjects[i], " is ", SubjectsStuNo[i]
74
NEXT i
75

76
OUTPUT ""
77
OUTPUT "***TASK TWO***"
78
OUTPUT ""
79

80
// Task 2
81

82
// 有个人和我说Task 2中要输出一个表格，所以我就写了个表格头，但是我后来查了只需要用list列表的形式输出信息就行
83
// 了。不过这个既然写了就不改了，应该没有什么大问题。
84
OUTPUT "Subject    Number of Students    Names"
85
Counter <- 0  // Counter用于储存未分配学生的数量，以后会用
86

87
// 遍历5个科目，为每门科目统计学生数量和学生姓名
88
FOR i <- 1 TO 5
89
  // 如果要连接两个字符串的话用符号'&'，例如'photo'&'synthesis'等于'photosynthesis'
90
    line <- AllSubjects[i] & "    " & SubjectsStuNo[i] & "    "
91

92
  // 从SubjectsStuNo中获取当前科目的人数，如果超过20人则标记为满员
93
    IF SubjectsStuNo[i] > 20 THEN  // Task 3
94
      // 将当前班级中的空位加到空位的总数上
95
        TotalSparePlace <- TotalSparePlace + SubjectsStuNo[i] - 20
96
    ENDIF
97

98
  // 将这个科目的人数储存到临时变量k中
99
    k <- SubjectsStuNo[i]
100
    FOR j <- 1 TO k  // 循环总数为当前科目的人数
101
        line <- line & SubjectStu[i,j] & " "  // 将参加这个课的学生添加到表格之中
102

103
        // 检测当前学生是否超额
104
        IF j > SUBSCRIBE_LIMIT THEN
105
            Counter <- Counter + 1  // 将超额人数+1
106
            FullStudents[Counter] <- SubjectStu[i,j]  // 将超额学生的名字储存到数组中
107
            TotalUnallocatedStu <- TotalUnallocatedStu + 1  // Task 3
108
        ENDIF
109
    NEXT j
110

111
  // 如果报名人数超额了则在line前标记一下
112
    IF SubjectsStuNo[i] > SUBSCRIBE_LIMIT THEN
113
        line <- "(Oversubscribed) " & line
114
    ENDIF
115

116
    // 输出
117
    OUTPUT line
118
NEXT i
119

120
OUTPUT ""
121

122
// 输出需要重新选课（或者说是超额了的学生）
123
OUTPUT "These are the students who need to change a subject:"
124
FOR i <- 1 TO Counter  // Counter中存有为未配学生的数量，循环次数视此数量而定
125

126
  // FullStudent中可能会同时存有两个相同的学生名称，这种情况是因为这个学生选的两个课都超额了。为了避免直接
127
  // 遍历列表时输出两次同样的学生，这个循环里在遇到一个学生时检查有没有重复的学生，如果有重复的学生的话会将
128
  // 这个学生的设置为''（空值），这样一来只有FullStudents[i]（当前学生）不为空值时才输出这名学生的信息。
129

130
  // 检测当前内容是否为空
131
    IF FullStudents[i] <> "" THEN
132
        k <- 2  // 总共选的课
133
        line <- FullStudents[i]  // 用变量line暂时储存学生的名字
134

135
        // 重新遍历数组FullStudents，试图找出重复的名字。(1 TO i)里的内容必定检测过，所以在检测部分中没必
136
        // 要再次检测，而(i TO Counter)是没有检测过的内容，所以只需要遍历(i TO Counter)就行了。
137
        FOR j <- i TO Counter
138
            IF line = FullStudents[j] THEN
139
                k <- k -1  // 如果检测到数组中有当前学生，就给他的能上的课-1
140
                FullStudents[j] <- ""  // 将检测过的元素设置为空
141
            ENDIF
142
        NEXT j
143

144
    // 输出信息
145
        OUTPUT line，"'s allocated group number:", k
146
    ENDIF
147
NEXT i
148

149
OUTPUT ""
150
OUTPUT "**TASK THREE**"
151
OUTPUT ""
152

153
// Task 3
154

155
// 总共有的空位和总共未报课的学生已经在前面的循环中计算出来了，这边只要再算一下它们的差值，判断满足与否就行
156
IF TotalSparePlace - TotalUnallocatedStu < 0 THEN
157
    OUTPUT "The number of spare places is enough to cover the unallocated student!!!"
158
ELSE
159
    OUTPUT "The number of spare places is NOT enough to cover the unallocated student :("
160
ENDIF