58 lines
981 B
Plaintext
58 lines
981 B
Plaintext
PROTO INT add(x,y)
|
|
|
|
FUNC INT add(x,y,z) {
|
|
INT z,a,b,c
|
|
y := x+y
|
|
RETURN z
|
|
}
|
|
|
|
FUNC INT main(x,y) {
|
|
INT a,b,c,minh
|
|
x := 5
|
|
minh := x * y
|
|
b:=3
|
|
c:=1
|
|
PRINT "coucou, tu peux réparer le visitPrint dans LLVM stp","il manque virgule au milieu", c*5+b
|
|
WHILE b - 1
|
|
DO{
|
|
b := b - 1
|
|
c := c + 1
|
|
WHILE b -1
|
|
DO{
|
|
b:= b - 1
|
|
c:= c + 1
|
|
WHILE b -1
|
|
DO{
|
|
b:= b - 1
|
|
c:= c + 1
|
|
}
|
|
DONE
|
|
}
|
|
DONE
|
|
}
|
|
DONE
|
|
WHILE b - 1
|
|
DO{
|
|
b := b - 1
|
|
c := c + 1
|
|
WHILE b -1
|
|
DO{
|
|
b:= b - 1
|
|
c:= c + 1
|
|
WHILE b -1
|
|
DO{
|
|
b:= b - 1
|
|
c:= c + 1
|
|
}
|
|
DONE
|
|
}
|
|
DONE
|
|
}
|
|
DONE
|
|
IF c -1
|
|
THEN READ a ELSE READ b
|
|
FI
|
|
b:=c+1
|
|
RETURN 4 + 6 * 5 + 2 }
|
|
|
|
PROTO INT type(x,y) |