維數(shù)組閱讀程序練習(xí)題三

programvari,x1,x2,x:integer;fori:=1to5doprogramvara:array[1..11]ofinteger;fori:=kdownto2dountilk>=10;fori:=1to11doprogramvari,s,max:integer;a:array[1..10]ofinteger;fori:=1to10doread(a[i]);fori:=2to10doifs<0thens:=0;ifs>maxthenmax:=s;輸入:-213-14781-1824輸出輸入:89124651115-28輸出programex4;constn=5;vari,j,k:integer;a:array[1..2*n,1..2*n]ofinteger;

fori:=1to2*n-1doifi<=nthenifodd(i)forj:=idownto1doelseforj:=1toidoelseifodd(i)forj:=ndowntoi-n+1doelseforj:=i-n+1tondofori:=1tondoforj:=1tondoprogramex5;constn=10;var varj1,s1:integer;forj1:=n-1downton-i1+1dos1:=s1*j1div(n-j1+1);fori:=2tondos:=s+co(i);programex6;constn=3;vari,j,s,x:integer;p:array[0..n+1]ofinteger;g:array[0..100]offori:=0to100dog[i]:=0;fori:=1tondoread(p[i]);fori:=0tondoforj:=i+1ton+1dofori:=0to100doifg[i]>0then n('inputdata:');readln(x); 輸入:1020inputdata:programexcp1;a:array[1..20]of0..9;forj1:=1to20doa[j1]:=0;whiley<>0doy1:=ymody:=ydiv10;whiley1<>0fore:=jkdownto1doa[e]:=gmodg:=gdiv10whilea[j1]=0doforjk:=j1to20dowrite(a[jk]:4);programex9;a:array[1..14]ofinteger;proceduresw(i1,j1:integer);vark1:integer;fork1:=1to(j1-i1+1)div2do

fori:=1to14begina[i]:=i;j:=j-iend;fori:=1to14doif(jmodi)=1thenwrite(a[i]:3);programvarb:array[1..10]of0..9;whiles<ndofori:=1to10dob[i]:=0;whilen>0doj:=j-1;b[j]:=nmodl;n:=ndivl;fori:=10-k+1to10do輸入:4programexp3;vari,j,s:integer;b:array[0..5]ofinteger;fori:=1to5dob[i]:=i;whilej>0dowhile(j>0)and(b[j]=10+j-5)doj:=j-1;ifj>0thenfori:=j+1to5dob[i]:=b[j]+i-programvari,j,j1,j2,p,q:integer;b,c:array[1..100]ofinteger;readln(q,while(q>0)andp1doj1:=j1+1;c[j1]:=q*10divp;q:=q*10-ifq>0thenwhile(b[j2]<>q)and(j2<=j)doifb[j2]=qthenp1:=false;fori:=1toj2-1dowrite(c[i]:1);fori:=j2toj1dowrite(c[i]:1);endelsebeginj:=j+1;b[j]:=qend;ifq=0thenbeginwrite('0.');fori:=1toj1dowrite(c[i]:1);輸入 8輸出輸入 7輸出programex12;constn=7;m=6;vari,j,x0,y0,x1,y1,x2,y2:integer;d:real;p:boolean;g:array[0..n,0..m]offunctiondisp(x1,y1,x2,y2:integer):real;fori:=0tondoforj:=0tomdo

whilepdofori:=4tondoforj:=0tomif(d>disp(i,j,x2,y2))andif(x0<>x1)or(y0<>y1)thenx1:=x0;y1:=y0;p:=true;g[x1,y1]:=1;fori:=0to3doforj:=0tomif(d<disp(x1,y1,i,j))andif(x0<>x2)or(y0<>y2)thenx2:=x0;y2:=y0;p:=true;g[x2,y2]:=1;輸入 0輸出programp20011;varj,k,s:integer;fork:=1to10doforj:=1tok-1dos:=s+11-j;forj:=kto10dos:=s+j-k;programp20012;vark,f,j:integer;a:array[1..8]ofinteger;fork:=1to8dof=kmodiff=0thena[k]:=0elsea[k]:=1;forj:=1tokdoiff=0thena[k]:=a[k]+jelseforj:=1to8doprogramp20013;varp,q,t,s:integer;forq:=p+1top*2dos:=(p*q)mod(q-p);ifs=0thenbegint:=p+q+(p*q)div(q-p);輸入：12programp20014;varn,k,j:integer;a:array[1..40]ofinteger;proceduresub(x:integer);varj1,j2,p,s:integer;whilep=1doforj2:=1tonifa[j2]>a[j1]thenifs=x-1thenbeginwrin(a[j1]);p:=0forj:=1tondoread(a[j]);輸入：10再輸入：12345656787790120

programfunctionack(m,n:integer):integer;ifm=0thenelseifn=0thenack:=ack(m-1,1)elseack:=ack(m-1,ack(m,n-1));programgao7_2;varp,q,s,t:integer;forq:=p+1to2*pdot:=0;s:=(p*q)mod(q-ifs=0thenbegint:=p+q+(p*q)div(q-p);輸入：P＝12programvari,j,h,m,n,k:integer;b:array[1..10]ofi