home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / transpose.p < prev    next >
Text File  |  1980-02-17  |  477b  |  24 lines
  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.
  24.