阅读程序题.docx
- 文档编号:12229136
- 上传时间:2023-04-17
- 格式:DOCX
- 页数:19
- 大小:22.60KB
阅读程序题.docx
《阅读程序题.docx》由会员分享,可在线阅读,更多相关《阅读程序题.docx(19页珍藏版)》请在冰豆网上搜索。
阅读程序题
1.请将以下程序段表示的计算公式写出来(假设X的值已给出)
E:
=1;A:
=1;
FORN:
=1TO10DO
BEGIN
A:
=A*X/N;
E:
=E+A;
ENDFOR;
写出所表示的公式。
2.阅读下列程序段,写出程序段运行后变量X的值。
100X1=3
X1:
=3;
X2:
=8;
FORI:
=1TO5DO
BEGIN循环结构,应用数据轮换方式,求
X:
=(X1+X2)*2;两个数和的2倍。
X1:
=X2;X2:
=X;
END;
WRITELN(‘X=’,X);
3.阅读下列程序段,写出程序运行后数组元素A1,A2,…,A11中的值。
A[1]:
=1;
A[2]:
=1;K:
=1;
REPEAT
A[K+2]:
=1;
FORI:
=K+1DOWNTO2DO
A[I]:
=A[I]+A[I-1];
K:
=K+1;
UNTILK>=10;
4.programexp1(imput,output);
vari,s,max:
integer;
a:
array[1..10]ofinteger;
begin
fori:
=1to10doread(a[i]);
max:
=a[1];s:
=a[1];
fori:
=2to10do
begin
ifs<0thens:
=0;
s:
=s+a[i];
ifs>maxthenmax:
=s
end;
writeln(‘max=’,max)
end.
输入:
-213-1478-1-18246
输出:
max=
输入:
89-124651115-289
输出:
max=
5.programexp2(input,output);
constn=5;
vari,j,k:
integer;
a:
array[1..2*n,1..2*n]ofinteger;
begin
k:
=1;
fori:
=1to2*n-1do
ifi<=nthen
ifodd(i)thenforj:
=idownto1dobegina[i-j+1,j]:
=k;k:
=k+1end
elseforj:
=1toidobegina[i-j+1,j]:
=k;k:
=k+1;end
elseifodd(i)thenforj:
=ndowntoi-n+1do
begina[i-j+1,j]:
=k;k:
=k+1;end
elseforj:
=i-n+1tondo
begina[i-j+1,j]:
=k;k:
=k+1;end;
fori:
=1tondo
begin
forj:
=1tondowrite(a[i,j]:
3);
writeln
end;
end.
6.programexp3(input,output);
constn=10;
vars,i:
integer;
functionco(i1:
integer):
integer;
varj1,s1:
integer;
begin
s1:
=n;forj1:
=(n-1)downto(n-i1+1)dos1:
=s1*j1div(n-j1+1);
co:
=s1
end;
begin
s:
=n+1;fori:
=2tondos:
=s+co(i);
writeln(‘s=’,s);
end.
7.programexp4(input,output);
constn=3;
vari,j,s,x:
integer;
p:
array[0..n+1]ofinteger;
g:
array[0..100]ofinteger;
begin
fori:
=0to100dog[i]:
=0;
p[0]:
=0;p[n+1]:
=100;fori:
=1tondoread(p[i]);readln;
fori:
=0tondo
forj:
=i+1ton+1dog[abs(p[j]-p[i])]:
=g[abs(p[j]-p[i])]+1;
s:
=0;fori:
=0to100doifg[i]>0thenbeginwrite(i,:
4);s:
=s+1;end;
writeln;writeln(‘s=’,s);writeln(‘inputdata:
’);readln(x);
writeln(g[x])
end.
输入:
102065
inputdata:
10
输出:
8.programexcpl;
varx,y,y1,jk,j1,g,e:
integcr;
a:
array[l..20]of0..9;
begin
x:
=3465;y:
=264;jk:
=20;forj1:
=1to20doa[j1]:
=0;
whiley<>0do
begin
y1:
=ymod10;y:
=ydiv10;
whiley1<>0do
begin
g:
=x;
fore:
=jkdownto1dobeging:
=g+a[e];a[e]:
=gmod10;g:
=gdiv10end;
y1:
=y1-1
end;
jk:
=jk-1
end;
j1:
=1;whilea[j1]=0doj1:
=j1+1;
forjk:
=j1to20dowrite(a[jk]:
4);writeln
end.
9.programexcp2
vari,j:
integer;
a:
array[1..14]ofinteger;
proceduresw(i1,j1:
integer);
vark1:
integer;
begin
fork1:
=1to(j1-i1+1)div2do
begin
a[i1+k1-1]:
=a[i1+k1-1]+a[j1-k1+1];
a[j1-k1+1]:
=a[i1+k1-1]-a[j1-k1+1];
a[i1+k1-1]:
=a[i1-k1+1]-a[j1-k1+1];
end;
end;
begin
j:
=211;fori:
=1to14dobegina[i]:
=i;j:
=j-iend;
sw(1,4);sw(5,10);sw(11,14);sw(1,14);
fori:
=1to14dobeginifjmodi=1thenwrite(a[i]:
3);j:
=j-a[i];end;
writeln
end.
10.programnoi_002;
vari,j,l,n,k,s,t:
integer;
b:
array[1..10]of0..9;
begin
readln(l,n);s:
=l;k:
=1;t:
=l;
whiles =k+1;t: =t*l;s: =s+tend; s: =s-t;n: =n-s-1;fori: =1to10dob[i]: =0; j: =11;whilen>0dobeginj: =j-1;b[j]: =nmodl;n: =ndivlend; fori: =10-k+1to10dowrite(chr(ord('a')+b[i])); end. 输入: 4167 输出: 11.programnoi_004; var i,j,j1,j2,p,q: integer; p1: boolean; b,c: array[1..100]ofinteger; begin readln(q,p);j: =1;p1: =true;b[j]: =q;j1: =0; while(q>0)andp1do begin j1: =j1+1;c[j1]: =q*10divp;q: =q*10-c[j1]*p; ifq>0thenbegin j2: =1;while(b[j2]<>q)and(j2<=j)doj2: =j2+1; ifb[j2]=q thenbegin p1: =false;write('0.'); fori: =1toj2-1dowrite(c[i]: 1); write('{'); fori: =j2toj1dowrite(c[i]: 1); writeln('}') end elsebeginj: =j+1;b[j]: =qend end end; ifq=0thenbegin write('0.'); fori: =1toj1dowrite(c[i]: 1); writeln end; readln end. 输入 ① 18 输出 输入 ② 27 输出 12.programchu7_1; functionfun(x: integer): integer; begin if(x=0)or(x=1)thenfun: =3 elsefun: =x-fun(x-2) end; begin writeln(fun(9)); readln; end. 13.programchu7_2; vari,j,f: integer; a: array[1..8]ofinteger; begin fori: =1to8do begin f: =imod2; iff=0thena[i]: =0 elsea[i]: =1; forj: =1toido iff=0thena[i]: =a[i]+j elsea[i]: =a[i]*j end; fori: =1to8dowrite(a[i]: 5); end. 14.programchu7_3; varp,q,s,t: integer; begin readln(p); forq: =p+1to2*pdo begin t: =0;s: =(p*q)mod(q-p); ifs=0thenbegint: =p+q+(p*q)div(q-p);write(t: 4);end; end; readln end. 输入: 12 输出: 15.prgoramchu7_4; varn,k,i: integer; a: array[1..40]ofinteger; procedurefind(x: integer); vars,i1,j1: integer; p: boolean; begin i1: =0;p: =true; whilepdo begin i1: =i1+1;s: =0; forj1: =1tondoifa[j1]>a[i1]thens: =s+1; if(s=x-1)thenbeginwriteln(a[i1]);p: =falseend; end end; begin readln(n,k); fori: =1tondoread(a[i]); find(k);find(n-k); end. 输入: 104 1234565678779012013 输出: 16.programexp1; vari,j,k,n,,l0,l1,lk: integer; a: array[0..20]ofinteger; begin readln(n,k); fori: =0ton-1doa[i]: =i+1; a[n]: =a[n-1];l0: =n-1;lk: =n-1; fori: =1ton-1do begin l1: =l0-k;if(l1<0)thenl1: =l1+n; if(l1=lk)thenbegina[l0]: =a[n];lk: =lk-1;a[n]: =a[lk];l0: =lkend; elsebegina[l0]: =a[l1];l0: =l1;end; end; a[l0]: =a[n];fori: =0ton-1dowrite(a[i]: 40);writeln; end. 输入: 104 输出: 17.programexp2; varn,jr,jw,jb: integer; ch1: char; ch: array[1..20]ofchar; begin readln(n);fori: =1tondoread(ch[i]);jr: =1;jw: =n;jb: =n;: while(jr<=jw)do begin if(ch[jw]='R') thenbegin ch1: =ch[jr];ch[jr]: =ch[jw];ch[jw]: =ch1;jr: =jr+13 end elseifch[jw]='W'thenjw: =jw-1 elsebegin ch1: =ch[jw];ch[jw]: =ch[jb];ch[jb]: =ch1; jw: =jw-1;jb: =jb-1; end end; fori: =1tondowrite(ch[i]); writeln; end. 输入: 10 RBRBWWRBBR 输出: 18.pmgramexp3; vari,j,p,n,q,s: integer; a: array[1..20]ofinteger; begin readln(p,n,q);j: =21; while(n>0)dobeginj: =j-1;a[j]: =nmod10;n: =ndiv10;end; s: =0;fori: =jt020dos: =s*p+a[i];writeln(s);j: =21; while(s>o)dobeginj: =j-1;a[j]: =smodq;s: =sdivq;end; fori: =jto20dowrite(a[i]);readln; end. 输入: 730518 输出: 19.programprograml; vara,x,y,okl,ok2: integer; begin a: =100;x: =l0;y: =20;okl: =5;ok2: =0; if((x>y)or((y<>20)and(okl=0))and(ok2<>0))thena: =1 elseif((okl<>0)and(ok2=、0))thena: =-1elsea: =0; writeln(a); end. 20.programProgram2; vara,t: string; i,j: integer; begin a: =morning;j: =l;fori:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 阅读 程序