主题: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个回复)
21 楼
moz [专家分:37620] 发布于 2005-11-11 13:54:00
.
第十四题: [color=FF00FF] 现在有30个人围起一个圆圈,从第一个人开始数数(1,2,3,4...),只要数到四或是四的倍数的人,就要死。只有最后留下来的一个人能活,请问:站在哪个位置就能活着?[/color]
s$=space$(30*3+1)
for i=1 to 90 step 3
j=j+1
mid$(s$,i,3)=str$(j)
next
i=4
do until len(s$)<6
do while i> len(s$)\3
i=i-len(s$)\3
loop
s$=left$(s$,i*3-3)+mid$(s$,i*3+1)
i=i+3
loop
print s$
22 楼
moz [专家分:37620] 发布于 2005-11-13 20:46:00
第十五题: [color=FF00FF] 输入一单词(要求该单词首尾相同),输出由该单词组成的字符三角形.如:输入单词 TREAT.则输出: [/color]
T
R R
E E
A A
T R E A T
--------------------------------------------------------------------------
do
input a$
loop until left$(a$,1)=right$(a$,1)
cls
l% = LEN(a$)
FOR i% = 1 TO l%
LOCATE i%, l% - i% + 1: PRINT MID$(a$, i%, 1)
LOCATE i%, l% + i% - 1: PRINT MID$(a$, i%, 1)
LOCATE l%, i% * 2 - 1: PRINT MID$(a$, i%, 1)
NEXT
23 楼
jyf1987 [专家分:930] 发布于 2005-11-16 10:36:00
快贴那个答案
24 楼
zqnhlm [专家分:780] 发布于 2005-11-26 10:34:00
疯了吗?
25 楼
xcm22 [专家分:20] 发布于 2005-11-30 10:27:00
你的 帖子真的是很好!希望你能回复我的问题!谢谢您!!
26 楼
冰睛 [专家分:30] 发布于 2005-12-09 15:16:00
好题目,但我觉有几个题是不是太烦琐了。。。。。。。。。
27 楼
冰睛 [专家分:30] 发布于 2005-12-10 23:36:00
moz,最好是把这十几个题目整理一下,还有注释一下有些语句.这样子最好哦.
28 楼
jinhuia1 [专家分:0] 发布于 2005-12-17 11:36:00
这个啊,哦哟,我试试看能不能发出来的
29 楼
f xy [专家分:0] 发布于 2005-12-17 11:42:00
cls
for i = 1 to 4
print tab (i);
for j =1 to
30 楼
moz [专家分:37620] 发布于 2005-12-19 20:24:00
4 30 第十六题:用QB编写下题程序
题目:用100元钱买100只鸡,公鸡每只5元,母鸡每只3元,
小鸡3只1元,问能买公鸡、母鸡和小鸡分别多少只?
for x=0 to 100
for y=0 to 100
if x*5+y*3+(100-x-y)/3=100 then print x,y,100-x-y
next y,x
我来回复