【USACO】修理牛棚

题目描述

在一个暴风雨的夜晚,农民约翰的牛棚的屋顶、门被吹飞了。 好在许多牛正在度假,所以牛棚没有住满。 剩下的牛一个紧挨着另一个被排成一行来过夜。 有些牛棚里有牛,有些没有。 所有的牛棚有相同的宽度。 自门遗失以后,农民约翰必须尽快在牛棚之前竖立起新的木板。 他的新木材供应者将会供应他任何他想要的长度,但是供应者只能提供有限数目的木板。 农民约翰想将他购买的木板总长度减到最少。 给出 M(1<= M<=50),可能买到的木板最大的数目;S(1<= S<=200),牛棚的总数;C(1 <= C <=S) 牛棚里牛的数目,和牛所在的牛棚的编号stall_number(1 <= stall_number <= S),计算拦住所有有牛的牛棚所需木板的最小总长度。 输出所需木板的最小总长度作为的答案。

输入

第 1 行: M , S 和 C(用空格分开) 第 2 到 C+1行: 每行包含一个整数,表示牛所占的牛棚的编号。

输出

单独的一行包含一个整数表示所需木板的最小总长度。

样例输入

4 50 18
3
4
6
8
14
15
16
17
21
25
26
27
30
31
40
41
42
43

样例输出

25

提示

 

来源

[提交][状态][讨论版]

 

 

 

 

 

var
    a:array[1..200]of longint;
    q,w,b,f,d,i,j,m,s,c,u,v,ans,max,ind,k:longint;
begin
    readln(m,s,c);
    for i:=1 to c do
    begin
        readln(b);
        a[b]:=1;
    end;

    u:=1while(a[u]<>1do inc(u);
    v:=s; while(a[v]<>1do dec(v);
    ans:=v-u+1;
    for i:=u to v do
        if(a[i]<>0then a[i]:=0 else a[i]:=1;

    for i:=u to v-1 do
        if(a[i]*a[i+1]<>0then
        begin
            a[i+1]:=a[i+1]+a[i];
            a[i]:=0;
        end;
    if m>=c then writeln(c)
    else
    begin
        for k:=1 to m-1 do
        begin
            max:=a[u]; ind:=u;
            for i:=u+1 to v do
                if a[i]>max then begin max:=a[i]; ind:=i; end;
            ans:=ans-max; a[ind]:=0;
        end;
        writeln(ans);
    end;
end.

 

 

#include<cstdio>
#include<algorithm>
using namespace std;
int main(){
    int i,n,m,t=0,s,a[210],gap[210];
    scanf("%d%d%d",&m,&s,&n);
    for(i=0;i<n;i++)scanf("%d",&a[i]);
    sort(a,a+n);
    for(i=0;i<n-1;i++)
        if(a[i+1]-a[i]>1)gap[t++]=a[i+1]-a[i]-1;
    sort(gap,gap+t);
    for(s=0,i=t-1;i>=t-m+1;i--)s+=gap[i];
    printf("%d\n",a[n-1]-a[0]+1-s);
    return 0;
}

 

 

 

//有错,不知何处

var
    a:array[1..210]of longint;
    m,s,c,n,i,x:longint;
procedure BUB;
var i,j,t:longint;
begin
    for i:=1 to n-1 do
        for j:=1 to n-i do
            if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; end;
end;

begin
    readln(m,s,c);
    for i:=1 to c do read(a[i]);
    n:=c;
    BUB;
    x:=a[n]-a[1]+1;

    for i:=1 to n-1 do a[i]:=a[i+1]-a[i]-1;
    dec(n);
    BUB;

    for i:=n downto n-m+2 do x:=x-a[i];
    writeln(x);
end.

 

 

posted @ 2013-04-14 18:42  qilinart  阅读(267)  评论(0编辑  收藏  举报