repo.or.cz
/
williamcminus.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
finished 19 (not fully tested...)
[williamcminus.git]
/
assign6
/
caseerrors.txt
blob
e86a0cd6f34bec8395ed56c3cd61a5b8f1841bc5
1
BEGIN {CASE syntax errors}
2
i := 0; ch := 'x'; str := 'y';
3
4
CASE i OF
5
1 2 3: j := i;
6
4,1,5 IF j = 5 THEN k := 9;
7
END;
8
9
CASE ch1 OF
10
'x', 'hello', 'y': str := 'world';
11
'z', 'x': str := 'bye'
12
END
13
END.