【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

提示

 

来源

USACO

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

 

 

 

 

 

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

     for i:=u  to v- 1  do
         if(a[i]*a[i+ 1]<> 0)  then
         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.

 

 

转载于:https://www.cnblogs.com/qilinart/articles/3020716.html