竞赛阅读程序测试试题及其答案 知识竞赛答案.docx
- 文档编号:6042618
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:26
- 大小:17.05KB
竞赛阅读程序测试试题及其答案 知识竞赛答案.docx
《竞赛阅读程序测试试题及其答案 知识竞赛答案.docx》由会员分享,可在线阅读,更多相关《竞赛阅读程序测试试题及其答案 知识竞赛答案.docx(26页珍藏版)》请在冰豆网上搜索。
竞赛阅读程序测试试题及其答案知识竞赛答案
竞赛阅读程序测试试题及其答案知识竞赛答案
“竞赛阅读程序测试”及其
第1题(6分)
programyd;
vard,p:
integer;
begin
p:
=1;
d:
=11;
whiled>1do
begin
p:
=2*(p+1);
d:
=d-1
end;
writeln(p)
end.
输出:
______
答案:
3070
第2题(6分)
programyd;
var
g,m:
integer;
k,t:
real;
begin
k:
=0;g:
=0;
form:
=1to49do
begin
g:
=g+1;
k:
=k+1/(g*(g+1))
end;
writeln(k:
10:
2)
end.
输出:
______
答案:
0.98
第3题(6分)
programyd;
var
n,i,t:
longint;
tem:
integer;
s:
string;
begin
write("Inputn:
");readln(n);
s:
="1";
repeat
i:
=length(s);
whiles[i]="1"do
begin
s[i]:
="0";dec(i);
end;
ifi>0thens[i]:
="1"
elses:
="1"+s;
val(s,t,tem);
untiltmodn=0;
writeln(n,"*",tdivn,"=",s);
end.
输入:
6
输出:
______
答案:
6*185=1110
第4题(6分)
programyd;
constn=5;
var
i,j,m,s:
integer;
begin
m:
=0;
fori:
=1tondo
begin
m:
=m+i;
s:
=m;
forj:
=1to2*idowrite("");{""
forj:
=1tondo
begin
write(smod10:
2);
s:
=s+j;
end;
writeln;
end;
end.
输出:
______
答案:
12471
34693
67926
01360
56815
第5题(7分)
programyd;中间是一个空格}
var
a:
array[0..8]ofchar;
i:
integer;
begin
fori:
=1to8doa[i]:
=char(i*2+ord("A"));fori:
=1to4dobegin
a[0]:
=a[i];
a[i]:
=a[9-i];
a[9-i]:
=a[0];
end;
fori:
=1to8dowrite(a[i]);
writeln;
end.
输出:
______
答案:
QOMKIGEC
第6题(7分)
Programyd;
var
n,i,x:
integer;
d:
array[0..10]ofinteger;
begin
readln(n);
fori:
=1tondo
begin
read(x);
d[x]:
=d[x]+1;
end;
d[0]:
=0;
fori:
=1to10dod[i]:
=d[i-1]+d[i];
fori:
=1to10do
ifd[i]d[i-1]thenwriteln(i:
3,d[i-1]+1:
4);end.
输入:
20
34617694107
66338791067
输出:
_______
答案:
11
32
45
67
712
816
917
1019
第7题(7分)
programyd;
var
a,b:
array[1..32]ofinteger;
i:
integer;
proceduressort(i,j:
integer);
var
m,k,x:
integer;
begin
ifj-i>1then
begin
m:
=(i+j)div2;
ssort(i,m);
ssort(m+1,j);
k:
=i;
forx:
=itomdo
begin
b[k]:
=a[x];b[k+1]:
=a[m+x-i+1];
k:
=k+2;
end;
forx:
=itojdoa[x]:
=b[x];
end;
end;
begin
fori:
=1to16doa[i]:
=i;
ssort(1,16);
fori:
=1to16dowrite(a[i]:
3);
writeln;
end.
输出:
______
答案:
19513311715210614412816第8题(6分)
programyd;
var
a,d:
array[1..100]ofinteger;
n,i,j,k,x,s:
integer;
begin
n:
=5;a[1]:
=1;d[1]:
=1;
fori:
=1tondo
begin
s:
=i+1;x:
=0;
forj:
=1ton+1-ido
begin
k:
=s+x;x:
=x+1;a[j+1]:
=a[j]+k;
write(a[j],"");
end;
writeln("...");d[i+1]:
=d[i]+i;a[1]:
=d[i+1];end;
end.
输出:
_________
答案:
1361015...
25914...
4813...
712...
11...
第9题(7分)
programyd;
const
d:
array[0..3,1..4]ofinteger
=((4,7,10,13),(1,8,11,14),(2,5,12,15),(3,6,9,16));var
i,j,a,x,k,bj:
integer;
y,u,v:
real;
begin
fori:
=1to4do
begin
a:
=3-i;bj:
=0;
forj:
=0to3do
fork:
=1to4do
begin
x:
=d[j,k];u:
=(x+a)/4;v:
=(x+trunc(u))/4;y:
=4*(v-trunc(v));
ifyjthenbegink:
=4;j:
=3;bj:
=1;end;end;
ifbj=0then
begin
write("U=(X");
ifa>0thenwrite("+");
writeln(a,")/4");
end;
end;
end.
输出:
_________
答案:
U=(X-1)/4
第10题(7分)
programyd;
const
a:
array[1..10]ofinteger
=(8,2,7,4,6,9,3,5,3,8);
typepoint=^nod;
nod=record
w:
integer;right,left:
point
end;
varfirst,head:
point;
j,i,k:
integer;
procedurehyt(d:
integer;varp:
point);
begin
ifp=nilthen
begin
new(p);
ifk=1thenbeginfirst:
=p;k:
=2;end;
withp^do
beginw:
=d;right:
=nil;left:
=nilend;end
elsewithp^do
ifd>=wthenhyt(d,right)elsehyt(d,left);end;
procedurehyt1(p:
point);
begin
withp^do
begin
ifleftnilthenhyt1(left);
write(w:
4);
ifrightnilthenhyt1(right);
end;
end;
begin
i:
=10;
first:
=nil;k:
=1;
forj:
=1toidohyt(a[j],first);
hyt1(first);writeln
end.
输出:
_________
答案:
2334567889
第11题(7分)
programyd;
varm,n,i,p,k:
integer;
r:
array[1..200]ofinteger;
b:
boolean;
begin
m:
=6;n:
=2;
fori:
=1tom-1dor[i]:
=i+1;
r[m]:
=1;i:
=0;p:
=1;b:
=true;
whilebdo
begin
i:
=i+1;k:
=p;p:
=r[p];
ifk=pthenbeginwriteln(p);b:
=falseendelseifi=n+1then
begin
write(p,"");i:
=0;p:
=r[p];r[k]:
=p;end
end
end.
输出:
________
答案:
421365
第12题(7分)
programyd;
varn,k,s:
longint;
begin
n:
=1000000000;
k:
=0;
s:
=1;
whiles
begin
k:
=k+1;
n:
=n-s;
s:
=s+6*k
end;
writeln(k)
end.
输出:
_______
答案:
1000
第13题(7分)
programyd;
const
a:
array[1..14]oflongint
=(94,32,40,90,99,80,46,21,69,28,64,73,85,54);var
i,j,k,m,left,right,temp:
longint;begin
m:
=8;
left:
=1;
right:
=14;
whileleft
begin
k:
=a[m];
i:
=left;
j:
=right;
repeat
whilek
whilek>a[i]doi:
=i+1;
ifi
begin
temp:
=a[i];
a[i]:
=a[j];
a[j]:
=temp;
i:
=i+1;
j:
=j-1
end
untili>j;
ifj
ifi>mthenright:
=j
end;
writeln(a[m])
end.
输出:
_______
答案:
69
第14题(7分)
programyd;
var
m,n,s:
longint;
procedurepl(n:
longint);
begin
ifn0then
begin
pl(ndiv2);
s:
=(s*2+nmod2*m)mod1023
end
end;
begin
m:
=xx;
n:
=5871;
s:
=0;
pl(n);
writeln(s);
end.
输出:
_______
答案:
495
第15题(7分)
programyd;
const
maxn=10000;
var
i,j,k,n,r,p,g:
longint;
a:
array[1..maxn]oflongint;
functiongcd(m,n:
longint):
longint;varr:
longint;
begin
whilen0do
begin
r:
=mmodn;
m:
=n;
n:
=r
end;
gcd:
=m
end;
begin
n:
=1000;
r:
=202;
fori:
=1ton-rdoa[i]:
=n-i+1;fori:
=2tordo
begin
k:
=i;
forj:
=1ton-rdo
ifgcd(k,a[j])>1thenbegin
g:
=gcd(k,a[j]);
k:
=kdivg;
a[j]:
=a[j]divg;
ifk=1thenpeak
end
end;
p:
=1;g:
=0;
fori:
=1ton-rdobegin
p:
=p*a[i];
whilepmod5=0dobegin
p:
=pdiv5;g:
=g+1
end;
p:
=pmod5end;
writeln(g)
end.
输出:
________答案:
151
内容仅供参考
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 竞赛阅读程序测试试题及其答案 知识竞赛答案 竞赛 阅读 程序 测试 试题 及其 答案 知识竞赛