Return to case.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / test

Annotation of 43BSDReno/pgrm/pascal/pdx/test/case.p, revision 1.1.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.