主题：Moz的作业本
moz
[专家分：37620] 发布于 2005-11-09 12:34:00
页码 楼层 题目
1 1-10 目录
2 11 第一题:关于质数的题目
2 11 第二题:关于分解质因数的题目
2 12 第三题:关于排列组合的题目
2 13 第四题:一个用"*"号列印的倒置三角形点编写好??
*******
*****
***
*
2 13 第五题: 编程输出菱形米字号
*
***
*****
*******
*****
***
*
2 13 第六题: 蛇形矩阵
1 2 6
3 5 7
4 8 12
9 11 13
10 14 15
2 13 第七题: 数字图形编程
3
323
32123
3210123
32123
323
3
2 13 第八题: 两个数字图形的编程思路和方法！！！
第一个 第二个
1 12 11 10 1 1 1 1
2 13 16 9 1 2 2 1
3 14 15 8 1 2 2 1
4 5 6 7 1 1 1 1
2 14 第九题: QB打字母菱星怎么打啊？
A
A B A
A B C B A
A B C D C B A
A B C B A
A B A
A
2 15 第十题: 一个数列,已知它的前三个数是1,1,2.第四数是前三个数的和,
以后每个数分别都等于它前三个数之和
蜗牛爬树中ing...........................................
回复列表 （共98个回复）
71 楼
imjohnzj [专家分：1490] 发布于 2008-08-19 20:03:00
编程输出菱形米字号
*
***
*****
*******
*****
***
*
DIM CNT AS INTEGER
DIM I AS INTEGER
INPUT "INPUT", CNT
FOR I = 1 TO CNT * 2 - 1
PRINT STRING$(ABS(CNT - 1), " "); STRING$((CNT - ABS(CNT - 1)) * 2 - 1, "*")
NEXT I
72 楼
天天和和 [专家分：1420] 发布于 2009-01-04 22:28:00
晕
73 楼
三国风云 [专家分：140] 发布于 2009-01-15 17:39:00
好复杂
74 楼
hxy_anhui [专家分：320] 发布于 2009-01-29 17:21:00
......
75 楼
天天和和 [专家分：1420] 发布于 2009-03-05 23:18:00
这很正常的！
76 楼
gadenflm [专家分：150] 发布于 2009-03-31 21:11:00
44楼的题：
1 4 1 2 1
4 2 3 2 1
1 3 3 2 3
2 2 2 4 1
1 1 3 1 5
给出n,输出像上面的双向蛇形矩阵(n*n的),如n等于5时输出上面的图形。
CLS
INPUT n
DIM a(n, n)
i = n
j = 1
q = 1
DO
g = g + 1
s = s + 1
a(i, j) = s
IF q = 1 THEN
i = i + 1: j = j + 1
IF i > n THEN
i = n: q = 0: s = 0
IF j > n THEN j = n: i = i - 1: q = 0: s = 0
ELSE
IF j > n THEN j = n: i = i - 2: q = 0: s = 0
END IF
ELSE
i = i - 1: j = j - 1
IF j < 1 THEN
j = 1: q = 1: s = 0
IF i < 1 THEN i = 1: j = j + 1: q = 1: s = 0
ELSE
IF i < 1 THEN i = 1: j = j + 2: q = 1: s = 0
END IF
END IF
LOOP UNTIL g = n * n
FOR i = 1 TO n
FOR j = 1 TO n
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
77 楼
oqoq [专家分：130] 发布于 2009-05-10 15:43:00
oh my god
78 楼
DYF213 [专家分：90] 发布于 2009-05-30 07:06:00
汗
79 楼
ygzzxn [专家分：0] 发布于 2009-06-06 13:07:00
楼主能解此题吗?此题至今还未被攻克,相当具有挑战性!!!
求解n个方程组：
r1+1/(1/r2+1/r3+1/r4+…+1/rn)=a1 （1）
r2+1/(1/r1+1/r3+1/r4+…+1/rn)=a2 （2）
r3+1/(1/r1+1/r2+1/r4+…+1/rn)=a3 （3）
……………………….
rn+1/(1/r1+1/r2+1/r3+…+1/rn-1)=an （n）
其中，n=3,4,5……..50；r1，r2, r3,......rn未知，a1, a2, a3,……an已知。r,a为大于零的实数。
n个方程组对还是初学者的本人而言实在太难，因此先求解三个方程组，先易后难，试图从中找到规律，再解决n个方程组的问题。试着用穷举的方法写了一段代码，仍无法解出，看来代码有问题。不知高手能否求出n个方程组或者3 个，4个，5个方程组的解？
三个方程组：
r1+1/(1/r2+1/r3)=a1 (1)
r2+1/(1/r1+1/r3)=a2 (2)
r3+1/(1/r1+1/r2)=a3 (3)
附，求三个方程组的代码：
input “a1,a2,a3=”;a1,a2,a3
for r1=0.1 to a1 step 0.1
for r2=0.1 to a2 step 0.1
for r3=0.1 to a3 step 0.1
if r1+1/(1/r2+1/r3)=a1 and r2+1/(1/r1+1/r3)=a2 and r3+1/(1/r1+1/r2)=a3 then
print “r1=”;r1,”r2=”;r2,”r3=”;r3
exit for
end if
next r3
next r2
next r1
end
四个方程组：
r1+1/(1/r2+1/r3+1/r4)=a1 (1)
r2+1/(1/r1+1/r3+1/r4)=a2 (2)
r3+1/(1/r1+1/r2+1/r4)=a3 (3)
r4+1/(1/r1+1/r2+1/r3)=a4 (4)
五个方程组：
r1+1/(1/r2+1/r3+1/r4+1/r5)=a1 （1）
r2+1/(1/r1+1/r3+1/r4+1/r5)=a2 （2）
r3+1/(1/r1+1/r2+1/r4+1/r5)=a3 （3）
r4+1/(1/r1+1/r2+1/r3+1/r5)=a4 （4）
r5+1/(1/r1+1/r2+1/r3+1/r4)=a5 （5）
80 楼
FFKK [专家分：1610] 发布于 2009-06-19 19:56:00
我来回复
您所在位置：