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

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

if(d1+d2)<MinthenMin:=d1+d2;X:=x+0.001;end;

writeln(Min:10:2);end.

输出：输出：

完善程序：四．完善程序：（15+15=30分）1．问题描述问题描述：：工厂在每天的生产中，需要一定数量的零件，同时也可以知道每天生产一个

零件的生产单价。在N天的生产中，当天生产的零件可以满足当天的需要，若当天用不完，可以放到下一天去使用，但要收取每个零件的保管费，不同的天收取的费用也不相同。

问题求解：，使总的费用最问题求解：求得一个N天的生产计划（即N天中每天应生产零件个数）

少。输入：输入：N（天数N<=29）

每天的需求量（N个整数）

每天生产零件的单价（N个整数）每天保管零件的单价（N个整数）

输出：输出：每天的生产零件个数（N个整数）

例如：当N=3时，其需要量与费用如下：

第一天

需要量生产单价保管单价第一天254070

第二天1500

25205第三天30300

第二天153010

第三天30320

总的费用

25*20+15*30+30*32=191040*20+15*5+30*32=183570*20+45*5+30*10=1925

生产计划的安排可以有许多方案，如下面的三种：

程序说明：程序说明：

b[n]：存放每天的需求量c[n]：每天生产零件的单价d[n]：每天保管零件的单价e[n]：生产计划程序：程序：

programexp5;var

i,j,n,yu,j0,j1,s:integer;b,c,d,e:array[0..30]ofinteger;begin

readln(n);

fori:=1tondoreadln(b[i],c[i],d[i]);fori:=1tondoe[i]:=0;

①__________:=10000;c[n+2]=0;b[n+1]:=0while(j0<=n)do

j0:=1;