2011年10月19日 星期三

97模擬 Problem 4 (百貨公司打折程式

豪慷慨百貨公司週年慶的打折策略，吸引了許多客人上門，因此公司決定再回饋客戶，當客戶消費超過2000 元時打7 折，消費超過5000 元時打6 折，消費超過10000 元時打55 折。請幫該公司寫出一個新的收銀台程式，輸入顧客購買總金額n 後，計算顧客實際需付的錢。

輸入說明：
購買金額n

輸出說明：
實付金額

輸入範例：
3000
6000
12000

輸出範例：
2100
3600
6600
張貼者： 於
標籤：

2 則留言:

  1. 匿名2011年10月20日 上午9:33

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)

    Input #1, X
    Select Case X
    Case Is >= 10000: Print #2, X * 0.55
    Case Is >= 5000: Print #2, X * 0.6
    Case Is >= 2000: Print #2, X * 0.7
    Case Else: Print #2, X
    End Select

    Loop
    Close #2
    Close #1
    End
    End Sub

    回覆刪除
  2. Arro2011年10月20日 上午10:15

    Private Sub Form_Load()
    Me.Hide
    Open App.Path & "\in.txt" For Input As #1
    Open App.Path & "\out.txt" For Output As #2
    Do While Not EOF(1)
    Input #1, n
    Select Case n
    Case Is >= 10000: Print #2, n * 0.55
    Case Is >= 5000: Print #2, n * 0.6
    Case Is >= 2000: Print #2, n * 0.7
    Case Else: Print #2, n
    End Select
    Loop
    Close #2
    Close #1
    End
    End Sub

    回覆刪除

訂閱： 張貼留言 (Atom)