NOIP提高组初赛试题汇编(2002-2009)(5)

NOIP提高组初赛试题汇编(2002-2009)noip考试者必备我也是马上要考了!!!

begin

yu:=c[j0];j1:=j0;s:=b[j0];while②__________dobegin

③__________j1:=j1+1;s:=s+b[j1];end;

④__________j0:=j1+1;end;

fori:=1tondo⑤__________readln;end.

二．问题描述问题描述：，分别记为P1，P2，……，Pn，用n种基本物质构：有n种基本物质（n≤10）

，每个地区对物品提出自己造物质，这些物品使用在k个不同地区（k≤20）

的要求，这些要求用一个n位的数表示：a1a2……an，其中：ai=1表示所需物质中必须有第i种基本物质

=-1表示所需物质中必须不能有第i种基本物质=0无所谓

问题求解：问题求解：当k个不同要求给出之后，给出一种方案，指出哪些物质被使用，哪些物质

不被使用。

程序说明：程序说明：数组b[1],b[2]……b[n]表示某种物质

a[1..k,1..n]记录k个地区对物品的要求，其中：a[i,j]=1表示第i个地区对第j种物品是需要的a[i,j]=0表示第i个地区对第j种物品是无所谓的a[i,j]=-1表示第i个地区对第j种物品是不需要的

程序：程序：

programgxp2;var

i,j,k,n:integer;p:boolean;b:array[0..20]of0..1;a:array[1..20,1..10]ofinteger;begin

readln(n,k);fori:=1tokdobegin

forj:=1tondoread(a[i,j]);readln;end;

fori:=0tondob[i]:=0;p:=true;

while①__________dobeginj:=n;

whileb[j]=1doj:=j-1;