|
賴輕得同學的爸爸想玩台灣六合彩，但又怕台灣六合彩的號碼不公平，
於是叫賴輕得同學用程式先分析一下！賴同學發現了六合彩有港號、台
號之分，直覺台號出現的機率不公平，於是想寫程式來統計各個台號號碼
出現的機率！他將 2017 年 9 月份的香港六合彩開獎的港號、台號做了
一個對照表。第一個面對的問題就是港號、台號的轉換，聰明的你幫他寫
個小程式轉換一下吧！（註：港號範圍 01～49）
開獎日期 |
港號（落球序） |
台號 |
台號特仔尾 |
2017/09/02 |
05, 27, 01, 24, 11, 23 |
15, 51 13, 34, 47 |
347 |
2017/09/05 |
30, 08, 01, 02, 43, 39 |
12, 28, 80, 09, 93 |
093 |
2017/09/07 |
46, 27, 41, 10, 19, 29 |
09, 97, 79, 91, 16 |
916 |
2017/09/09 |
04, 23, 39, 29, 18, 07 |
47, 78, 83, 39, 99 |
399 |
2017/09/12 |
38, 49, 30, 21, 23, 44 |
13, 30, 08, 84, 49 |
849 |
2017/09/14 |
41, 25, 42, 49, 26, 34 |
56, 64, 41, 12, 29 |
129 |
2017/09/17 |
23, 36, 16, 47, 03, 12 |
32, 26, 63, 36, 67 |
367 |
2017/09/19 |
11, 34, 07, 12, 36, 30 |
71, 12, 20, 04, 46 |
046 |
2017/09/21 |
39, 01, 04, 32, 05, 03 |
13, 34, 45, 52, 29 |
529 |
2017/09/23 |
25, 22, 36, 01, 30, 13 |
13, 32, 25, 50, 06 |
506 |
2017/09/26 |
02, 31, 27, 33, 19, 10 |
20, 09, 97, 71, 13 |
713 |
2017/09/28 |
07, 24, 26, 45, 39, 18 |
78, 84, 46, 69, 95 |
695 |
2017/09/30 |
11, 19, 49, 20, 02, 33 |
21, 19, 90, 03, 39 |
039 |
提示：請先將港號排序，可推估得知該期台號的產生方式。
輸入說明
輸入 6 個數字，數字範圍 01～49，數字間以空格隔開。
輸出說明
輸出 5 個台號的數字以及 1 個台號特仔尾數字，數字間以空格隔開。
範例
| 輸入 |
輸出 |
| 17 37 33 12 25 18 |
27 78 85 53 37 537 |
家豪版
Const N = 6 "處理 6 組號碼
Dim x As Array, i As Integer
x = TextBox1.Text.Split(" ")
TextBox2.Text = ""
Array.Sort(x) "雖然用了排序函數, 但還是不要忘了排序演算法
For i = 1 To x.Length - 1
TextBox2.Text &= (x(i - 1) Mod 10) & (x(i) Mod 10) & " "
Next
TextBox2.Text &= (x(i - 3) Mod 10) & (x(i - 2) Mod 10) & (x(i - 1) Mod 10)
昊朋版
黃翰版
|