Return to t19.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t19.p, revision 1.1

1.1     ! root        1: program main(input,output);
        !             2: var
        !             3:        o, z: set of 1..15;
        !             4: begin
        !             5:        o := [1];
        !             6:        z := [];
        !             7:        if o < z then
        !             8:                writeln('o < z');
        !             9:        if o <= z then
        !            10:                writeln('o <= z');
        !            11:        if o = z then
        !            12:                writeln('o = z');
        !            13:        if o <> z then
        !            14:                writeln('o <> z');
        !            15:        if o >= z then
        !            16:                writeln('o >= z');
        !            17:        if o > z then
        !            18:                writeln('o > z');
        !            19:        if z < o then
        !            20:                writeln('z < o');
        !            21:        if z <= o then
        !            22:                writeln('z <= o');
        !            23:        if z = o then
        !            24:                writeln('z = o');
        !            25:        if z <> o then
        !            26:                writeln('z <> o');
        !            27:        if z >= o then
        !            28:                writeln('z >= o');
        !            29:        if z > o then
        !            30:                writeln('z > o');
        !            31:        if o < o then
        !            32:                writeln('o < o');
        !            33:        if o <= o then
        !            34:                writeln('o <= o');
        !            35:        if o = o then
        !            36:                writeln('o = o');
        !            37:        if o <> o then
        !            38:                writeln('o <> o');
        !            39:        if o >= o then
        !            40:                writeln('o >= o');
        !            41:        if o > o then
        !            42:                writeln('o > o');
        !            43:        if z < z then
        !            44:                writeln('z < z');
        !            45:        if z <= z then
        !            46:                writeln('z <= z');
        !            47:        if z = z then
        !            48:                writeln('z = z');
        !            49:        if z <> z then
        !            50:                writeln('z <> z');
        !            51:        if z >= z then
        !            52:                writeln('z >= z');
        !            53:        if z > z then
        !            54:                writeln('z > z');
        !            55: end.

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