宁波
宁波奥数网

宁波站
奥数网

2014年第29届宁波计算机程序设计竞赛复赛小学组答案

家长帮社区 2014-04-10 15:51:50

    宁波奥数网讯: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

相关推荐

点击查看更多
重点初中
首页 导航