小菜问题请教(图型输出?) — 编程爱好者社区

主题：小菜问题请教(图型输出?)

ttosoft [专家分：0] 发布于 2005-10-28 17:06:00

一个用"*"号列印的倒置三角形点编写好??

   *******
    *****
     ***
      *

沙发

飞鸟12 [专家分：2830] 发布于 2005-10-30 16:02:00

FOR i = 4 TO 1 STEP -1
PRINT SPC(4 - i); STRING$(2 * i - 1, "*")
NEXT i

板凳

def [专家分：3380] 发布于 2005-10-30 19:18:00

start:
locate 1,1
for a=4 to 1 step -1
print tab(4-a); string$(2*a-1,"*")
next a
goto start

3 楼

moz [专家分：37620] 发布于 2005-10-31 12:21:00

[color=0000FF] [size=6] def [/size] [/color] FNXX$(i)=space$(i-1)+STRING$(9-2*i,"*")

for i=1 to 4 : print FNXX$(i) : next

4 楼

ttosoft [专家分：0] 发布于 2005-10-31 19:45:00

谢绝版副!!
请教FNXX$(I)是什么函数?点用? 谢谢!!

5 楼

ttosoft [专家分：0] 发布于 2005-10-31 19:46:00

谢谢版副!!
请教FNXX$(I)是什么函数?点用? 谢谢!!

6 楼

moz [专家分：37620] 发布于 2005-10-31 22:54:00

我倒, 谢绝是什么意思?

没有FNXX$(I)函数,
你可以用 DEF 定义一个内坎函数
例:

DEF FN***
END DEF

其中***是自定义的函数名
具体用法请参考QB's HELP

7 楼

alskdjfh [专家分：0] 发布于 2005-11-02 19:36:00

k=7
for i=1 to 4
  print tab(21+1);
  for j=1 to k
    print "*";
  next j
  print
  k=k-2
next i

8 楼

moz [专家分：37620] 发布于 2005-11-02 21:15:00

果然是个好枪手,能扩写得那么利害

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