PRINT
PRINT "カイ二乗検定："
PRINT "    自由度１のカイ二乗分布の確率分布が"
PRINT "  ５％以下になるのは、 3.84 以上である。"
PRINT
INPUT PROMPT " Ａ○ かつ Ｂ○ の件数？ ":a
INPUT PROMPT " Ａ○ かつ Ｂ× の件数？ ":b
INPUT PROMPT " Ａ× かつ Ｂ○ の件数？ ":c
INPUT PROMPT " Ａ× かつ Ｂ× の件数？ ":d
PRINT
LET X=(a+b+c+d)*(a*d-b*c)^2/((a+c)*(b+d)*(a+b)*(c+d) )
PRINT "カイ二乗 ＝";ROUND(X,2);"      判定基準値：3.84"
PRINT
IF X=<3.84 THEN
   PRINT "有意水準 0.05 で、この２項目の関係性はありません。"
ELSE
   PRINT "有意水準 0.05 で、この２項目の関係性があります。"
END IF
PRINT
END