UC知道请大家看看这是不是BASIC程序的代码？是否可以运行？需要输入什么？会输出什么》
来源：百度知道 编辑：UC知道 时间：2024/05/26 11:31:47
这段很长的代码是华中理工大学出版社比较早的一本书上的，1985年出版。。。，想让大家看看这段代码是否能正常运行？ 要输入的数据都有些什么，会输出什么？
1500 REM***STEPWISE DISCRIMINT AN ALYSIS***
1501 PRINT “INPUT NUMBER OF INDEPENDENT VARIABLESP-”
1502 INPUT P
1504 PRINT”INPUT NUMBER OF GROUPS G=”;
1506 INPUT G
1508 PRINT”INPUT NUMBER OF SAMPLES N=”;
1510 INPUT N
1512 PRINT”INPUT TEST VALUE OF F1=”
1514 INPUT F1
1516 PRINT”INPUT TEST VALUE OF F2=”
1518 INPUT F2
1520 DIMX(N,P),S(G),M(G,P),T(P,P),W(P,P),Z(P),C(G,P),B(G),Q(G)
1522 FOR I=1 TON
1524 FOR J=0 TOP
1526 READ X(I,J)
1528 NEXT J
1530 NEXT I
1532 FOR I=1 TON
1534 S(I)=0
1536 FOR J=1 TOP
1538 M(I,J)=0
1540 NEXT J
1542 NEXT I
1544 FOR K=1 TON
1546 H=X(K,0)
1548 IF (G-H)*(H-1)>=0 THEN GOTO 1554
1550 PRINT “GIVEN CLASS NUMBER ERROR”
1552 STOP
1554 S(H)=S(H)+1
1556 FOR I=1 TOP
1558 M(H,
1500 REM***STEPWISE DISCRIMINT AN ALYSIS***
1501 PRINT “INPUT NUMBER OF INDEPENDENT VARIABLESP-”
1502 INPUT P
1504 PRINT”INPUT NUMBER OF GROUPS G=”;
1506 INPUT G
1508 PRINT”INPUT NUMBER OF SAMPLES N=”;
1510 INPUT N
1512 PRINT”INPUT TEST VALUE OF F1=”
1514 INPUT F1
1516 PRINT”INPUT TEST VALUE OF F2=”
1518 INPUT F2
1520 DIMX(N,P),S(G),M(G,P),T(P,P),W(P,P),Z(P),C(G,P),B(G),Q(G)
1522 FOR I=1 TON
1524 FOR J=0 TOP
1526 READ X(I,J)
1528 NEXT J
1530 NEXT I
1532 FOR I=1 TON
1534 S(I)=0
1536 FOR J=1 TOP
1538 M(I,J)=0
1540 NEXT J
1542 NEXT I
1544 FOR K=1 TON
1546 H=X(K,0)
1548 IF (G-H)*(H-1)>=0 THEN GOTO 1554
1550 PRINT “GIVEN CLASS NUMBER ERROR”
1552 STOP
1554 S(H)=S(H)+1
1556 FOR I=1 TOP
1558 M(H,
这个 代码 是 BASIC 代码
这种带行号的可能是 早期 GWBASIC 中的 代码
在 QuickBASIC 中 可以运行
代码中有错误
“ 是 双字节的
几处循环的地方 缺少空格
FOR I=1 TON
FOR I=1 TO N