DataMuseum.dk

algol<
begin
_____
integer r,s,i,j,l,n;real k;
_______             ____
select(11);writecr;writecr;
n:=read integer;l:=0;
again:r:=read integer; s:=read integer;
 begin
 _____
 integer array A[1:r+1,1:s+1];
 _______ _____
 l:=l+1;
 writetext(|<  Sample number |);
           <                 >
 write(|dd|,l);writecr;
       <  >
 for i:=1 step 1 until r do
 ___      ____   _____   __
  begin
  _____
  k:=0;
  for j:=1 step 1 until s do
  ___      ____   _____   __
   begin
   _____
   A[i,j]:=read integer;
   k:=k+A[i,j];
   end;
   ___
  A[i,s+1]:=k;
  end;
  ___
 for j:=1 step 1 until s+1 do
 ___      ____   _____     __
  begin
  _____
  k:=0;
  for i:=1 step 1 until r do
  ___      ____   _____   __
   begin
   _____
   k:=k+A[i,j];
   end;
   ___
  A[r+1,j]:=k;
  end;
  ___
 k:=0;
 for i:=1 step 1 until r do
 ___      ____   _____   __
  begin
  _____
  for j:=1 step 1 until s do
  ___      ____   _____   __
   begin
   _____
   k:=k+(A[i,j]-A[i,s+1]⨯A[r+1,j]/A[r+1,s+1])∧2/(A[i,s+1]⨯A[r+1,j]/A[r+1,s+1]);
                                             |
  end;
  ___
  end;
  ___
 writetext(|<  Degrees of freedom:  |);
           <                        >
 write(|dd|,(r-1)⨯(s-1));writecr;
       <  >
 writetext(|<  Observed value of chi-square: |);
           <                                 >
 write(|ddd.ddd|,k);writecr;
       <       >
 writetext(|<  Level of significance: |);writecr;writecr;writecr;
           <                          >
 end;
 ___
if l_n then go to again;
__  <  ____ __ __
end;t<
___