Return to transpose.p CVS log

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

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

1.1     ! root        1: program bench2(output);
        !             2:     const size = 10;
        !             3:     var i, j: integer; a: array[1..size,1..size] of char; ch: char;
        !             4: 
        !             5: procedure print;
        !             6: begin
        !             7:     for i := 1 to size do begin
        !             8:        for j := 1 to size do
        !             9:            write(a[i,j]);
        !            10:        writeln
        !            11:     end
        !            12: end;
        !            13: 
        !            14: begin
        !            15:     for i := 1 to size do
        !            16:        for j := 1 to size do
        !            17:             a[i,j] := chr(ord('a')+2*i+j-2);
        !            18:     print;
        !            19:     for i := 1 to size do
        !            20:        for j := i+1 to size do
        !            21:             begin ch := a[i,j]; a[i,j] := a[j,i]; a[j,i] := ch end;
        !            22:     writeln; print
        !            23: end.

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