主题: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
							 
									
			
我来回复