回 帖 发 新 帖 刷新版面

主题:Moz的作业本

页码  楼层  题目
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 楼

.
第十四题: [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 楼

第十五题: [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 楼

快贴那个答案

24 楼

疯了吗?

25 楼

你的 帖子真的是很好!希望你能回复我的问题!谢谢您!!

26 楼

好题目,但我觉有几个题是不是太烦琐了。。。。。。。。。


27 楼

moz,最好是把这十几个题目整理一下,还有注释一下有些语句.这样子最好哦.

28 楼

这个啊,哦哟,我试试看能不能发出来的

29 楼

cls
for i = 1 to 4
  print tab (i);
  for j =1 to

30 楼

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

我来回复

您尚未登录,请登录后再回复。点此登录或注册