c = n: m = 1在PASIC里是什么意思啊?3Q

来源:百度知道 编辑:UC知道 时间:2024/05/20 21:02:32
CLS
DIM a(64, 64) AS INTEGER
INPUT "k="; k
n = 1
rem 产生球队数n
FOR i = 1 TO k
n = n * 2
NEXT i
rem 产生比赛安排表的第一行(球队的编号)
FOR i = 1 TO n
a(1, i) = i
NEXT i
c = n: m = 1
rem 整个合并过程分成k个阶段
FOR s = 1 TO k
c = c / 2
rem 这一阶段需要进行c次合并操作
FOR t = 1 TO c
FOR i = m + 1 TO 2 * m
FOR j = m + 1 TO 2 * m
rem 将表的右上角复制到左下角
a(i, j + (t - 1) * 2 * m - m) = a(i - m, j + (t - 1) * 2 * m)
rem 将表的左上角复制到右下角
a(i, j + (t - 1) * 2 * m) = a(i - m, j + (t - 1) * 2 * m - m)
NEXT j
NEXT i
NEXT t
m = m * 2
NEXT s
rem 输出比赛安排表(以题目要求的格式输出)
FOR i = 2 TO n
FOR j = 1 TO n
IF j < a(i, j) THEN PRINT j; "-"; a(i, j);
NEXT j
PRINT
NEXT i
END

这个代码不是PASCAL,是VB或者VBScript
c = n: m = 1
是把c = n和m = 1两行代码写在一行。
就是把n的值赋给c,把m赋值为1
在VBScript中,通常一个语句占一行。
如果要多行语句写在一行里,要用“:”分隔开

c=n时m = 1

好久了
记不清了

应该是

从这里面看不出来,需要更多相关语句