ftp.ee.pdx.edu/2014.02.ftp.ee.pdx.edu.tar/ftp.ee.pdx.edu/pub/users/Harry/compilers/p2/tst/primes.out.bak

Text File | 2005-10-11 | 1KB | 132 lines

4    PROGRAM
4    IS
6    TYPE
6    ID    "A"
6    IS
6    ARRAY
6    OF
6    ID    "boolean"
6    ;
7    VAR
7    ID    "N"
7    :
7    ID    "integer"
7    :=
7    INTEGER    0
7    ;
8    ID    "a"
8    :
8    ID    "A"
8    :=
8    ID    "nil"
8    ;
9    ID    "i"
9    ,
9    ID    "j"
9    :
9    ID    "integer"
9    :=
9    INTEGER    0
9    ;
11    BEGIN
13    WRITE
13    (
13    STRING    "Printing the primes from 1 to N;  Please enter N..."
13    )
13    ;
14    LOOP
15    READ
15    (
15    ID    "N"
15    )
15    ;
16    IF
16    ID    "N"
16    >=
16    INTEGER    1
16    THEN
16    EXIT
16    ;
16    END
16    ;
17    WRITE
17    (
17    STRING    "N must be >= 1.  Try again..."
17    )
17    ;
18    END
18    ;
19    ID    "a"
19    :=
19    ID    "A"
19    {
19    ID    "N"
19    +
19    INTEGER    1
19    OF
19    ID    "true"
19    }
19    ;
20    ID    "a"
20    [
20    INTEGER    1
20    ]
20    :=
20    ID    "false"
20    ;
21    FOR
21    ID    "i"
21    :=
21    INTEGER    2
21    TO
21    ID    "N"
21    DIV
21    INTEGER    2
21    DO
22    FOR
22    ID    "j"
22    :=
22    INTEGER    2
22    TO
22    ID    "N"
22    DIV
22    ID    "i"
22    DO
23    ID    "a"
23    [
23    ID    "i"
23    *
23    ID    "j"
23    ]
23    :=
23    ID    "false"
23    ;
24    END
24    ;
25    END
25    ;
26    FOR
26    ID    "i"
26    :=
26    INTEGER    1
26    TO
26    ID    "N"
26    DO
27    IF
27    ID    "a"
27    [
27    ID    "i"
27    ]
27    THEN
28    WRITE
28    (
28    ID    "i"
28    )
28    ;
29    END
29    ;
30    END
30    ;
32    END
32    ;