回 帖 发 新 帖 刷新版面

主题: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个回复)

91 楼

cls
for i=1 to 4
print tab(21-i);
for j=1 to 2*i-1
print "*";
next j
next i
x=1
for i=3 to 1 step -1
print tab(21-x);
x=x+1
for j=1 to 2 * i - 1
print "*";
next j
next i
end

92 楼

cls
input a,b,c,d
if d<c then swap d,c
if c<b then swap c,b
if b<a then swap b,a
if d<c then swap d,c
if c<b then swap c,b
if d< c then swap d,c
? a,b,c,d
end

93 楼

FUNCTION fenjie$ (x%)
if x%=0 then
   fenjie$="0"
   exit function
elseif x%<0 then 
  x%=-x%
  k$="-1"
end if  
j% = 2
DO UNTIL x% <= 1
  IF x% MOD j% = 0 THEN
   x% = x% / j%
   IF k$=""THEN k$=LTRIM$(STR$(j%))ELSE k$=k$+"*"+LTRIM$(STR$(j%))
  ELSE
   j%=nextZS%(j%+1)
  END IF
LOOP
fenjie$ = k

94 楼

for i=-3 to 3
print tab(abs(i))
print "*"
next i

95 楼

过于简单!

96 楼

我晕!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

97 楼

难!

98 楼

搞什么啊?
一题一题打

我来回复

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