1000 PRINT "偏差値から順位を求める" 1010 DO 1020 PRINT 1030 PRINT "偏差値 (0 を入れると終ります) "; 1040 INPUT H 1050 LET B=(H-50)/10 1060 GOSUB 2000 1070 PRINT USING "上位から--%.##%の位置です": 50-S*100 1080 LOOP UNTIL H=0 1090 STOP 1100 2000 REM ***** 台形公式で P(0≦x≦B) を求める ***** 2010 LET DX=B/100 2020 LET X=0 2030 LET S=1/SQR(2*PI)/2 2040 FOR K=1 TO 99 2050 LET X=X+DX 2060 LET S=S+EXP(-X^2/2)/SQR(2*PI) 2070 NEXT K 2080 LET S=S+EXP(-B^2/2)/SQR(2*PI)/2 2090 LET S=S*DX 2100 RETURN 2110 2120 END