假設你身為一個台電工程師，你正要為 GOGO 百貨的電梯設計一套電費計算系統，來計算GOGO 百貨的電梯每天所耗的電費是多少。已知電梯所耗的電力會和它所運作的樓層成正比，但是電梯下樓比上樓要省電。所以想請你根據下面這個規則，設計一套電費計算系統。
(1) 電梯上樓時，每經過一個樓層，要花電費 20 元。
(2) 電梯下樓時，每經過一個樓層，要花電費 10 元。
(3) 你可以假設電梯停在某一個樓層時不會耗電。
舉例來說：今天有一個電梯從2 樓到8 樓再到5 樓，則所耗的電費為：從2樓到8 樓，所耗的電費是(8-2) x 20 = 120 元。電梯從8 樓到5 樓，所耗的電費是(8-5) x 10 = 30 元。所以總共花了150 元。
輸入說明 ：
輸入檔中會有多筆資料，第一行是一個整數 N(1
輸入測資中的電梯樓層最高不會超過 101 樓。
輸出說明 ：
請根據電梯上下運作的樓層，計算出在一日中電梯運作所花的電費。（為了節能減碳，每日電費最高不會超過10,000 元。）
範例輸入 ：
3
2 8 5
7
2 9 7 3 4 6 1
0
範例輸出 ：
150
310
Dim Floor As Integer
回覆刪除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
Sum = 0
Input #1, Floor
If Floor = 0 Then Exit Do
ReDim A(Floor) As Integer
Line Input #1, StN
AA = Split(StN)
Print UBound(AA)
For i = UBound(AA) + 1 To 1 Step -1
A(i) = AA(i - 1)
Next i
For i = 1 To Floor - 1
If A(i) < A(i + 1) Then
Sum = Sum + (A(i + 1) - A(i)) * 20
Else
Sum = Sum + (A(i) - A(i + 1)) * 10
End If
Next i
Print #2, Sum
Loop
Close #2
Close #1
End
End Sub
BY小白
Public Sub Form_Load()
回覆刪除Open App.Path & "/in.txt" For Input As #1
Open App.Path & "/out.txt" For Output As #2
Me.Hide
Do
Input #1, flo
If flo = 0 Then Exit Sub
mon = 0
Input #1, n
For i = 2 To flo
Input #1, k
m = (k - n)
If m >= 0 Then
mon = mon + m * 20
Else
mon = mon + Abs(m) * 10
End If
n = k
Next i
Print #2, mon
Loop
End
Close #2
Close #1
End Sub
BY Yung