Z2AY7M3 練習-7 (17題題單及參考-4)

4/10(一)測驗題單 (題目名加上連結的表示範例完成)

假設由文字方塊輸入，呼叫 Function MyPxx( S As String ) As String後傳回要輸出的字串
以下只有M5P11附主程式部份，其餘類似

105模擬	M5P11	數學問題：質數
105模擬	M5P22	字串：行、字數、字元數
105模擬	M5P42	其它：十進制數轉成二進制數
105正式	F5P11	字串問題：計算字數
105正式	F5P12	字串問題：摩斯電碼
105正式	F5P21	數學問題：網段ID
105正式	F5P22	數學問題：最大公約數計算
104模擬	M4P12	數學問題：N!尾數的0
104模擬	M4P21	其他：計程車費率計算
104模擬	M4P42	其他：數字反轉後相加
104正式	F4P11	生活問題：電梯電費計算系統
104正式	F4P22	數學問題：最大公約數計算
104正式	F4P31	其他：計算位元為1的個數
103模擬	M3P11	數學問題：判斷是否為質數
103模擬	M3P12	數學問題：解二元一次聯立方程式之根
103模擬	M3P21	編碼處理：摩斯電碼
103模擬	M3P22	編碼處理：凱撒密碼

======  103模擬 M3P11 數學問題：判斷是否為質數
   Function M3P11(ByVal s As String) As String
      '傳入一個 字串s 轉為整數 x ，判斷是否為質數，是傳回字串Y，否傳回N
        Dim x As Integer = s
        If x < 2 Then Return "N"
        For k = 2 To Math.Sqrt(x)
            If x Mod k = 0 Then Return "N"
        Next
        Return "Y"
    End Function

=====輸入範例

2

11

4

127

523

31

19

2047

9751

65521

=====輸出範例

Y

Y

N

Y

Y

Y

Y

N

N

Y

===============

======  103模擬 M3P12 數學問題：解二元一次聯立方程式之根

   Function M3P12(ByVal s As String) As String

        Dim dt() = s.Split(",")  '讀一列依 「,」分成6個字串
        Dim a As Integer = dt(0), b As Integer = dt(1)
        Dim c As Integer = dt(2), d As Integer = dt(3)
        Dim e As Integer = dt(4), f As Integer = dt(5)
'rem 聯立式(1)ax+by=c  ，(1)式*e - (2)式*b 得(ae-db)x = (ce-fb) 
'rem 聯立式(2)dx+ey=f  ，(1)式*d - (2)式*a 得(bd-ea)y = (cd-fa)
        Dim x As Integer = (c * e - f * b) / (a * e - d * b)
        Dim y As Integer = (c * d - f * a) / (b * d - e * a)
        Return x & "," & y

    End Function

=====輸入範例

0,2,20,1,0,10
9,5,17,33,6,-24

2,5,2,1,2,7

2,5,95,-10,2,-16

=====輸出範例

10,10
-2,7

31,-12
5,17

===============

======  103模擬 M3P22  編碼處理：凱撒密碼

   Function M3P22(ByVal s As String) As String

     M3P22=""
    For j = 1 To s.Length  '字串長度
      Dim c As Char = Mid(s, j, 1)
      If c >= "X" Then
         M3P22 &= Chr(Asc(c) - 23)
      Else
         M3P22 &= Chr(Asc(c) + 3)
      End If
    Next

  End Function

=====輸入範例

WIKIPEDIA
YOU
B
C
EF

XYZA

TEST

=====輸出範例

ZLNLSHGLD
BRX
E
F
HI

ABCD

WHVW

===============

Z2AY7M3 練習-6 (17題題單及參考-3)

4/10(一)測驗題單 (題目名加上連結的表示範例完成)

假設由文字方塊輸入，呼叫 Function MyPxx( S As String ) As String後傳回要輸出的字串
以下只有M5P11附主程式部份，其餘類似

105模擬	M5P11	數學問題：質數
105模擬	M5P22	字串：行、字數、字元數
105模擬	M5P42	其它：十進制數轉成二進制數
105正式	F5P11	字串問題：計算字數
105正式	F5P12	字串問題：摩斯電碼
105正式	F5P21	數學問題：網段ID
105正式	F5P22	數學問題：最大公約數計算
104模擬	M4P12	數學問題：N!尾數的0
104模擬	M4P21	其他：計程車費率計算
104模擬	M4P42	其他：數字反轉後相加
104正式	F4P11	生活問題：電梯電費計算系統
104正式	F4P22	數學問題：最大公約數計算
104正式	F4P31	其他：計算位元為1的個數
103模擬	M3P11	數學問題：判斷是否為質數
103模擬	M3P12	數學問題：解二元一次聯立方程式之根
103模擬	M3P21	編碼處理：摩斯電碼
103模擬	M3P22	編碼處理：凱撒密碼

