Return to testio.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/testio.p, revision 1.1

1.1     ! root        1: program testio(output);
        !             2: 
        !             3: const
        !             4: str = 'foobar';
        !             5: ch = 'c';
        !             6: c13 = 13;
        !             7: o13 = 13b;
        !             8: r13 = 13.0;
        !             9: 
        !            10: type
        !            11: color = (red, green, blue, yellow, orange, violet, purple);
        !            12: 
        !            13: var
        !            14: hue :color;
        !            15: r :real;
        !            16: i :integer;
        !            17: strg :alfa;
        !            18: 
        !            19: begin
        !            20: r := 0;
        !            21: for i := 1 to 15 do begin
        !            22:        writeln(i:2,r:i,r:i:i,-r:i,-r:i:i,i:i:i,' ',i:i);
        !            23:        r := 2*r+0.1;
        !            24:        end;
        !            25: i := 1;   r := 0;
        !            26: writeln(i:2,r:1,r:1:1,-r:1,-r:1:1,i:1:1,' ',i:1);
        !            27: i := i+1;   r := 2*r+0.1;
        !            28: writeln(i:2,r:2,r:2:2,-r:2,-r:2:2,i:2:2,' ',i:2);
        !            29: i := i+1;   r := 2*r+0.1;
        !            30: writeln(i:2,r:3,r:3:3,-r:3,-r:3:3,i:3:3,' ',i:3);
        !            31: i := i+1;   r := 2*r+0.1;
        !            32: writeln(i:2,r:4,r:4:4,-r:4,-r:4:4,i:4:4,' ',i:4);
        !            33: i := i+1;   r := 2*r+0.1;
        !            34: writeln(i:2,r:5,r:5:5,-r:5,-r:5:5,i:5:5,' ',i:5);
        !            35: i := i+1;   r := 2*r+0.1;
        !            36: writeln(i:2,r:6,r:6:6,-r:6,-r:6:6,i:6:6,' ',i:6);
        !            37: i := i+1;   r := 2*r+0.1;
        !            38: writeln(i:2,r:7,r:7:7,-r:7,-r:7:7,i:7:7,' ',i:7);
        !            39: i := i+1;   r := 2*r+0.1;
        !            40: writeln(i:2,r:8,r:8:8,-r:8,-r:8:8,i:8:8,' ',i:8);
        !            41: i := i+1;   r := 2*r+0.1;
        !            42: writeln(i:2,r:9,r:9:9,-r:9,-r:9:9,i:9:9,' ',i:9);
        !            43: i := i+1;   r := 2*r+0.1;
        !            44: writeln(i:2,r:10,r:10:10,-r:10,-r:10:10,i:10:10,' ',i:10);
        !            45: i := i+1;   r := 2*r+0.1;
        !            46: writeln(i:2,r:11,r:11:11,-r:11,-r:11:11,i:11:11,' ',i:11);
        !            47: i := i+1;   r := 2*r+0.1;
        !            48: writeln(i:2,r:12,r:12:12,-r:12,-r:12:12,i:12:12,' ',i:12);
        !            49: i := i+1;   r := 2*r+0.1;
        !            50: writeln(i:2,r:13,r:13:13,-r:13,-r:13:13,i:13:13,' ',i:13);
        !            51: i := i+1;   r := 2*r+0.1;
        !            52: writeln(i:2,r:14,r:14:14,-r:14,-r:14:14,i:14:14,' ',i:14);
        !            53: i := i+1;   r := 2*r+0.1;
        !            54: writeln(i:2,r:15,r:15:15,-r:15,-r:15:15,i:15:15,' ',i:15);
        !            55: for hue := red to purple do
        !            56:        writeln(hue);
        !            57: i := 13;
        !            58: writeln(str,ch:2,ch,' ',13,c13,o13,r13,i,i hex,i oct,ch oct);
        !            59: strg:='1234567890';
        !            60: for i:=5 to 15 do begin
        !            61:        writeln('->',strg:i,'<-');
        !            62:        end;
        !            63: end.

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