2018年11月9日 星期五

2018年10月12日 星期五

2017青年程式(中文組)

           ,      No comments   







2017年青年程式競賽(中文組)解題記錄 2018/10/12 建置

10/12完成 p1,p4,p5,p6,p8   ，  10/13 完成 p2  ， 10/18 完成 p3 ,  10/22 完成 p7
用VB10寫在Form_Load，讀檔統一如下，然後呼叫fxx，每題讀檔就不重複


讀檔寫檔

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        FileOpen(1, "in.txt", 1)
        FileOpen(2, "out.txt", 2)
        Dim s As String = LineInput(fn)
        PrintLine(2, fxx(s)) '根據測資可能一次兩列或傳fn讀多行
        End
    End Sub
   ．．．
   每一題 解題部份
   Function fxx( s as ... ) as ...
   ．．．
End Class

P1 二元搜尋
每檔3行，所以在Form_Load讀三行再傳給fxx()
       Dim n As Integer = LineInput(1)
        Dim s As String = LineInput(1)
        Dim x As Integer = LineInput(1) 

Function fxx(ByVal n As Integer, ByVal s As String, ByVal x As Integer) As String
        Dim dat() = s.Split(",")
        Dim a(n) As Integer
        For i = 1 To n
            a(i) = dat(i - 1)
        Next
        Array.Sort(a, 1, n)
        Dim L As Integer = 1, U As Integer = n
        Dim cnt As Integer = 0
        Do Until L > U
            Dim M = (L + U) \ 2
            cnt += 1
            ' Debug.Print(cnt & "," & L & "," & U & "," & M)
            ' If cnt > 10 Then Return ">10"
            If a(M) = x Then Return cnt
            If a(M) > x Then
                U = M - 1
            Else
                L = M + 1
            End If
        Loop
        Return "無"
    End Function

P2 質數加法分解
應該會用到遞迴吧，一個函數isp(x)是否質數、一個函數pp(y)：y是否質數或可拆成質數和 
Function fxx( n As Integer ) As String
 半成品
  for x=n-2 to (n-1)\2
    if isp(x) then
       if pp(n-x) 印出
       else 無{印 n?}
    }   
  }
End Function
除了2,3,11,17之外，其餘的質數皆拆成2或三個之和
2:單 , 3:單 , 5:3+2 , 7:5+2 , 11:單 , 13:11+2 , 17:單 , 19:17+2 , 23:13+7+3 , 29:19+7+3 , 31:29+2 , 37:29+5+3 , 41:31+7+3 , 43:41+2 , 47:37+7+3 , 53:43+7+3 , 59:47+7+5 , 61:59+2 , 67:59+5+3 , 71:61+7+3 , 73:71+2 , 79:71+5+3 , 83:73+7+3 , 89:79+7+3 , 97:89+5+3 , 101:89+7+5 , 103:101+2 , 107:97+7+3 , 109:107+2 , 113:103+7+3 , 127:113+11+3 , 131:113+13+5 , 137:127+7+3 , 139:137+2 , 149:139+7+3 , 151:149+2 , 157:149+5+3 , 163:151+7+5 , 167:157+7+3 , 173:163+7+3 , 179:167+7+5 , 181:179+2 , 191:181+7+3 , 193:191+2 , 197:181+13+3 , 199:197+2 , 211:199+7+5 , 223:211+7+5 , 227:211+13+3 , 229:227+2 , 233:223+7+3 , 239:229+7+3 , 241:239+2 , 251:241+7+3 , 257:241+13+3 , 263:251+7+5 , 269:257+7+5 , 271:269+2 , 277:269+5+3 , 281:271+7+3 , 283:281+2 , 293:283+7+3 , 307:293+11+3 , 311:293+13+5 , 313:311+2 , 317:307+7+3 , 331:317+11+3 , 337:317+17+3 , 347:337+7+3 , 349:347+2 , 353:337+13+3 , 359:349+7+3 , 367:359+5+3 , 373:359+11+3 , 379:367+7+5 , 383:373+7+3 , 389:379+7+3 , 397:389+5+3 , 401:389+7+5 , 409:401+5+3 , 419:409+7+3 , 421:419+2 , 431:421+7+3 , 433:431+2 , 439:431+5+3 , 443:433+7+3 , 449:439+7+3 , 457:449+5+3 , 461:449+7+5 , 463:461+2 , 467:457+7+3 , 479:467+7+5 , 487:479+5+3 , 491:479+7+5 , 499:491+5+3 , 
   Function fxx(ByVal n As Integer) As String
        ' Call si(n)
        If n < 5 Then Return "單" '2或3直接傳回 單：2,3
        Dim p2 As String = ""
        For x = n - 2 To n\2+1 Step -2
            If isp(x) Then  'C_isp 應較快，但數字不大沒差 ?
                p2 = pp(n - x)
                If p2 = "" Then Continue For
                Return x & "+" & p2
            End If
        Next
        Return "單" '11,17
    End Function
    Function pp(ByVal y As Integer) As String
        pp = ""
        If isp(y) Then Return y

         Dim p2 As String = ""
        For x = y - 1 To y \ 2 + 1 Step -1
            If isp(x) Then  'C_isp 應較快，但數字不大沒差
                p2 = pp(y - x)
                If p2 = "" Then Continue For
                Return x & "+" & p2
            End If
        Next
    End Function
    Function isp(ByVal x As Integer) As Boolean  '判斷 x 是否為質數
        If x < 2 Then Return False
        For i = 2 To Math.Sqrt(x)
            If x Mod i = 0 Then Return False
        Next
        Return True
    End Function