======  104模擬 M4P12 數學問題：N!尾數的0
   Function M4P12(ByVal s As String) As String
      Dim x As Integer = s   '將字串 轉成數字 x
                    '1~x 共被5整除幾次就有幾個 尾數0
       Dim cnt As Integer = 0
        For i = 5 To x Step 5
            Dim k As Integer = i
            Do While k Mod 5 = 0  ' 5的次方數會被整除多次
                cnt += 1
                k \= 5
            Loop
        Next
        Return cnt 
    End Function
' 註： 本題若 x 太大，應另 使用遞迴解
=====輸入範例

4
6
11
25
50
20
100

=====輸出範例

0
1
2
6
12
4
24

===============

======  104模擬 M4P21 其他：計程車費率計算

   Function M4P21(ByVal s As String) As String
        Dim x As Integer = s * 1000 - 1500  '扣掉起跳 1500公尺
        Dim ans As Integer = 85 '起跳 85元
        If x < 0 Then Return ans '小於1500公尺只收 85
        ans += 5 * (x \ 250)
        If x Mod 250 <> 0 Then ans += 5
        Return ans ' 超過1500公尺的 \250每單位5元，餘數不為0再+5元
    End Function

=====輸入範例

3.81
1.62
1.50

2.21
5.00

=====輸出範例

135
90
85
100
155

===============

======  104模擬 M4P42 其他：數字反轉後相加

    Function M4P42(ByVal s As String) As String
        Dim dat() = s.Split(",") 
        Dim a As Integer = StrReverse(dat(0)) '反轉後存為 a
        Dim b As Integer = StrReverse(dat(1)) '反轉後存為 b
        Dim sum As Integer = StrReverse((a + b) & "")  '相加後再反轉
        Return sum 
    End Function

=====輸入範例

1,13
123,14
213,25

172,93
100,2
30020,7

=====輸出範例

23
263
463
13
3
102

===============

======  104 正式 F4P11 生活問題：電梯電費計算系統

 Function F4P11(ByVal s1 As String, ByVal s2 As String) As String

     Dim x As Integer = s1 '共停過x個樓層

     Dim dat() = s2.Split(",")  '有哪幾層以，號隔開：split切好分成dat(0)~dat(x-1)

     Dim ans As Integer = 0

     For i = 1 To x - 1

         Dim f As Integer = dat(i)

         If f > dat(i - 1) Then

             ans += 20 * (f - dat(i - 1))

         Else

             ans += 10 * (dat(i - 1) - f)

         End If

     Next

     Return ans

  End Function

=====輸入範例 {這題一次兩列，s1,s2}

3
3,8,5
7
2,9,7,3,4,6,1

3
18,19,20
3
2,5,2

=====輸出範例

130
310
40
90

===============

======  104 正式 F4P22 數學問題：最大公約數計算

    Function F4P22(ByVal s As String) As String

        ' F4P22_最大公約數計算

        Dim dat() = s.Split(",") ' 以，號隔開：split切好分成dat(0)~dat(m-1)

        Dim m As Integer = dat.Length

        Dim ans As Integer = dat(0)

        For i = 1 To m - 1

            ans = gcd(ans, dat(i))

        Next

        Return ans

    End Function

    Function gcd(ByVal a As Integer, ByVal b As Integer) As Integer

        '求兩個非0正整數a,b的最大公約數, 運算後 更新後的 b即是

        Dim r As Integer = a Mod b

        Do Until r = 0

            a = b

            b = r

            r = a Mod b

        Loop

        Return b

    End Function

 =====輸入範例

20,8,30
10,20,30
8,12
24,60,36
2,65535
2,3,4,5,6

=====輸出範例

2
10
4
12
1
1

===============

======  104 正式 F4P31 其他：計算位元為1的個數

    Function F4P31(ByVal s As String) As String

        Dim x As Integer = s

        Dim cnt As Integer = 0  '位元1有幾個

        Do Until x = 0

            cnt += x Mod 2

            x \= 2

        Loop

        Return cnt ' 除2的餘數為1 加入 cnt

    End Function

=====輸入範例

1025
65535
0
3

=====輸出範例

2
16
0
2

===============