回 帖 发 新 帖 刷新版面

主题:[讨论]急急急急急急急急~~~~~~~~~快点!今天就要!

编程题
    1. 编程序,打印图形
                图形:V           V
                       V         V
                        V       V
                         V     V
                          V   V
                            VV
    2.编程序打印数字菱形,将有键盘输入1-9之间的自然数作为菱形最外层的数(如下图,示为5)
                图形:      5
                          5 4 5
                       5  4 3 4  5
                    5  4  3 2 3  4  5
                 5  4  3  2 1 2  3  4  5
                     5 4  3 2 3  4  5
                       5  4 3 4  5
                          5 4 5
                            5
   3.编程打印M个实心菱形,菱形每条边由N个“*”组成。(M,N的值要保证再屏幕上完整显示)
                      望大家多多留言,我只是小学生。(*^__^*) 嘻嘻……
                            


                     (做题时请附上意思,谢谢。是编程意思,谢谢。)

回复列表 (共4个回复)

沙发

1.
CLS
FOR i = 1 TO 5
  PRINT TAB(i); "V"; SPC((6 - i) * 2); "V"
  PRINT
NEXT i
PRINT TAB(6); "VV"
END

板凳

第一题扩展到输入N行:
CLS
INPUT n
FOR i = 1 TO n - 1
  PRINT TAB(i); "V"; SPC((n - i) * 2); "V"
  PRINT
NEXT i
PRINT TAB(n); "VV"
END

3 楼

2.
CLS
INPUT n
FOR i = 49 TO 49 + n
  a$ = a$ + CHR$(i)
NEXT i
FOR i = -n + 1 TO n - 1
  x = n - ABS(i)
  PRINT TAB(ABS(i) * 2 + 1);
  FOR j = 1 TO x
    PRINT MID$(a$, n + 1 - j, 1); " ";
  NEXT j
  FOR j = n - x + 2 TO n
    PRINT MID$(a$, j, 1); " ";
  NEXT j
  PRINT
NEXT i
END

4 楼

楼主,我邪恶了

我来回复

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