' 以下使用篩法才需要
    Function c_isp(ByVal x As Integer) As Boolean '篩版，判斷是否為質數
        If Not c(x) Then Return True
        Return False
    End Function
    Dim c(65536) As Boolean  '篩法用
    Dim p(8000) As Integer
    Dim pcnt As Integer
    Sub si(ByVal n As Integer) '篩法
        pcnt = 0
        Array.Clear(c, 0, c.Length)
        Array.Clear(p, 0, p.Length)
        c(0) = True
        c(1) = True
        Dim i, j As Long
        For i = 2 To n
            If Not c(i) Then
                p(pcnt) = i
                pcnt += 1
                For j = i * i To n Step i
                    c(j) = True
                Next
            End If
        Next
        '  Debug.Print(pcnt & "," & p(pcnt - 1))

    End Sub

P3 中序轉前序 {補充後序}
 有點難，下次再說 
中序轉後序較普遍，所以兩個都寫，以下範例 直接兩個TextBox，二個按鈕不讀檔
    '運算式 中序轉後序及前序 ，運算子只有大小寫字母，運算子只有 ( ) + - * /
    '中序1： (A-B)*(C+D)/E-F*G
    '後序1： AB-CD+*E/FG*-
    '前序1： -/*-AB+CDE*FG

     '中序2： A/(B-C*(D+E))
    '後序2： ABCDE+*-/
    '前序2： /A-B*C+DE

     '假設只有 + - * / 及 ( )

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '中序轉後序
        Dim istr As String = TextBox1.Text
        TextBox2.Text = in2po(istr, True)
    End Sub

     Dim stk(100) As Char '堆疊 ，只有字元
    Dim sp As Integer = -1 '堆疊的指標(索引)
    Function prio(ByVal op As Char) As Integer  '傳回優先序
        prio = 0
        Select Case op
            Case "+", "-"
                Return 1
            Case "%"      '餘數
                Return 2
            Case "\"      '整除
                Return 3
            Case "*", "/"
                Return 4
            Case "^"       '次方
            Case Else
                Return 0
        End Select

    End Function

   Function in2po(ByVal ins As String, ByVal ispo As Boolean) As String
        ' ispo 是否後序：True 後序 、 False 前序
        Dim po As String = ""

        For i = 1 To ins.Length
            Dim inch As Char = Mid(ins, i, 1) '讀一個字元
            Select Case inch  '依讀入的字元
                Case "("    '左括號，直接放入 stack
                    sp += 1 : stk(sp) = inch
                Case "+", "-", "*", "/"   '若堆內 >= 讀入，輸出  ,  {更多"^", "\", "%"}
                    ' Do  While sp >= 0 AndAlse (prio(stk(sp)) > prio(inch) Or (ispo And prio(stk(sp)) = prio(inch)))
                    Do Until sp < 0
                        If (prio(stk(sp)) > prio(inch) Or (ispo And prio(stk(sp)) = prio(inch))) Then
                            '      前序 >       、             後序 >=
                            po += stk(sp) : sp -= 1    ' pop to 輸出
                        Else   '否則停
                            Exit Do
                        End If
                    Loop
                    '讀入的放入 stack
                    sp += 1  :     stk(sp) = inch   ' 輸入 push
                Case ")"     '遇右括號，輸出至左括號為止
                    Do Until stk(sp) = "("
                        po += stk(sp) : sp -= 1     ' pop to 輸出
                    Loop
                    sp -= 1   '但左括號不用輸出
                Case Else
                    po += inch
            End Select
        Next
        '輸入完，若 stack 還有資料，全輸出
        Do Until sp < 0
            po += stk(sp) : sp -= 1
        Loop
        Return po
    End Function

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '中序轉前序
        ' 由後往前讀入，同 中轉後輸出， 再反序輸出 括號相反
        ' *** 後序：堆內 >= 輸入則輸出， 前序：堆內 > 輸入則輸出 **** 前序優先序相同不輸出哦
        Dim rins As String = StrReverse(TextBox1.Text)
        For i = 1 To rins.Length
            Dim c As Char = Mid(rins, i, 1)
            If c = "(" Then
                Mid(rins, i, 1) = ")"
            ElseIf c = ")" Then
                Mid(rins, i, 1) = "("
            End If
        Next
        TextBox2.Text = StrReverse(in2po(rins, False)) '前序
    End Sub

