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

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.