-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathTEST - error caracter extraño.txt
89 lines (71 loc) · 1.19 KB
/
TEST - error caracter extraño.txt
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
(*Example programm, for our custom compiler*)
(*Here we check the grammar and sintax of the compiler*)
(*Declarations*)
UINT ?var1, ~var2, ^var3, [count;
FUNCTION fun1 (UINT aux1; )
BEGIN
UINT var9;
PRINT ('inside fun 1');
var9=0;
var9=aux1+2+10/2;
RETURN (var9);
END ;
FUNCTION fun2 ( UINT aux2; )
BEGIN
UINT var29;
PRINT ('inside fun 2');
var29=1+2*3-20/5+6*7-18+9;
RETURN (var29);
END ;
FUNCTION fun3 ( UINT aux2; )
BEGIN
UINT none;
none=0;
PRINT ('inside function call by FOR');
RETURN (none);
END ;
(*Executions*)
(*Assigns*)
var1=0;
var2=2;
var3=1;
(*Several IFs and function calls*)
var1 = fun1(var2);
IF ( var1==9 ) THEN
PRINT ('dio 9');
ELSE
PRINT ('no dio 9');
;
var1 = fun1(var1);
IF ( var19==9 ) THEN
PRINT ('dio 9');
ELSE
PRINT ('no dio 9');
;
var2=fun2(var1);
IF ( var2==36 ) THEN
PRINT ('dio 36');
ELSE
PRINT ('no dio 36');
;
(*Iteration, 3 times*)
FOR ( count = var3 ; count <= 1+1+1 )
BEGIN
UINT var4;
var4=2;
fun3 (var4);
END
;
(*FOR and IF, two times*)
var3=3;
FOR ( count = var3 ; count <= 16/4*1 )
BEGIN
UINT var9;
var9=22;
IF ( var9==22 ) THEN
PRINT ('dio 22');
ELSE
PRINT ('no dio 22');
;
END
;