BASIC 语言学分统计程序.doc

学生成绩基本统计系统BASIC程序清单（统计项目：分数段，各科名次(可列出并列名次，单科可折扣)，全班总分，全班人平，）10 CLS:KEY OFF:15 COLOR 14,1:LOCATE 7,16:PRINT ;20 LOCATE 8,16:PRINT | |;25 LOCATE 9,16:PRINT | 欢 迎 使 用 本 成 绩 统 计 系 统 |;30 LOCATE 10,16:PRINT | |;31 LOCATE 11,16:PRINT | ;:COLOR 13,1:PRINT 程序设计:鲍治国 版本号:1.00 ;:COLOR 14,1:PRINT |;32 LOCATE 12,16:PRINT | |;35 LOCATE 13,16:PRINT | 按 下 回 车 键 进 入 统 计 |;40 LOCATE 14,16:PRINT | |;45 LOCATE 15,16:PRINT ;50 LOCATE 13,58:LINE INPUT ;A$:COLOR 7,055 CLS60 COLOR 15,12:LOCATE 9,23:PRINT =;65 LOCATE 10,23:PRINT | |;70 LOCATE 11,23:PRINT | |;75 LOCATE 12,23:PRINT | |;80 LOCATE 13,23:PRINT | |;85 LOCATE 14,23:PRINT | |;90 LOCATE 15,23:PRINT =;95 LOCATE 11,33:PRINT 请输入学生人数: 100 LOCATE 13,33:PRINT 请输入成绩科数: 105 LOCATE 11,50:LINE INPUT ;RS$:RS=VAL(RS$)110 LOCATE 13,50:LINE INPUT ;KS$:KS=VAL(KS$):COLOR 7,0115 =定义数组=120 DIM XH(RS,KS+1),FS(RS,KS+1),MC(RS,KS+1),KM$(KS+1),FSD(10,KS),FSD$(10),BZF(KS)125 CLS130 =输入学科=135 LOCATE 5,24:COLOR 15,12:PRINT 请 输 入 科 目 名 称: :COLOR 14,0140 FOR K=1 TO KS145 LOCATE K*2+7,3:PRINT K; ;:LINE INPUT ;KM$:KM$(K)=LEFT$(KM$,2)+ +RIGHT$(KM$,2)150 LOCATE K*2+7,16:PRINT 折扣吗? Y/N: N;:LOCATE ,32:LINE INPUT ;Y$(K)155 IF Y$(K)=Y OR Y$(K)=y THEN LOCATE K*2+7,38:LINE INPUT 请输入折扣百分比:X% X=;B$:B(K)=VAL(B$)160 NEXT K165 KM$(0)=学 号:KM$(KS+1)=总 分170 CLS:POKE 1605,1:POKE 1606,26175 COLOR 15,1:LOCATE 25,1:PRINT 如果前一个数据输入错误，请你按下 键后回车，则可以修改前一个数据。 ;180 =显示表头=185 COLOR 15,12:LOCATE 1,1:PRINT 190 FOR K=0 TO KS195 LOCATE 1,INT(80/(KS+2)*K+5):PRINT KM$(K);200 NEXT K205 PRINT:PRINT:PRINT:COLOR 7,0210 POKE 1605,3:POKE 1606,23215 =输入分数=220 V=3225 FOR I=1 TO RS230 FOR J=0 TO KS+1235 IF J=0 THEN LOCATE V,INT(80/(KS+2)*J+6):PRINT I;:FS(I,0)=I:GOTO 265240 LOCATE V,INT(80/(KS+2)*J+6):LINE INPUT ;FS$:FS(I,J)=VAL(FS$)245 IF FS$=q OR FS$=Q THEN FS(I,KS+1)=FS(I,KS+1)-FS(I,J-1):J=J-1:GOTO 240250 IF J=KS+1 THEN 265255 FS(I,KS+1)=FS(I,KS+1)+FS(I,J)265 NEXT J266 IF V=21 THEN V=21:PRINT270 V=V+1275 NEXT I280 FOR I=1 TO RS285 FOR J=1 TO KS290 BZF(J)=BZF(J)+FS(I,J)295 NEXT:NEXT300 COLOR 15,1:PRINT = 基 = 本 = 数 = 据 =;305 COLOR 7,0:PRINT:LOCATE ,3:COLOR 12,0:PRINT 全班总分:;:COLOR 10,0310 FOR I=1 TO KS315 LOCATE ,INT(80/(KS+2)*I+4):PRINT USING #.#;BZF(I);320 NEXT I325 PRINT330 LOCATE ,3:COLOR 12,0:PRINT 全班人平:;:COLOR 10,0335 FOR I=1 TO KS340 LOCATE ,INT(80/(KS+2)*I+5):PRINT USING #.#;INT(BZF(I)/RS)*100+.5)/100;345 NEXT I350 COLOR 7,0355 =统计分数段=360 FOR I=1 TO KS365 FOR J=1 TO RS370 E=INT(FS(J,I)-55)/5)375 IF E1 THEN FSD(1,I)=FSD(1,I)+1:GOTO 430380 ON E GOTO 385,390,395,400,405,410,415,420,425385 FSD(2,I)=FSD(2,I)+1:GOTO 430390 FSD(3,I)=FSD(3,I)+1:GOTO 430395 FSD(4,I)=FSD(4,I)+1:GOTO 430400 FSD(5,I)=FSD(5,I)+1:GOTO 430405 FSD(6,I)=FSD(6,I)+1:GOTO 430410 FSD(7,I)=FSD(7,I)+1:GOTO 430415 FSD(8,I)=FSD(8,I)+1:GOTO 430420 FSD(9,I)=FSD(9,I)+1:GOTO 430425 FSD(10,I)=FSD(10,I)+1430 NEXT:NEXT435 PRINT440 FOR I=1 TO RS445 FS(I,KS+1)=0450 FOR J=1 TO KS455 IF Y$(J)=Y OR Y$(J)=y THEN FS(I,KS+1)=FS(I,KS+1)+(FS(I,J)*(B(J)/100):GOTO 465460 FS(I,KS+1)=FS(I,KS+1)+FS(I,J)465 NEXT J470 NEXT I475 =显示分数段=480 FSD$(1)=59分以下:FSD$(2)=60-64:FSD$(3)=65-69:FSD$(4)=70-74:FSD$(5)=75-79:FSD$(6)=80-84:FSD$(7)=85-89:FSD$(8)=90-94:FSD$(9)=95-99:FSD$(10)=100 分485 COLOR 15,1:PRINT = 分 = 数 = 段 =(单位:人)= ;490 COLOR 7,0:PRINT495 FOR I=1 TO 10500 COLOR 12,0:LOCATE ,3:PRINT FSD$(I);:COLOR 10,0505 FOR J=1 TO KS510 LOCATE ,INT(80/(KS+2)*J+6):PRINT FSD(I,J);515 NEXT J520 PRINT525 NEXT I530 COLOR 15,1:PRINT =;535 COLOR 7,0540 POKE 1605,3:POKE 1606,25545 COLOR 7,0550 =分数排序=555 初始化序号-560 FOR I=1 TO RS565 FOR J=1 TO KS+1570 XH(I,J)=I575 NEXT J580 NEXT I585 排序-590 FOR K=1 TO KS+1595 分数初步排序-600 FOR I=1 TO RS-1605 FOR J=I+1 TO RS610 IF FS(I,K)XH(J,K) THEN SWAP XH(I,K),XH(J,K):SWAP FS(I,K),FS(J,K):SWAP MC(I,K),MC(J,K)720 NEXT J725 NEXT I730 NEXT K732 POKE 1605,1:POKE 1606,26735 COLOR 15,12:LOCATE 25,1:PRINT 按下键然后回车，显示学生各科成绩名次;740 LOCATE 25,70:LINE INPUT ;A$:IF A$C AND A$c THEN 735745 COLOR 7,0:CLS750 POKE 1605,1:POKE 1606,26755 显示名次表=760 COLOR 15,12:LOCATE 1,1:PRINT 765 FOR K=0 TO KS+1770 IF K=0 THEN LOCATE 1,5:PRINT KM$(K);:GOTO 780775 LOCATE 1,INT(80/(KS+2)*K):PRINT KM$(K); 名次;780 NEXT K785 IF RS21 THEN COLOR 15,1:POKE 1606,26:LOCATE 25,1:PRINT 学生成绩名次表未列完，请按任意一键继续列出。 （紫色为并列名次） ;790 COLOR 7,0795 -800 IF RS19 THEN PRINT:PRINT:PRINT:COLOR 7,0805 POKE 1605,3:POKE 1606,23810 V=3815 -820 FOR N=1 TO RS825 LOCATE V,6:PRINT USING #;N;830 FOR K=1 TO KS+1835 LOCATE V,INT(80/(KS+2)*K):PRINT USING #.#;FS(N,K);:PRINT ;837 T=MC(N,K)840 IF MC(N,K)0 THEN COLOR 13,0 ELSE COLOR 14,0842 IF MC(N,K)=23 THEN V=3865 NEXT N870 COLOR 12,0:PRINT *:PRINT 名 次 表 已 列 完 毕 875 PRINT :COLOR 7,0880 POKE 1606,26:LOCATE 25,1:COLOR 15,12:PRINT 如果你想重新显示学生各科成绩名次表，请按 键，结束请按 键。;:LOCATE 25,75:LINE INPUT A$:COLOR 7,0885 IF A$Y AND A$y AND A$N AND A$n THEN 880890 IF A$=Y OR A$=y THEN 745:COLOR 7,0895 CLS:COLOR 15,12:LOCATE 10,23:PRINT = ;900 LOCATE 11,23:PRINT | 继续进行下一次统计吗? (Y/N) |;905 LOCATE 12,23:PRINT = ;910 LOCATE 11,56:LINE INPUT A$915 IF A$Y AND A