VFP编程:使用一个for输出数字菱形

1、启动VFP程序,并设置文件存放目录

       推荐使用代码方式: set default to <路径>

这里使用默认路径,就不再指定目录了

2、在 命令 窗口中打开程序编辑器

        推荐使用代码方式: modify command <程序名> 创建程序

这里使用 modi comm 使用一个for构图 创建一个名为 使用一个for构图 的程序

3、****输入以下代码****

input "输入1到9之间的数:" to n

for i=n to -n step -1

?space(abs(i))

??alltrim(str(int(10^(n+1-abs(i))/9)^2,20))

endfor

4、程序简略解析:

程序主干部分分解为4步,将函数括号展开,易于阅读

函数由内到外执行,(图中两个"第2步"并不是错字)

1、***第1步***详解

10^(n+1-abs(i))/9

使用10的(n+1-abs(i))次方可以得到一个10、100、100等等类似的整数

    将得到的整数 /9 则该整数将转化为 1.11、11.11、111.11等等数

2、***第2步***详解

将第一步得到的数取整，获得1、11、111、1111、11111之类的整数

再将这种数平方，神奇的事情发生了！

     按照上面的例子，它们的平方依次为

        0

        1

        121

        12321

        1234321

        123454321

神不神奇？

3、***第3步**详解

第三步就是将第二部得到的数字转换为字符型

4、***第4步***详解

第四步只是去空格，为了排列整齐

可以在运行的时候将这一步注释掉，看看会发生什么