控江杯初中赛前复习

“控江杯”初中组竞赛大纲数据结构程序语言中基本数据类型（字符、整型、长整型、实型、布尔）数组（字符串、一维数组、二维数组）与线性表枚举类型、记录类型文件类型程序设计能力三种基本结构、多重分支结构、多重循环结构具有针对模型设计简单算法的基本能力基本算法处理初等算法（计数、统计、枚举、解析等）排序算法（冒泡法、插入排序、合并排序、快速排序）查找算法（顺序查找、二分法）递推算法例1甲、乙两人加工了n个零件，而每个零件的卖价又恰为n元（n<1000），全部卖完后，两人分钱方法如下：先由甲拿十元，再由乙拿十元，如此轮流，拿到最后，剩下不足十元，轮到乙拿去。为了平均分配，甲应该补给乙多少元（整数元）？完全平方数的性质性质1：完全平方数的末位数只能是0,1,4,5,6,9。性质2：如果完全平方数的十位数字是奇数，则它的个位数字一定是6；反之，如果完全平方数的个位数字是6，则它的十位数字一定是奇数。分析n个零件的总价n2为元，由题意知n2元中含有奇数个10元，即完全平方数的十位数字是奇数。根据性质2得出末位数字为6，即乙最后拿的是6元，从而为平均分配，甲应补给乙2元。解题分析由于先从甲开始分发十元，乙最后拿，因此，n>3并且n<1000设m=n*n为总价为了平分，m必须为偶数由于乙最后一次少拿，mdiv10的商为奇数Mmod10的余数在1~9之间程序var

i,a,c:longint;

f:text;begin

assign(f,'d:\sellgoat.out');

rewrite(f); fori:=4to1000do begin a:=i*i; c:=a-10*(adiv10); if(cin[1..9])andodd(adiv10)and(amod2=0) thenwriteln(f,i) end;

close(f);end.例2学校选举学生会主席，投票后需根据每个候选人的票数排出名次。现在请你编写一个程序，按顺序输入各个候选人所得的票数，请输出各个候选人的名次（候选人<10）。输入文件bisai.in输出文件bisai.out

有两行，第一行为候选人编号，第二行为候选人名次输入样例

5352348129输出样例

1234523145Vara,b:array[1..10]ofinteger;

i,j,n,t:integer;Begin

assign(input,’bisai.in’);

assign(output,’bisai.out’);

reset(input);rewrite(output);

readln(n);fori:=1tondobegin

read(a[i]);

b[i]:=a[i];end;fori:=1ton-1doforj:=ndowntoi+1doifa[j]>a[j-1]thenbegint:=a[j];a[j]:=a[j-1];a[j-1]:=t;end;

fori:=1tondo

write(i,’’);

writeln;fori:=1tondoforj:=1tondoifa[j]=b[i]thenwrite(j,’’);

close(input);

close(output);End.例3输入n，对n做乘法分解，输出所有可能的因子对。输入文件cf.in输出文件cf.out输入样例8输出样例1824var

n,i:integer;begin

assign(input,'cf.in');

assign(output,'cf.out');

reset(input);

rewrite(output);

readln(n);fori:=1totrunc(sqrt(n))doifnmodi=0thenwriteln(i,'',ndivi);

close(input);

close(output);end.例4输入文件zm1.in输出文件zm1.out输入样例5输出样例ABCDEPFOGNHMLKJIvar

i,n:integer;beginassign(input,'zm1.in');assign(output,'zm1.out');

reset(input);

rewrite(output);

readln(n);fori:=1tondowrite(chr(64+i),'');{输出第一行}

writeln;fori:=1ton-2dowriteln(chr(64+4*n-i-3),'':2*(n-2)+1,chr(6