-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathMiniAlgo.txt
More file actions
59 lines (49 loc) · 897 Bytes
/
MiniAlgo.txt
File metadata and controls
59 lines (49 loc) · 897 Bytes
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
57
58
59
LANGAGE Mini_Algo
VAR
hight : INT;
isColored : BOOL;
var : INT;
angle1 = -2 ,angle2 = -2 , angle3 = -2: CONST INT;
test1 , test2 , test3 : CONST FLOAT; {CONST NON DECLARE}
max : INT;
BOOL Function Surface
VAR
max2 : INT;
pi = 3.14 : CONST FLOAT;
BEGIN
max = max * max;
Return max;
END
BOOL Function Surface2
VAR
bbb : INT;
piii = 3.14 : CONST FLOAT;
BEGIN
max = max * max;
Return max;
END
BOOL Function Surface3
VAR
oooo : INT;
p = 3.14 : CONST FLOAT;
BEGIN
max = max * max;
Return max;
END
BEGIN
{This
is a multiple
line
comment}
max = max;
test1 = 5;
While (max > 2)
BEGIN
max = 5 / 1;
END
If (6 <= 2)
BEGIN
max = 5 / 0;
max = -5;
END
END