Question

我正在尝试将QBasic中的旧程序“转换”为Java。我在调试时遇到问题，我认为与此GOTO语句有关。我知道带有撇号的行会被忽略，但在这种情况下，GOTO语句会指向该行。是否第一次忽略并且在GOTO声明之后没有？并且撇号仅涉及变量R12和X12或R22，X22？

这是.BAS文件：）

*

    4010 'R12 = R2MA + ((R2A * R2M * (R2A + R2M) + S ^ 2 * (R2A * X2M ^ 2 + R2M * X2A ^ 2)) / ((R2A + R2M) ^ 2 + S ^ 2 * (X2A + X2M) ^ 2))
    4014 'X12 = X2D + ((R2A ^ 2 * X2M + R2M ^ 2 * X2A + S ^ 2 * X2A * X2M * (X2A + X2M)) / ((R2A + R2M) ^ 2 + S ^ 2 * (X2A + X2M) ^ 2))
         R22 = ((R2A * XMMU ^ 2 + R2M * XAVVMU ^ 2) * S ^ 2 + R2A * R2M * RT2) / (RT2 ^ 2 + S ^ 2 * XT2 ^ 2)
         X22 = (X2A * (R2M ^ 2 + S ^ 2 * X2M ^ 2) + X2M * (R2A ^ 2 + S ^ 2 * X2A ^ 2) + 2 * X2AVM * (R2A * R2M - S ^ 2 * X2AVM * XT2)) / (RT2 ^ 2 + S ^ 2 * XT2 ^ 2)
         X22 = X22 + X2D
         R22 = R22 / ZUN: X22 = X22 / ZUN
    4016 A1 = R22 * E1 ^ 2 / (P2 * X22 ^ 2 + R22 * E1 ^ 2)
    4020 S = .5 * A1 - SQR(A1 * (.25 * A1 - R22 * P2 / E1 ^ 2))
    4030 G1 = (PFE / (3 * (VF * (FR / 100)) ^ 2)) * ZUN
    4040 A2 = (R22 / S) ^ 2 + X22 ^ 2: B2 = R22 / (S * A2): C2 = X22 / A2: D2 = B2 + G1
    4050 E2 = C2 + B1: F2 = D2 ^ 2 + E2 ^ 2: G2 = D2 / F2: H2 = E2 / F2: Z2 = SQR(G2 ^ 2 + H2 ^ 2)
    4060 I2 = G2 + R11: L = H2 + X11: ZTOT = SQR(I2 ^ 2 + L ^ 2)
    4070 I1 = 1 / ZTOT
    4080 E3 = I1 * Z2
    4090 IF ABS(E1 - E3) > P0 THEN 5800
.
.
.

    5800 E1 = (E1 + E3) / 2
    5810 GOTO 4010



*

Answer 1

这肯定是编写QBasic程序的一种奇怪方式，通常你要么编号所有行，要么都不编号。在这种情况下，您可以运行一个小测试程序来查看QB如何处理GOTO。所以像这样：

10 I = 0
20 'PRINT "Test line 20"
30 'PRINT "Test line 30
    PRINT "Test line 40"
    PRINT "Test line 50"
60 PRINT "Test line 60"
70 I = I + 1
80 IF (I <= 1) GOTO 20
90 PRINT "THE END"

我在QB4.5中尝试了这个，输出是这样的：

Test line 40
Test line 50
Test line 60
Test line 40
Test line 50
Test line 60
THE END

GOTO语句正常工作，但第20行和第30行的内容未被执行，它被视为注释。因此，要回答您的问题，在您的情况下，R12 = ..和X12 = ..的行将被忽略而不会被执行，而R22 = ..和X22 = ..等行将被处理为正常。

Qbasic GOTO与Apostophe合作

1 个答案: