Return to wnj.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/wnj.p, revision 1.1.1.1

1.1       root        1: program testset (output);
                      2: 
                      3: { try to figure out why sets don't work }
                      4: 
                      5: const
                      6:        firstel = -1; lastel = 80;
                      7: type
                      8:        eltype = firstel..lastel;
                      9:        settype = set of eltype;
                     10: var
                     11:        tset: settype;
                     12: 
                     13: procedure elements (someset: settype);
                     14:        { print the elements of a set}
                     15:        var i: eltype;
                     16: 
                     17:        begin
                     18:                writeln;
                     19:                writeln ('in elements');
                     20:                for i := firstel to lastel do
                     21:                        if i in someset then writeln ('member:',i)
                     22:        end; {elements}
                     23: 
                     24: begin
                     25:        tset := [];             elements (tset);
                     26:        tset := [23,45];        elements (tset);
                     27: 
                     28:        if 23 in tset then writeln ('ok'); {to eliminate the possibility that
                     29:                                                the problem arises from passing
                     30:                                                a set as a parameter}
                     31: 
                     32:        tset := tset + [firstel]; elements (tset);
                     33:        tset := tset + [lastel];elements (tset);
                     34:        tset := [];             elements (tset)
                     35:        end.

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