Компилятор и вм милана
This commit is contained in:
14
lab4/cmilan/test/invert.mil
Normal file
14
lab4/cmilan/test/invert.mil
Normal file
@@ -0,0 +1,14 @@
|
||||
BEGIN
|
||||
x := READ;
|
||||
x := -x;
|
||||
|
||||
WRITE(-x);
|
||||
|
||||
IF -x > 0 THEN x := 1 FI;
|
||||
|
||||
x := x + -1;
|
||||
x := x - -x;
|
||||
|
||||
x := x -1
|
||||
END
|
||||
|
||||
Reference in New Issue
Block a user