2010年10月26日 星期二

隔熱紙

內容 :
喵嗚建設公司最近由北到南蓋了一整排共n棟的大樓,且每棟大樓是緊緊貼在一起的
而喵嗚建設公司希望能夠帶給住戶舒適的住宅環境,因此決定在東面窗上貼滿隔熱紙
然而預算有限,不能有任何隔熱紙被浪費,又切割隔熱紙是一向充滿麻煩的工程
你可以幫喵嗚建設公司算出至少要幾張矩形的隔熱紙才能貼滿整排大樓的東側嗎?

輸入說明 :
第一行有一個正整數 n(n<=100000),代表有幾棟大樓
接下來n行每行有兩個正整數(<=1,000,000,000),依序代表每棟大樓的寬度及高度
輸出說明 :
輸出最少所需要的隔熱紙數
範例輸入 :

5
1 2
1 3
2 2
2 5
1 4
範例輸出 :

4

1 則留言:

  1. 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

    回覆刪除