Return to wnj.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/wnj.p, revision 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.