BSD 4_3_Net_2 release

[unix-history] / usr / src / usr.bin / pascal / tstpx / src / transpose.p

program bench2(output);
   const size = 10;
   var i, j: integer; a: array[1..size,1..size] of char; ch: char;

procedure print;
begin
   for i := 1 to size do begin
       for j := 1 to size do
           write(a[i,j]);
       writeln
   end
end;

begin
   for i := 1 to size do
       for j := 1 to size do
            a[i,j] := chr(ord('a')+2*i+j-2);
   print;
   for i := 1 to size do
       for j := i+1 to size do
            begin ch := a[i,j]; a[i,j] := a[j,i]; a[j,i] := ch end;
   writeln; print
end.