P4 費氏數
 讀整數 n 傳給 fxx(n) 傳回答案 
   Function fxx(ByVal n As Integer) As String
        Dim f(n) As Integer
        f(0) = 0
        f(1) = 1
        For i = 2 To n
            f(i) = f(i - 1) + f(i - 2)
        Next
        Return f(n)
    End Function
P5 編碼
 讀字串 s 傳給 fxx(s) 傳回答案 
    Function fxx(ByVal s As String) As String
        Dim m = s.Length
        fxx = ""
        Dim cnt = 1
        Dim c0 As Char = Mid(s, 1, 1) '第1個字
        For i = 2 To m
            Dim c As Char = Mid(s, i, 1)
            If c = c0 Then
                cnt += 1
            Else '不同
                fxx += (c0 & cnt)
                cnt = 1
                c0 = c
            End If
        Next
        fxx += (c0 & cnt)
    End Function
P6 阿姆斯壯數(水仙花)
 讀字串 s 傳給 fxx(s) 傳回答案 ，在fxx將S拆成 x,y，並確認x<=y, 呼叫arms判斷
   Function fxx(ByVal s As String) As String
        Dim dat() = s.Split(",")
        Dim X As Integer = dat(0), Y As Integer = dat(1)
        If X > Y Then  '確認 X<=Y
            Dim T = X : X = Y : Y = T
        End If
        Dim m = s.Length
        fxx = ""
        For i = X To Y
            If arms(i) Then
                If fxx = "" Then
                    fxx &= i
                Else
                    fxx &= "," & i
                End If
            End If
        Next
    End Function
    Function arms(ByVal k As Integer) As Boolean
        ' 若 k是 阿姆斯壯數，則 Return True, 否False
        Dim m As Integer = Len(Str(k)) - 1
        Dim j = k
        Dim sum As Integer = 0
        Do Until j = 0
            sum += (j Mod 10) ^ m '每一位的 m 次方
            j \= 10
            If sum > k Then Return False
        Loop
        Return (k = sum)
    End Function
