资源描述:
《pascal习题阅读程序》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第1题(6分)programyd;vard,p:integer;beginp:=1;d:=11;whiled>1dobeginp:=2*(p+1);d:=d-1end;writeln(p)end.输出:______答案:3070 第2题(6分)programyd;varg,m:integer;k,t:real;begink:=0;g:=0;form:=1to49dobeging:=g+1;k:=k+1/(g*(g+1))end;writeln(k:10:2)end.输出:______答案:0.98
2、第3题(6分)programyd;varn,i,t:longint;tem:integer;s:string;beginwrite('Inputn:');readln(n);s:='1';repeati:=length(s);whiles[i]='1'dobegins[i]:='0';dec(i);end;ifi>0thens[i]:='1'elses:='1'+s;val(s,t,tem);untiltmodn=0;writeln(n,'*',tdivn,'=',s);end.输入:6输出:_____
3、_答案:6*185=1110 第4题(6分)programyd;constn=5;vari,j,m,s:integer;beginm:=0;fori:=1tondobeginm:=m+i;s:=m;forj:=1to2*idowrite('');{''中间是一个空格}forj:=1tondobeginwrite(smod10:2);s:=s+j;end;writeln;end;end.输出:______答案:1247134693679260136056815 第5题(7分)programyd;var
4、a:array[0..8]ofchar;i:integer;beginfori:=1to8doa[i]:=char(i*2+ord('A'));fori:=1to4dobegina[0]:=a[i];a[i]:=a[9-i];a[9-i]:=a[0];end;fori:=1to8dowrite(a[i]);writeln;end.输出:______答案:QOMKIGEC 第6题(7分)Programyd;varn,i,x:integer;d:array[0..10]ofinteger;beginrea
5、dln(n);fori:=1tondobeginread(x);d[x]:=d[x]+1;end;d[0]:=0;fori:=1to10dod[i]:=d[i-1]+d[i];fori:=1to10doifd[i]<>d[i-1]thenwriteln(i:3,d[i-1]+1:4);end.输入:203461769410766338791067输出:_______答案:113245677128169171019 第7题(7分)programyd;vara,b:array[1..32]ofintege
6、r;i:integer;proceduressort(i,j:integer);varm,k,x:integer;beginifj-i>1thenbeginm:=(i+j)div2;ssort(i,m);ssort(m+1,j);k:=i;forx:=itomdobeginb[k]:=a[x];b[k+1]:=a[m+x-i+1];k:=k+2;end;forx:=itojdoa[x]:=b[x];end;end;beginfori:=1to16doa[i]:=i;ssort(1,16);fori:=1
7、to16dowrite(a[i]:3);writeln;end.输出:______答案:19513311715210614412816 第8题(6分)programyd;vara,d:array[1..100]ofinteger;n,i,j,k,x,s:integer;beginn:=5;a[1]:=1;d[1]:=1;fori:=1tondobegins:=i+1;x:=0;forj:=1ton+1-idobegink:=s+x;x:=x+1;a[j+1]:=a[j]+k;write(a[j],''
8、);end;writeln('...');d[i+1]:=d[i]+i;a[1]:=d[i+1];end;end.输出:_________答案:1361015...25914...4813...712...11... 第9题(7分)programyd;constd:array[0..3,1..4]ofinteger=((4,7,10,13),(1,8,11,14),(2,5,12,15),(3,6,9,16));vari,j,a,x,k,