Return to expr.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

Annotation of 43BSDReno/share/doc/ps1/04.pascal/expr.p, revision 1.1

1.1     ! root        1: program x(output);
        !             2: var
        !             3:        a: set of char;
        !             4:        b: Boolean;
        !             5:        c: (red, green, blue);
        !             6:        p: ^ integer;
        !             7:        A: alfa;
        !             8:        B: packed array [1..5] of char;
        !             9: begin
        !            10:        b := true;
        !            11:        c := red;
        !            12:        new(p);
        !            13:        a := [];
        !            14:        A := 'Hello, yellow';
        !            15:        b := a and b;
        !            16:        a := a * 3;
        !            17:        if input < 2 then writeln('boo');
        !            18:        if p <= 2 then writeln('sure nuff');
        !            19:        if A = B then writeln('same');
        !            20:        if c = true then writeln('hue''s and color''s')
        !            21: end.

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