P7 搜尋(Search)問題
 前2列是節點數n及根節點名，在Form_Load讀入，接著不定行數，傳fn 檔案編號給fxx
公用變數 n 、Nds As ArrayList 為節點的名稱：{根節點名稱先add為第1個，索引0}
假設最多 1000 個節點， chi(100,100)每個節點的兒子編號、 cnt(100)每個節點兒子數

    '11 X ： F,X  A,X   H,F  G,F   C,A   B,A  J,G  I,G   E,B  D B
    '  F:1 X:0   A:2 X:0  H:3 F:1   G:4 F:1  C:5 A:2    B:6 A:2
    '  J:7 G:4   I:8 G:4   E:9 B:6  D:10 B:6
    Dim ndName As New ArrayList
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        FileOpen(1, "in.txt", OpenMode.Input)
        FileOpen(2, "out.txt", OpenMode.Output)
        Dim n As Integer = LineInput(1) ' n個 節點
        Dim root As String = LineInput(1)    'root
        ndName.Add(root)
        PrintLine(2, fxx(1))
        End
    End Sub

     Dim n As Integer ' 節點數
    Dim r As Integer = 0 '根節點編號
    Const Maxn As Integer = 1000
    Dim chi(Maxn, Maxn) As Integer
    Dim cnt(Maxn) As Integer
    Function fxx(ByVal fn As Integer) As String
        Do Until EOF(1)
            Dim s As String = LineInput(fn)
            Dim sep() = {","}
            Dim dat() = s.Split(",")
            Dim A As Integer = getid(Trim(dat(0)))
            Dim B As Integer = getid(Trim(dat(1)))
            chi(B, cnt(B)) = A
            cnt(B) += 1
        Loop
        Dim que As New ArrayList  '代替 Queue
        Dim out As New ArrayList  '輸出
        que.Add(r)
        out.Add(r)
        Do Until que.Count = 0
            Dim cur As Integer = que(0)
            que.RemoveAt(0)
            For i = 0 To cnt(cur) - 1
                que.Add(chi(cur, i))
                out.Add(chi(cur, i))
            Next
        Loop
        fxx = ndName(0)
        For i = 1 To out.Count - 1
            fxx &= ("," & ndName(out(i)))
        Next
    End Function
    Function getid(ByVal s As String) As Integer
        getid = ndName.IndexOf(s)
        If getid < 0 Then
            getid = ndName.Count
            ndName.Add(s)
        End If
    End Function
P8 明文/密文
 讀字串 s 傳給 fxx(s) 傳回答案 
   Function fxx(ByVal s As String) As String
        Dim m = s.Length
        fxx = ""
        For i = 1 To m
            Dim c As Char = Mid(s, i, 1)
            If c >= "A" And c <= "Z" Then
                fxx += Chr((Asc(c) - 65 + 5) Mod 26 + 65)
            ElseIf c >= "a" And c <= "z" Then
                fxx += Chr((Asc(c) - 97 + 5) Mod 26 + 97)
            Else
                fxx += c
            End If
        Next
        ' A=65, B=66 ,.... Z=90
        ' a=97, b98 , .... z =122
   End Function


2018年10月8日 星期一

2018年9月22日 星期六

107上p2 TAB Ch10補充題

                No comments   
