NOIP全国青少年信息学奥赛.ppt

第十一届全国青少年信息学奥赛2005年普及组初赛（pascal）解题报告（阅读程序、完善程序）阅读程序第一题var

a,b:integer;

begin

read(a);

b:=(a*(a*a))+1;

ifbmod3=0thenb:=bdiv3;

ifbmod5=0thenb:=bdiv5;

ifbmod7=0thenb:=bdiv7;

ifbmod9=0thenb:=bdiv9;

ifbmod11=0thenb:=bdiv11;

ifbmod13=0thenb:=bdiv13;

ifbmod15=0thenb:=bdiv15;

writeln((100*a-b)div2);

end.

输入：10

输出：

阅读程序第二题var

str:string;

i:integer;

begin

str:=Today-is-terrible!;

fori:=7to11do

ifstr[i]=-thenstr[i-1]:=x;

fori:=13downto1do

ifstr[i]=tthenstr[i+1]:=e;

writeln(str);

end.

输出：

阅读程序第三题

var

a,b,c,p,q:integer;

r:array[0..2]ofinteger;

begin

read(a,b,c);

p:=adivbdivc;

q:=b-c+a+p;

r[0]:=a*pdivq*q;

r[1]:=r[0]*(r[0]-300);

if(3*q-pmod3=r[0])and(r[2]=r[2])then

r[1]:=r[r[0]divpmod2]

elser[1]:=qmodp;

writeln(r[0]-r[1]);

end.

输入：10073

输出：

阅读程序第四题var

str:string;

len,i,j:integer;

nchr:array[0..25]ofinteger;

mmin:char;

begin

mmin:=z;

readln(str);len:=length(str);

i:=len;

whilei=2dobegin

ifstr[i-1]str[i]thenbreak;dec(i);

end;

ifi=1thenbegin

writeln(Noresult!);exit;

end;

forj:=1toi-2dowrite(str[j]);

fillchar(nchr,sizeof(nchr),0);

forj:=itolendobegin

if(str[j]str[i-1])and(str[j]mmin)then

mmin:=str[j];

inc(nchr[ord(str[j])-ord(a)]);

end;

dec(nchr[ord(mmin)-ord(a)]);

inc(nchr[ord(str[i-1])-ord(a)]);

write(mmin);

fori:=0to25do

forj:=1tonchr[i]do

write(chr(i+ord(a)));

writeln;

end.

输入：zzyzcccbbbaaa

输出：

完善程序第一题1．判断质数

题目描述:

给出一个正整数，判断这个数是否是质数。

输入:

一个正整数n(1≤n≤10000)。

输出:

如果n是质数，输出YES；否则，输出NO。

输入样例:

10

输出样例:

NO

2．木材加工

题目描述:

木材厂有一些原木，现在想把这些木头切割成一些长度相同的小段木头（木头有可能有

剩余），需要得到的小段的数目是给定的。当然，我们希望得到的小段越长越好，你的任务是计算能够得到的小段木头的最大长度。木头长度的单位是cm。原木的长度都是正整数，我们要求切割得到的小段木头的长度也是正整数。

输入:

第一行是两个正整数N和K(1≤N≤10000，1≤K≤10000)，N是原木的数目，K是需要得到的小段的数目。

接下来的N行，每行有一个1到10000之间的正整数，表示一根原木的长度。

输出:

输出能