天ㄚ
想了半天實在想不出來...
各位大哥大姐們~誰能解出來我依定每天照三餐拜他K個數字排成一個三角形
【試題說明】
將1到k(3 ＜= k ＜=20)個數字，按三角形的順序，排入四方形的區域中，其方向有分成二種，(A)是先下後右上，(B)是先右再左下，輸出格式盡量對齊有空格能分辨即可。
【輸入檔說明】
在一行欄位中，第一個是數字k，第二個是一個代表方向的字串"A"或"B"，中間用,隔開。
【輸出說明】
在螢幕上輸出答案。
【範例】
若輸入檔PROB1.IN為 13,"B" 則結果為：
1 2 4 7 11
3 5 8 12
6 9 13
10
若輸入檔PROB1.IN為 6,"A" 則結果為：
1 3 6
2 5
4
想了半天實在想不出來...
各位大哥大姐們~誰能解出來我依定每天照三餐拜他K個數字排成一個三角形
【試題說明】
將1到k(3 ＜= k ＜=20)個數字，按三角形的順序，排入四方形的區域中，其方向有分成二種，(A)是先下後右上，(B)是先右再左下，輸出格式盡量對齊有空格能分辨即可。
【輸入檔說明】
在一行欄位中，第一個是數字k，第二個是一個代表方向的字串"A"或"B"，中間用,隔開。
【輸出說明】
在螢幕上輸出答案。
【範例】
若輸入檔PROB1.IN為 13,"B" 則結果為：
1 2 4 7 11
3 5 8 12
6 9 13
10
若輸入檔PROB1.IN為 6,"A" 則結果為：
1 3 6
2 5
4
文章標籤
全站熱搜
n = 13: m = 1: s = 1 Do While s ＜= n For j = 0 To m - 1 If s ＞ n Then Exit For List1.List(j) = List1.List(j) & Format(s, "@@") & " " s = s + 1 Next j m = m + 1 Loop 為免你三餐朝拜~所以第二題原理一樣~請自解!
謝謝 我想了久=0=救命之恩.來日在報吧