選擇：前50題
1.          ( C ) LAN是那一種網路的簡稱？  (A)廣域網路 (B)網際網路 (C)區域網路 (D)全球資訊網
2.          ( D ) WAN是下列何者的簡稱？  (A)電腦網路 (B)區域網路 (C)都會網路 (D)廣域網路
3.          ( A ) 下列哪一種網路所涵蓋的範圍最小？  (A)LAN (B)MAN (C)WAN (D)Internet
4.          ( A ) 用來連接全世界大大小小網路的世界性網路，稱為  (A)網際網路 (B)區域網路 (C)企業網路 (D)都會網路
5.          ( D ) 志華家中有三台電腦，共用一台印表機來印製文件，這是因為電腦網路具有下列哪一項功能？
(A)檔案共享 (B)訊息傳遞與交換 (C)分工合作 (D)設備共享
6.          ( B ) 根據網路規模的大小以及距離的遠近，台灣學術網路（TANet）屬於：
(A)個人網路 (B)廣域網路 (C)都會網路 (D)區域網路
7.          ( C ) 通訊資料傳送速率，通常以每秒傳送的位元數為單位，簡稱  (A)cps (B)BBS (C)bps (D)pps
8.          ( A ) 網路頻寬（bandwidth）指的是同一時間內，網路資料傳輸的速率，下列何者是其常用的單位？
(A)BPS (B)CPS (C)FPS (D)GPS
9.          ( D ) 網際網路是屬於下列哪一種規模的電腦網路？ (A)個人化區域網路 (B)都會網路 (C)區域網路 (D)廣域網路
10.      ( C ) 下列哪一種網路服務的概念，其主要精神是提供個人化的服務？ (A)Web 1.0 (B)Web 2.0 (C)Web 3.0 (D)Web 4.0
11.      ( D ) 「網格運算」是一種彙集全球各地的電腦資源，以合力完成需耗用大量運算資源之工作（如大型研究計畫）的技術，請問上述的技術是應用了電腦網路的哪一種功能？
(A)檔案共享 (B)訊息傳遞與交換 (C)設備共享 (D)分工合作
12.      ( B ) 下列3種電腦網路，請依據其規模（涵蓋的範圍）由大到小排列順序　a.區域網路　b.網際網路　c.廣域網路
(A)abc (B)bca (C)acb (D)cab
13.      ( D ) 下列4個數值中，何者與其它三個不同？ (A)(768×220)bps (B)(0.75×230)bps (C)0.75Gbps (D)786,432bps
14.      ( D ) 下列哪些是電腦網路的功能？　a.檔案/設備共享　b.訊息傳遞與交換　c.分工合作  (A)ab (B)bc (C)ac (D)abc
15.      ( B ) 下列網路類型依涵蓋範圍大小比較，何者正確？
(A)WAN＞LAN＞Internet (B)Internet＞＝WAN＞LAN (C)WAN＝LAN＞Internet (D)Internet＞＝LAN＞WAN
16.      ( D ) 某電信業者推出iPhone優惠方案，購買iPhone搭配行動上網，月租費只要699元。請問上述行動上網主要是指連上下列哪一種網路？  (A)LAN (B)Intranet (C)Extranet (D)Internet
17.      ( C ) 連上『Facebook』網站即可查看好友的近況或分享自己的心情。請問以上情境最適合用來描述電腦網路的哪一種功能？  (A)檔案共享 (B)設備共享 (C)訊息傳遞交換 (D)分工合作
18.      ( A ) 電腦與通訊結合之資訊社會，一般所稱的 "LAN"，指的是何種網路？
(A)區域網路 (B)廣域網路 (C)都會網路 (D)網際網路
19.      ( A ) 下列有關光纖的敘述，何者有誤？  (A)只適於傳送數位化的信號 (B)可使用的頻寬，比同軸電纜高出許多
(C)由玻璃纖維所組成，不受電磁干擾 (D)傳輸速率高，體積細小
20.      ( B ) 一般住家網路長度小於100公尺，電腦要透過ADSL寬頻數據機上網，考量經濟因素，應選購下列哪一種傳輸媒介？  (A)光纖 (B)雙絞線 (C)粗同軸電纜 (D)細同軸電纜
21.      ( B ) 下列四種傳輸媒介中，何者最容易受到電磁波干擾？
(A)光纖 (B)雙絞線 (C)細同軸電纜 (D)粗同軸電纜
22.      ( A ) 下列有關通訊媒體的敘述，何者正確？  (A)相較於光纖（fiber optic），同軸電纜（coaxial cable）通常比較容易受到雜訊干擾 (B)微波（microwave）在傳送資料時，可以隨著地表曲線而彎曲進行 (C)紅外線沒有傳輸方向的限制 (D)Wi-Fi（wireless fidelity）是指以藍牙技術（Bluetooth）進行無線傳輸
23.      ( B ) 下列有關網路傳輸設備的敘述，何者錯誤？
(A)集線器（hub）可連接多個網路節點 (B)中繼器（repeater）主要用於連接兩個區域網路 (C)路由器（router）可連接多個網路 (D)交換器（switch）類似集線器可減少訊息發生碰撞的機率
24.      ( A ) 下列何者不是光纖網路的特性？  (A)價格較便宜 (B)訊號衰減率低 (C)重量輕 (D)安全性高
25.      ( B ) 下列何者是一種無線網路的傳輸媒介？  (A)光纖 (B)紅外線 (C)雙絞線 (D)同軸電纜
26.      ( B ) 下列何者屬於有線傳輸？  (A)紅外線 (B)光纖 (C)微波 (D)衛星
27.      ( D ) 下列何種介質的傳輸速率最快？  (A)電話線 (B)同軸電纜 (C)雙絞線電纜 (D)光纖纜線
28.      ( D ) 下列何種網路設備，可讓多對電腦在同一時間互相傳送資料？ (A)Bridge (B)HUB (C)Router (D)Switch
29.      ( A ) 下列何種網路設備可以作為區域網路與廣域網路連接時的橋樑？
(A)路由器（Router） (B)中繼器（Repeater） (C)集線器（Hub） (D)數據機（Modem）
30.      ( B ) 下列何種數據通信（Data Communication）傳輸媒體，具有最佳的雜訊隔離、安全性與傳輸效率？
(A)同軸電纜 (B)光纖 (C)微波 (D)紅外線
31.      ( C ) 下列那一種通訊線路是在空中依直線傳送資料，每隔約50公里便需架設一中繼站？
(A)同軸電纜 (B)光纖 (C)微波 (D)雙絞線
32.      ( B ) 下列哪一種傳輸媒體的有效傳輸距離最短，且易受地形地物之干擾？
(A)光纖 (B)紅外線 (C)雙絞線 (D)同軸電纜
33.      ( C ) 下列傳輸媒介中何者在單位時間內的資料傳輸量最大  (A)同軸電纜 (B)電話線 (C)光纖 (D)雙絞線
34.      ( B ) 下列網路傳輸設備中，何者是用來將網路訊號增強後再送出？
(A)橋接器（Bridge） (B)中繼器（Repeater） (C)路由器（Router） (D)交換器（Switch）
35.      ( B ) 下列關於在乙太網路中，所使用的雙絞線（UTP）和同軸電纜的敘述，何者正確？  (A)雙絞線等級1的傳輸速率，比雙絞線等級5的傳輸速率高 (B)雙絞線的最高傳輸速率，比同軸電纜的最高傳輸速率高 (C)雙絞線的最大傳輸距離，比同軸電纜的最大傳輸距離遠 (D)不同等級的雙絞線的最大傳輸距離都不同
36.      ( D ) 以下那一種電腦網路傳輸媒介，收訊端必須對準發訊端（誤差不得超過收訊角度）？
(A)光纖 (B)微波 (C)Wi-Fi (D)紅外線
37.      ( C ) 由內、外兩層導體和一層絕緣材料所組成，最外層再包裹著保護的外皮，這是哪一種傳輸媒介？
(A)光纖 (B)雙絞線 (C)同軸電纜 (D)單芯線
38.      ( A ) 全球定位系統主要是利用下列哪一項網路傳輸媒介？ (A)微波 (B)光纖 (C)同軸電纜 (D)紅外線
39.      ( B ) 在A廠牌的筆記型電腦廣告中，女主角可以在遠離塵囂的海邊一邊收聽音樂一邊上網。請問該部筆記型電腦最可能使用下列哪一個傳輸技術來連上網際網路？
(A)紅外線傳輸 (B)WiMAX (C)Bluetooth (D)RFID
40.      ( D ) 在同一辦公室裡，如果有20部以上的電腦，要分享一部具有網路功能的高速雷射印表機，下列何者是最合適的設備？  (A)集線器 (B)閘道器 (C)路由器 (D)列印伺服器
41.      ( A ) 在電腦通訊的傳輸媒體中，何者正確？
(A)雙絞線可當數位信號傳輸 (B)100BaseT理論上最高可達100Kbps的傳輸速度 (C)同軸電纜是目前使用的傳輸媒體之一，但不適用於寬頻 (D)光纖的傳輸媒體最高可達100Mbps傳輸速度，可適用於有線電視系統
42.      ( D ) 有關Modem的功能敘述，下列何者錯誤？
(A)它是調變解調器 (B)可將數位信號轉為類比信號 (C)可將類比信號轉為數位信號 (D)可透過網路平行式傳送資料到遠端的電腦
43.      ( B ) 利用玻璃纖維為介質傳遞資料，具小體積、高頻寬、不易受干擾特性的線路是？
(A)聲波 (B)光纖 (C)同軸電纜 (D)微波
44.      ( C ) 每當發生重大政經、社會事件時，電視台業者通常都會透過SNG連線，提供民眾即時的現場報導，請問SNG連線是採用下列哪一種傳輸媒介來傳遞即時的新聞畫面？
(A)光纖 (B)紅外線 (C)微波 (D)雙絞線
45.      ( A ) 某家網路咖啡店宣稱只要顧客來店消費，並攜帶配有無線網路卡的筆記型電腦，即可享受無線上網的服務，請問此家咖啡店的無線區域網路最可能採用下列哪一種通訊協定？
(A)Wi-Fi (B)RFID (C)Bluetooth (D)HTTP
46.      ( C ) 架設高速網路，或連接跨國網路時，會使用下列哪一項設備？ (A)紅外線 (B)雙絞線 (C)光纖 (D)同軸電纜
47.      ( B ) 若某公司的主管要求使用電子公文來減少列印傳統公文的紙張成本，請問使用下列哪一個設備，對減少紙張的使用毫無幫助？  (A)郵件伺服器 (B)列印伺服器 (C)檔案伺服器 (D)網站伺服器
48.      ( C ) 若要連上網際網路，電腦必須安裝下列哪一種設備？
(A)中繼器 (B)集線器 (C)網路卡 (D)光碟機
49.      ( A ) 若要連接兩個不同的網路區段，且具有選擇資料傳輸路徑的功能，則使用下列哪一種網路通訊設備最合適？
(A)路由器（Router） (B)集線器（Hub） (C)中繼器（Repeater） (D)橋接器（Bridge）

