畫一三角形

最近學校給訓練班同學的題目中有一題
用迴圈畫出下面的圖形，不准用函數

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

訪客只能看到部份內容，免費 加入會員

x0

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"也不能用...

x0

下面是引用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

x0

唉呀!~一時眼花@@...
不過利用乘帶小數這方法倒是現在才學到

因為不管一個數是正是負只要平方之後再開方就移動會回到正
這個可以好好利用

x0