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

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.