PRINT
PRINT "＜ サッカー予選リーグ（４チーム）： 順位判定 ＞"
PRINT "      得失点差： ｎ点差で勝利のときは ｎ点、 ｍ点差で敗北のときは −ｍ点"
PRINT "      勝ち点  ： 勝利で３点、引き分けで１点"
PRINT "      順位    ： 勝ち点が優先する。その次に総合得失点差。"
PRINT "                 勝ち点も総合得失点差も同じときは、"
PRINT "                         直接対決で勝っている方が順位が上になる。"
PRINT
PRINT "（入力方法） →  複数のデーターがあるときは、カンマで区切る。"
PRINT
DIM T(4,4),SA(3),SB(2),SOUTEN(4),KATITEN(4),JUN(4),G$(4)
MAT SOUTEN=ZER
MAT KATITEN=ZER
FOR i=1 TO 4
   LET T(i,i)=0
NEXT i
MAT INPUT PROMPT "Ａ： Ｂ，Ｃ，Ｄ戦 での得失点差  ":SA
MAT INPUT PROMPT "Ｂ： Ｃ，Ｄ戦 での得失点差  ":SB
INPUT PROMPT "Ｃ： Ｄ戦 での得失点差  ":SC
PRINT
LET T(1,2)=SA(1)
LET T(1,3)=SA(2)
LET T(1,4)=SA(3)
LET T(2,3)=SB(1)
LET T(2,4)=SB(2)
LET T(3,4)=SC
FOR i=1 TO 4
   FOR j=i+1 TO 4
      LET T(j,i)=-1*T(i,j)
   NEXT j
NEXT i
PRINT "    ＜ 試合別 得失点差表 ＞"
PRINT "       A     B     C     D   ← 対戦相手"
PRINT " Ａ   ";
FOR  i=1 TO 4
   PRINT T(1,i);"   ";
NEXT i
PRINT
PRINT " Ｂ   ";
FOR  i=1 TO 4
   PRINT T(2,i);"   ";
NEXT i
PRINT
PRINT " Ｃ   ";
FOR  i=1 TO 4
   PRINT T(3,i);"   ";
NEXT i
PRINT
PRINT " Ｄ   ";
FOR  i=1 TO 4
   PRINT T(4,i);"   ";
NEXT i
PRINT

FOR i=1 TO 4
   FOR j=1 TO 4
      LET SOUTEN(i)=SOUTEN(i)+T(i,j)
   NEXT j
NEXT i

FOR i=1 TO 4
   FOR j=1 TO 4
      IF T(i,j)>O THEN 
         LET KATITEN(i)=KATITEN(i)+3
      ELSEIF  T(i,j)=O THEN
         LET KATITEN(i)=KATITEN(i)+1
      END IF
   NEXT j
   LET KATITEN(i)=KATITEN(i)-1
NEXT i

CALL banzuke(KATITEN,JUN,4)

LET C=0
FOR i=1 TO 4
   FOR j=i+1 TO 4
      IF JUN(i)=JUN(j) THEN
         IF SOUTEN(i)>SOUTEN(j) THEN
            LET JUN(j)=JUN(j)+1
         ELSEIF SOUTEN(i)<SOUTEN(j) THEN
            LET JUN(i)=JUN(i)+1
         ELSE
            LET C=1
         END IF
      END IF
   NEXT j
NEXT i

LET H$="ＡＢＣＤ"
FOR i=1 TO 4
   LET G$(JUN(i))=H$(i:i)
NEXT i
PRINT
PRINT "                Ａ    Ｂ    Ｃ    Ｄ"
PRINT "勝ち点          ";
FOR i=1 TO 4
   PRINT KATITEN(i);"   ";
NEXT i
PRINT
PRINT "総合得失点差    ";
FOR i=1 TO 4
   PRINT SOUTEN(i);"   ";
NEXT i
PRINT
PRINT "順位            ";
FOR i=1 TO 4
   PRINT JUN(i);"   ";
NEXT i
PRINT
PRINT
IF C=1 THEN
   PRINT "     ＊ 勝ち点も総合得失点差も同じときは、"
   PRINT "                直接対決で勝っている方が順位が上になる。" 
   PRINT
   GOTO 10
END IF
PRINT "第１位  第２位  第３位  第４位"
FOR i=1 TO 4
   PRINT "  ";G$(i);"    ";
NEXT i
PRINT
10 END

EXTERNAL SUB banzuke(a(),u(),m)
   FOR n=1 TO m
      LET u(n)=1
      FOR k=1 TO m
         IF a(n)<a(k) THEN
            LET u(n)=u(n)+1
         END IF
      NEXT k
   NEXT n
END SUB