aboutsummaryrefslogtreecommitdiff
path: root/tests/ii/arithmetic/program.cps
blob: e13381bc710596908d045847a77f8b028b5a7042 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

DECLARE Count : INTEGER
DECLARE Index : INTEGER
DECLARE A : INTEGER
DECLARE B : INTEGER
DECLARE Small : INTEGER
DECLARE Sign : INTEGER
DECLARE Band : INTEGER
INPUT Count
FOR Index <- 1 TO Count
    INPUT A
    INPUT B
    Small <- A MOD 1000001
    IF A < 0 THEN
        Sign <- -1
    ELSE
        IF A = 0 THEN
            Sign <- 0
        ELSE
            Sign <- 1
        ENDIF
    ENDIF
    CASE OF Small
        -10 TO 10 : Band <- 2
        0 : Band <- 99
        OTHERWISE : Band <- 3
    ENDCASE
    OUTPUT A < B, ":", A DIV B, ":", A MOD B, ":", Small + B, ":", Small - B, ":", Small * B, ":", Sign, ":", Band
NEXT Index