最近学校给训练班同学的题目中有一题
用回圈画出下面的图形，不准用函数

*
***
******
***** ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

For i% = 1 To 7
d% = 4 - (((i - 4) ^ 2) ^ 0.5)
For j% = 2 To d * 2
  Print "*";
Next j
Print
Next i

别跟我说连"print"也不能用...

下面是引用overing于2006-11-10 23:37发表的 :
For i% = 1 To 7
d% = 4 - (((i - 4) ^ 2) ^ 0.5)
For j% = 2 To d * 2
  Print "*";
Next j
.......

感谢您的回文...
虽然稍有不符(第三行要6个，第五行要8个)
但您只用了两个回圈...
结构也让我一时无法看懂
但是从中我学习到了..就算不用ABS函数
还是可以求出绝对值..


------
我已经想出来了(应该说误打误撞)

For a = 1 To 7
d = 4 - (((a - 4) ^ 2) ^ 0.5)
  For b = 2 To d * 2.4
    Print "*";
  Next b
  Print
Next a

唉呀!~一时眼花@@...
不过利用乘带小数这方法倒是现在才学到

因为不管一个数是正是负只要平方之后再开方就移动会回到正
这个可以好好利用