50.      ( A ) 國立宜蘭大學與格瑪數位公司產學合作，研發了一款內建有GPS全球定位系統的枴杖，讓持有這款枴杖的老人不管走到哪裡，都能讓他的家人找到他。請問這款枴杖最有可能是使用何種網路傳輸媒介來發送訊息？
(A)微波 (B)紅外線 (C)光纖 (D)雙絞線
計算練習題：考試時數字會改哦
1、假設一電腦網路的傳輸速率為 2Mbps，試問傳送 400KB檔案，需花幾秒？(四捨五入取整數)
   (課本p.209)
       400 * 1024(Bytes/KB) * 8(bits/Byte) ÷ [ 2 * 1000000 (bits/Mbps每秒) ]
      = 1.6384 秒 ，四捨五入=> 2秒
       

2、阿普將一張900KB的照片上傳至部落格，花了30秒，請問上傳速率約________Kpbs(四捨五入取整數)
(課本p.209)
        900* 1024(Bytes/KB) * 8(bits/Byte) ÷  x (bps) = 30秒
      => x = 245760bps = 245.76 Kbps，四捨五入=> 246 K bps


除了以上補充之外，小考1部份有可能為選擇改填充、有可能為課文內容(約佔5~10%)
另計算佔6%，會改數字、單位