sub1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 44 行

program sub1;
var a:array[1..100,1..100]of integer;
    n,i,j:integer;
procedure linie(l1,l2:integer);
var aux:integer;
begin
for j:=1 to n do
              begin
              aux:=a[l2,j];
              a[l2,j]:=a[l1,j];
              a[l1,j]:=aux;
              end;

end ;
procedure coloana(c1,c2:integer);
var auxx:integer;
begin
for i:=1 to n do
            begin
            auxx:=a[i,c2];
            a[i,c2]:=a[i,c1];
            a[i,c1]:=auxx;
            end;
end;
begin
write('n=');readln(n);
for i:=1 to n do
     for j:=1 to n do
                 begin
                 write('a[',i,j,']=');
                 readln(a[i,j]);
                 end;
for i:=1 to n-1 do
     if a[i,i]>a[i+1,i+1] then
                          begin
                          linie(i,i+1);
                          coloana(i,i+1);
                          end;
for i:= 1 to n do
               begin
               for j:=1 to n do write(a[i,j],' ');
               writeln;
               end;
end.