2014年第29届宁波计算机程序设计竞赛复赛小学组答案
宁波奥数网讯:2014年宁波市第二十九届计算机程序设计竞赛早已经落下帷幕,获奖名单也早已公布。不过宁波e度论坛用户分享了试题和试题答案,供下一届的考生参考!
编程复赛试题:2014年第29届宁波计算机程序设计竞赛复赛小学组题目
编程获奖名单:2014年第29届宁波市中小学生计算机程序设计竞赛获奖名单
编程复赛试题答案参考(个人版)[查看原帖参与讨论]
一、
varn,x,y,xmax,xmin,ymax,ymin,lx,ly,max,i:longint;
begin
assign(input,'star.in');reset(input);
assign(output,'star.out');rewrite(output);
xmin:=20000;
ymin:=20000;
readln(n);
fori:=1tondo
begin
readln(x,y);
ifx>xmaxthenxmax:=x;
ifxymaxthenymax:=y;
ifylythenwriteln(lx*lx)
elsewriteln(ly*ly);
close(output);close(input);
end.
二、vara,b:array[1..7]oflongint;
i,j,k,s:longint;
begin
assign(input,'ball.in');reset(input);
assign(output,'ball.out');rewrite(output);
a[1]:=1;a[2]:=2;a[3]:=3;a[4]:=4;a[5]:=5;a[6]:=6;a[7]:=7;
fori:=1to7do
begin
read(b);
s:=s+a*b;
end;
k:=7;
whileb[k]=0dodec(k);
s:=s+b[1]*a[k];
writeln(s);
close(output);close(input);
end.
三、
vara:array[1..300]ofinteger;
n,b,c,d,k:integer;
procedurest(l,r:longint);
vari,j,x,y:longint;
begin
x:=a[(l+r)div2];
i:=l;j:=r;
whileixdodec(j);
whilea