DataMuseum.dk

algol<
begin
_____
integer m,n,i,j;
_______
select(19);writecr;
m:=read integer;n:=read integer;
 begin
 _____
 real array A[1:m,1:n];real array B[1:m,1:n];
 ____ _____            ____ _____
  procedure rangordning(m,n,MATRIX,RANGMATRIX);
  _________
  value m,n;
  _____
  integer m,n;
  _______
  real array MATRIX;real array RANGMATRIX;
  ____ _____        ____ _____
   begin
   _____
   integer i,j,k,sum a,sum b;
   _______
   for i:=1 step 1 until m do
   ___      ____   _____   __
     begin
     _____
     for j:=1 step 1 until n do
     ___      ____   _____   __
      begin
      _____
      sum a:=0;sum b:=-1;
      for k:=1 step 1 until n do
      ___      ____   _____   __
       begin
       _____
       if MATRIX[i,j]<MATRIX[i,k] then sum a:=sum a+1;
       __                         ____
       if MATRIX[i,j]=MATRIX[i,k] then sum b:=sum b+1;
       __                         ____
       end;
       ___
       RANGMATRIX[i,j]:=(2⨯(n-sum a)-sum b)/2;
       write(|__dd.dd|,RANGMATRIX[i,j]);
             <,,     >
       if 10⨯(j_10)-j=0 then writecr;
       __      :        ____
      end;writecr;
      ___
     end
     ___
    end procedure rangordning;
    ___
   for i:=1 step 1 until m do
   ___      ____   _____   __
    begin
    _____
    for j:=1 step 1 until n do
    ___      ____   _____   __
    A[i,j]:=read real;
    end;
    ___
   rangordning(m,n,A,B);
   end
   ___
  end;t<
  ___