Files
tp2-vsl-pds/tests/testlevel2/level2if1.vsl
Dimitri Lajou 7114c0e978 Initial commit
2025-03-21 17:26:31 +01:00

8 lines
205 B
Plaintext

PROTO VOID compare(x,y)
FUNC VOID main() { compare(2,1) compare(1,2) compare(1,1) }
FUNC VOID compare(x,y) IF x-y THEN PRINT x, " est different de ",y,"\n"
ELSE PRINT x, " est egal a ",y,"\n"
FI