永发信息网

用vfp编写一个程序,在屏幕上输出一个菱形?

答案:1  悬赏:10  手机版
解决时间 2021-05-09 22:17

1

121

12321

1234321

12321

121

1

最佳答案
第一种在循环体内用三个循环分别输出空格、数字的左半部分和数字的右半部分。

clear
for i = 1 to 7
s = abs(4 - i)
for j = 1 to s
?? ' '
endfor
for j = 1 to 4 - s
?? str(j, 1)
endfor
for j = 3 - s to 1 step -1
?? str(j, 1)
endfor
?
endfor

第二种在循环体内用两个循环分别输出空格和全部数字。

clear
for i = 1 to 7
s = abs(4 - i)
for j = 1 to s
?? ' '
endfor
s = 4 - s
for j = 1 to s * 2 - 1
?? str(s - abs(s - j), 1)
endfor
?
endfor
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
喝原味豆浆是减肥,还是长胖?
请问这两款印章是什么字体?
爱之印记婚礼策划美容馆地址有知道的么?有点
现在的新名词真多,36团是什么呀?谁知道,给
补中益气丸和右归丸合用的功效?
什么一句是对江南风景总的赞美,什么一句相呼
港东烧腊店我想知道这个在什么地方
刚满月的宝宝用什么型号的尿不湿
为什么QQ新闻城市不是本地
现在DNF深渊掉的45和50太刀叫什么?哪里打掉
笔上难写心上情,到此搁笔到此停。有情日后成
烽火战国现在还有绵羊大翻身吗?我彻候了,变
爱是同学们的什么句子,你喜欢了沉默所以很多
怎样得到高手录像
喝咖啡的时候,你觉得应该先加糖,还是奶精?
推荐资讯
文阁地四巷/甘东横街(路口)在哪里啊,我有事
怎样可以在这个邮箱里领到150mb流量
为什么人都要戴上伪善的面具呢
C50混凝土回弹到多少才算合格?
人跟人之间为什么会产生感情?
濮阳的电信公司,移动公司,联通公司,各个银
今天怎么QQ锈商场打不开啊?
防沉迷的网址是什么
网恋与现实的问题
有没有人会制作漂亮的图片的?
一个五棱柱,其每个侧面均为长方形,底面5变形
寻找一款赛车游戏
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?