1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
TYPE Student
DECLARE Score : INTEGER
DECLARE Name : STRING
DECLARE Passed : BOOLEAN
DECLARE Grade : CHAR
DECLARE Average : REAL
DECLARE Native : C_INT
ENDTYPE
CLASS Box
Value : INTEGER
Details : Student
ENDCLASS
TYPE StudentPtr = ^Student
DECLARE Scores : ARRAY[1:3] OF INTEGER
DECLARE Grid : ARRAY[-1:0,2:3] OF INTEGER
DECLARE Students : ARRAY[1:2] OF Student
DECLARE Item : Box
DECLARE P : StudentPtr
DECLARE j : INTEGER
FOR j <- 1 TO 3
INPUT Scores[j]
NEXT j
INPUT Grid[-1,3]
INPUT Students[2].Score
INPUT Students[2].Name
INPUT Students[2].Passed
INPUT Students[2].Grade
INPUT Students[2].Average
INPUT Students[2].Native
INPUT Item.Value
INPUT Item.Details.Score
P <- ^Students[2]
INPUT P^.Score
OUTPUT Scores[1], ":", Scores[2], ":", Scores[3], ":", Grid[-1,3]
OUTPUT Students[2].Score, ":", Students[2].Name, ":", Students[2].Passed, ":", Students[2].Grade
OUTPUT Students[2].Average = 2.5, ":", Students[2].Native
OUTPUT Item.Value, ":", Item.Details.Score
FUNCTION NextIndex() RETURNS INTEGER
OUTPUT "index evaluated"
RETURN 1
ENDFUNCTION
INPUT Scores[NextIndex()]
OUTPUT Scores[1]
TRY
INPUT Scores[4]
CATCH
OUTPUT "bounds caught"
ENDTRY
DECLARE Unset : StudentPtr
TRY
INPUT Unset^.Score
CATCH
OUTPUT "pointer caught"
ENDTRY
INPUT Scores[1]
OUTPUT Scores[1]
|
