Return to case.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / pdx / test

Annotation of 43BSDTahoe/ucb/pascal/pdx/test/case.p, revision 1.1

1.1     ! root        1: program casetest(input, output);
        !             2: var c : char;
        !             3:        s : 0..1000;
        !             4:        i : integer;
        !             5: begin
        !             6:        c := 'a';
        !             7:        case c of
        !             8:                'b': writeln('b');
        !             9:                'c': writeln('c');
        !            10:                'a': writeln('a');
        !            11:        end;
        !            12:        s := 3;
        !            13:        case s of
        !            14:                5: writeln('5');
        !            15:                3: writeln('3');
        !            16:                7: writeln('7');
        !            17:        end;
        !            18:        i := 1001;
        !            19:        case i of
        !            20:                0: writeln('0');
        !            21:                -1: writeln('-1');
        !            22:                1001: writeln('1001');
        !            23:                -1001: writeln('-1001');
        !            24:        end;
        !            25: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.