內容 :
喵嗚建設公司最近由北到南蓋了一整排共n棟的大樓,且每棟大樓是緊緊貼在一起的
而喵嗚建設公司希望能夠帶給住戶舒適的住宅環境,因此決定在東面窗上貼滿隔熱紙
然而預算有限,不能有任何隔熱紙被浪費,又切割隔熱紙是一向充滿麻煩的工程
你可以幫喵嗚建設公司算出至少要幾張矩形的隔熱紙才能貼滿整排大樓的東側嗎?
輸入說明 :
第一行有一個正整數 n(n<=100000),代表有幾棟大樓
接下來n行每行有兩個正整數(<=1,000,000,000),依序代表每棟大樓的寬度及高度
輸出說明 :
輸出最少所需要的隔熱紙數
範例輸入 :
5
1 2
1 3
2 2
2 5
1 4
範例輸出 :
4
Dim aa(1000) As Integer
回覆刪除Dim bb(1000) As Integer
Public Sub Form_Load()
Me.Hide
Open App.Path & "/in.txt" For Input As #1
Open App.Path & "/out.txt" For Output As #2
Input #1, x
Max = 1: suma = 0: sumb = 0
For i = 1 To x
Input #1, aa(i), bb(i)
If aa(i) > Max Then Max = aa(i): nmax = bb(i)
If bb(i) > Max Then Max = bb(i): nmax = aa(i)
suma = suma + aa(i)
sumb = sumb + bb(i)
Next i
suka = -Int(-suma / nmax)
sukb = -Int(-sumb / Max)
If suka > sukb Then
Print #2, suka
Else
Print #2, sukb
End If
Close #2
Close #1
End
End Sub
BY Yung