程序 — 编程爱好者社区

主题：程序

薏苡…… [专家分：0] 发布于 2009-05-19 21:51:00

麻烦各位，请问有谁知道：倒三角的Visual FoxPro程序怎样写？我会写正的，但是试了很多次，都写不出来另外一个……

本帖地址： http://bbs.pfan.cn/post/301508.html

回复列表（共6个回复）

沙发

alpen [专家分：1140] 发布于 2009-05-20 12:20:00

会写正的三角的Visual FoxPro程序,就贴出来,然后倒过来写倒三角的Visual FoxPro程序

板凳

qjbzjp [专家分：8830] 发布于 2009-05-21 11:08:00

如果是用字符来打出三角形的形状：
? "正三角形"
FOR i = 1 to 7
?SPACE(21-2*i),REPLICATE("*",3*i-2)
NEXT
?
? "倒三角形"
FOR i = 7 to 1 step -1
?SPACE(21-2*i),REPLICATE("*",3*i-2)
NEXT

3 楼

薏苡…… [专家分：0] 发布于 2009-05-27 15:16:00

很谢谢你们，我也找到一个方法了：

clear
i=0
do while i<4
  ?space(i)
  n=5
  do while n>=2*i-1
  ??"*"
   n=n-1
  enddo
  i=i+1
enddo
return

大家可以参详参详

4 楼

薏苡…… [专家分：0] 发布于 2009-05-27 15:37:00

请您告诉我，您这样做的原因是什么吗？就是注释是什么……

5 楼

sthk123 [专家分：10] 发布于 2009-06-07 10:19:00

这种程序有点象八股文，只能考试时用，实际情况中不太用到!

6 楼

liupeisong [专家分：2340] 发布于 2009-06-07 10:22:00

确实，这个应该是学生的作业，而且过时了，因为早期在DOS下面可能会使用这种方式生成用户界面，但进入windows后早就不用了

我来回复

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

主题：程序

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：程序

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）