NOIP阅读读程序写结果模拟题.docx
- 文档编号:722144
- 上传时间:2022-10-12
- 格式:DOCX
- 页数:47
- 大小:24.18KB
NOIP阅读读程序写结果模拟题.docx
《NOIP阅读读程序写结果模拟题.docx》由会员分享,可在线阅读,更多相关《NOIP阅读读程序写结果模拟题.docx(47页珍藏版)》请在冰豆网上搜索。
NOIP阅读读程序写结果模拟题
1、程序
PROGRAMEX1;
VARn,i,j,k:
integer;
BEGIN
write('Entern:
');readln(n);
fori:
=1tondo
begin
forj:
=1tondo
begin
ifi>=jthenk:
=jelsek:
=i;
write(k:
4)
end;
writeln
end
END.
Entern:
7
输出:
1111111
1222222
1233333
1234444
1234555
1234566
1234567
2、程序
PROGRAMEX2;
VARn,i,j,k,mi,ma:
integer;
BEGIN
write('Entern:
');readln(n);
fori:
=1tondo
begin
ifi>=n+1-ithenma:
=ielsema:
=n+1-i;
mi:
=n+1-ma;
k:
=1;
forj:
=1tondo
begin
write(k:
4);
ifj =k+1 elseifj>=mathenk: =k-1; end; writeln end END. Entern: 7 输出: 1111111 1222221 1233321 1234321 1233321 1222221 1111111 3、程序 PROGRAMEX3; VARn,i,j,r,c,k,m: integer; BEGIN write('Entern: ');readln(n); fori: =1tondo begin forj: =1tondo begin ifi+j<=n+1thenk: =(i+j-2)*(i+j-1)div2+i else begin r: =n+1-i;c: =n+1-j; k: =n*n+1-(r+c-2)*(r+c-1)div2-r end; write(k: 4) end; writeln end END. Entern: 7 输出: 1247111622 35812172329 691318243035 10141925313640 15202632374144 21273338424547 28343943464849 4、程序 PROGRAMEX4; VARa: array[1..20,1..20]ofinteger; n,i,j,r,c,k: integer; BEGIN write('Entern: ');readln(n); fori: =1tondo begin forj: =1tondo begin ifi+j<=n+1thenk: =(i+j-2)*(i+j-1)div2+(i+j)mod2*i+(i+j-1)mod2*j else beginr: =n+1-i;c: =n+1-j; k: =n*n+1-(r+c-2)*(r+c-1)div2-(r+c)mod2*r-(r+c-1)mod2*c; end; write(k: 4); end; writeln end END. Entern: 6 输出: 12671516 358141726 4913182527 101219242833 112023293234 212230313536 5、程序 PROGRAMEX5; VARn,i,j,k,c,s,d: integer; BEGIN write('Entern: ');readln(n); fori: =1tondo begin forj: =1tondo begin ifi>jthenk: =i*i+1-jelsek: =j*j+1+i-j-j; write(k: 3) end; writeln end END. Entern: 8 输出: 1251017263750 4361118273851 9871219283952 1615141320294053 2524232221304154 3635343332314255 4948474645444356 6463626160595857 6、程序 PROGRAMEX6; VARn,i,j,k,r,c,ma: integer; BEGIN write('Entern: ');readln(n); forr: =1tondo begin forc: =1tondo begin i: =r;j: =c; ifr>cthenma: =relsema: =c; ifmamod2=1thenbegini: =c;j: =rend; ifi>jthenk: =i*i+1-jelsek: =j*j+1+i-j-j; write(k: 3) end; writeln end END. Entern: 8 输出: 1291025264950 4381124274851 5671223284752 1615141322294653 1718192021304554 3635343332314455 3738394041424356 6463626160595857 7、程序 PROGRAMEX7; VAR q,r: array[0..100]ofinteger; m,n,i,j,k: integer; BEGIN fori: =0to100doq[i]: =-1; write('m,n: ');readln(m,n); write(m,'/',n,'=',mdivn,'.'); k: =mmodn; i: =0; whileq[k]=-1do begin q[k]: =i; r[i]: =k*10divn; k: =k*10modn; i: =i+1; end; forj: =0toq[k]-1dowrite(r[j]); ifk>0then begin write(char(39)); forj: =q[k]toi-1dowrite(r[j]); write(char(39)); end; writeln END. 输入: m,n: 12315 m,n: 37 m,n: 10012 m,n: 100071 分别输出: 123/15=8.2 3/7=0.'428571' 100/12=8.'3' 1000/71=14.'08450704225352112676056338028169014' 8、程序 PROGRAMEX8; CONSTx=3; VAR y,m,d,day: integer; mn: array[0..6]ofstring[8]; BEGIN mn[0]: ='Sunday'; mn[1]: ='Monday'; mn[2]: ='Tuesday'; mn[3]: ='Wensday'; mn[4]: ='Thursday'; mn[5]: ='Friday'; mn[6]: ='Saturday'; write('year,month,day: '); readln(y,m,d); write(y: 4,'.',m,'.',d,'is'); ifm<3thenbeginm: =m+12;y: =y-1end; day: =(y+(ydiv4)-(ydiv100)+(ydiv400)+(m-3)*2+(m*3-7)div5+d-1+x)mod7; writeln(mn[day],'.') END. 输入: year,month,day: 2002530 输出: 2002.5.30isThursday. 9、程序 PROGRAMEX9; CONSTn=20; VARi,j,q: integer; BEGIN i: =3; whilei begin q: =trunc(sqrt(i)); j: =3; while(j<=q)and(imodj<>0)doj: =j+2; ifj>qthenwrite(i: 8); i: =i+2 end; writeln END. 输出: 235711131719 10、程序 PROGRAMEX10; CONSTn=25; VAR i,j,d,k,m: integer; p,q: array[1..30]ofinteger; pr: boolean; BEGIN k: =1;m: =1;p[1]: =5;q[1]: =25;i: =7;d: =4; whilei begin pr: =true; forj: =1tok-1do ifi>=q[j]thenbeginpr: =prand(i<>q[j]);q[j]: =q[j]+2*p[j]end; ifi=q[k]thenbeginpr: =false;q[k]: =q[k]+2*p[k];k: =k+1end; ifprthen begin write(i: 8); ifq[m] =m+1;p[m]: =i;q[m]: =i*iend end; i: =i+d;d: =6-d end; writeln END. 输出: 23571113171923 11、程序 PROGRAMEX11(input,output); USESstackun; VARm,n,s: integer; st: stack; FUNCTIONpart(m,n: integer): integer; VARtmp,i: integer; BEGIN IFm=0THEN BEGINtmp: =1; st.print1; END ELSE IFn=0THENtmp: =0 ELSE IFn>mTHENtmp: =part(m,m) ELSE BEGIN st.push(n); tmp: =part(m-n,n-1); st.pop; tmp: =tmp+part(m,n-1); END; part: =t
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- NOIP 阅读 程序 结果 模拟