The "Simple" language | Contents |
Porgram Sample:
/* Procedure definition */ proc MC(b:bool,n:int) returns (r:int) var t1:int, t2:int, b1:bool; begin if (b != (n>100)) then fail; endif; if b then r = n-10; else t1 = n + 11; b1 = t1>100; t2 = MC1(b1,t1); b1 = t2>100; r = MC1(b1,t2); endif; end /* Main procedure */ var x:int, y:int,b:bool; begin b = x>100; y = MC(b,x); end
The "Simple" language | Contents |