NOIP 2011 提高组第一试 选择客栈

 

解题思路：先读入数据，用一个数组以颜色为下标，再用记录类型开数组储存每种颜色的客栈，然后用多重循环，如果有符合条件的就加上它后面所有同颜色的客栈数量，最后输出答案即可。

程序：

const

  maxn=200000;

type

  color=record

         seat:array[1..maxn]oflongint;

         sum:longint;

       end;

var

  a:array[1..maxn]of longint;

  b:array[0..50]of color;

  n,k,p,i,j,l,ans:longint;

procedure init;

  var

    i,x,y:longint;

  begin

    readln(n,k,p);

    for i:=1 to n do

     begin

       readln(x,y);

       inc(b[x].sum);

       b[x].seat[b[x].sum]:=i;

       a[i]:=y;

     end;

end;

procedure main;

  var

   i,j,l,l1,x:longint;

    f:boolean;

  begin

    init;

    for i:=0 to k do

      forj:=1 to b[i].sum-1 do

       for l:=b[i].seat[j] to b[i].seat[b[i].sum]do

         if (a[l]<=p) then

          begin

            for l1:=j to b[i].sum do

              if (b[i].seat[l1]>=l)then

               begin

                 x:=l1-1;

                 if (l1=1)or(l1=j) theninc(x);ans:=ans+b[i].sum-x;

                 break;

                end;

            break;

           end;

    writeln(ans);

end;

begin

  main;

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v6td.html

转载时必须以链接形式注明原始出处及本声明。