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
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
NEXT i
END
这个代码不是PASCAL,是VB或者VBScript
c = n: m = 1
是把c = n和m = 1两行代码写在一行。
就是把n的值赋给c,把m赋值为1
在VBScript中,通常一个语句占一行。
如果要多行语句写在一行里,要用“:”分隔开
c=n时m = 1
好久了
记不清了
应该是
从这里面看不出来,需要更多相关语句
在二面角a-l-b中 A,B属于a C,D属于l 四边形ABCD为矩形,P属于b,PA⊥a 且PA=PD M,N分别为AB PC的中点
1Pa=多少N/平方厘米
(a-b+c-1)(a+b-c-1)=(M+N)(M-N)
已知A(n,m)=272,C(n,m)=136,求n,m的值
四棱锥P-ABCD的底面是矩形,PA⊥平面ABCD,且PA=AD=2AB,点M N分别在侧棱PD ,PC上
c = n: m = 1在PASIC里是什么意思啊?3Q
求证1/2*(m+n)>=(m^n*n^m)^(1/m+n)
1^n+2^n+3^n......+m^n=
ABCD为矩形,PA垂直平面ABCD,PA=AD,M,N分别为PC,AB中点,求证:MN垂直平面PCD
M+N=4abc,(1)M=a(b+c-a)^+b(c+a-b)^+c(a+b-c)^;