Files
tp2-vsl-pds/tests/fragment2/call4if.vsl
2025-03-27 14:18:48 +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