pascal习题集无分类由简到难.docx

1、pascal习题集无分类由简到难 第一组训练题1.输入两个整数，按由大到小的顺序输出。(1-1)var a,b:integer;begin readln(a,b); if a=b then write(a,b) else write(b,a)end.(1-2)var a,b:integer;beginreadln(a,b);if ab then write(a:5,b:5) else write(b:5,a:5);if a=b then write(a=b);end.2.输入三个整数，按由大到小的顺序输出。var a,b,c:integer; max,min:integer;begin rea

2、dln(a,b,c); if ab then begin max:=a; min:=b end else begin min:=a; max:=b end; if cmax then begin max:=c end; if c0 then s:=s+1/I else s:=s-1/i;（此处很好！） writeln(s:9:4)end.6.有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13.求出这个数列的前20项之和。var i,t,fz,fm:integer; s:real;begin s:=0;fz:=2;fm:=1; for i:=1 to 20 do begin s:

3、=s+fz/fm; t:=fz+fm; fm:=fz; fz:=t; end; writeln(s:8:2);end.7.输入10个数字，求其中最大的那个数字。var a:array1.10 of integer; i,max:integer;begin for i:=1 to 10 do readln(ai); max:=a1; for i:=2 to 10 do if aimax then max:=ai;(逐个比) write(Max=,max);end.8.输入10个数字，求其中次大的那个数字。var a:array1.10 of integer; i,max1,max2:intege

4、r;begin for i:=1 to 10 do readln(ai); if a1a2 then begin max1:=ai;max2:=a2;end else begin max1:=a2;max2:=a1;end; for i:=3 to 10 do if aimax1 then begin max2:=max1;max1:=aiend;（max1用来比，max2接替max1） write(Max2=,max2);end.9.求和S=1+2+4+7+11n(其中n是小于100的最大整数)(?)var s,a,i:integer;begin s:=0;a:=1;i:=1; while

5、a100 do begin i:=i+1; s:=a+s; s:=s+a; a:=a+i; a:=a+i-1; i:=i+1 end; writeln(s);end.10.求和S=1+2+4+8+16+32+n（n是小于1000的最大整数）var s,i:integer;begin s:=0;i:=1; while (i1000) do begin s:=s+i; i:=i*2; end; writeln(s)end.11.有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？var a,b,c,i,n:intege

6、r; s:real;begin readln(n); a:=1;b:=0;s:=a+b; for i:=1 to n-2 do begin c:=a+b; s:=s+c; a:=b; b:=c; end; writeln(s:9:4);end.12.打印出小九九乘法口诀表。var i,j:integer;begin writeln; for i:=1 to 9 do begin for j:=1 to i do write(i:1,*,j:1,=,i*j:1, ); writeln; end;end.var i,j:integer;begin for i:=1 to 9 do begin fo

7、r j:=1 to i do write(i,*,j,=,i*j, ); writeln; end;end.13.满足A3+B3+C3=ABC的数字称为水仙花数，求所有的100-999之间的水仙花数。var a,b,c:integer;begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(a,b,c);end.14.判断输入的一个正整数是否是素数。var n,i:integer; b:boolean;begin readln(n);i:=2;

8、b:=True; while b and (i=SQRT(n) do if (n mod i)=0 then b:=false else i:=i+1; if b=True then writeln(Yes) else writeln(No);end.15.将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。var n,i:integer;begin readln(n); i:=2; while n mod i0 do i:=i+1; write(n,=,i);n:=n div i; while i=n do begin while n mod i=0 do begin wri

9、te(*,i); n:=n div i; end; i:=i+1; end;end.16.输入两个正整数m和n，求其最大公约数和最小公倍数。var m,n:integer;function asd(a,b:integer):integer;var x,y,i,j:integer;begin i:=a;j:=b; x:=a mod b; while x0 do begin a:=b; b:=x; x:=a mod b; end; x:=b; writeln(,a,b,=,x); y:=j*i div b; writeln(,a,b,),=,y);end;begin readln(m,n); as

10、d(m,n);end.17.求s=a+aa+aaa+aaaa+aa.a的值，其中a是一个数字。例如2+22+222+2222+22222(此时共有k=5个数相加)，输入a和k，求s。var i,a,k:integer; s,t:real;begin readln(a,k); s:=a;t:=a; for i:=2 to k do begin t:=t*10+a; s:=s+t; end; write(S=,a,+.+,t:0:0,=,s:0:0);end.18.一个不超过5位的整数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。var s:string;b:bool

11、ean;i,j:integer;begin read(s); j:=length(s); i:=1; b:=true; while (i=j) and b do begin b:=(si=sj); i:=i+1; j:=j-1; end; if b then writeln(yes) else writeln(no);end.19.输入某年某月某日，判断这一天星期几。const a:array1.12 of integer=(31,28,31,30,31,30,31,31,30,31,30,31); b:string=SunMonTueWedThiFriSat;var year,month,d

12、ay,i,s:integer;begin readln(year,month,day); s:=0; for i:=1 to year-1 do begin s:=(s+365) mod 7; if i mod 4=0 then s:=s+1; if i mod 100=0 then s:=s-1; if i mod 400=0 then s:=s+1; end; for i:=1 to month-1 do s:=s+ai; if (year mod 400=0) or (year mod 4=0)and(year mod 1000)then if month2 then s:=s+1; s

13、:=(s+day) mod 7; for i:=3*s+1 to 3*s+3 do write(bi);end.20.输入10个整数，按由大到小的顺序输出。type arr=array1.10 of integer;var i,j,k:integer; a:arr;begin for i:=1 to 10 do read(ai); readln; for i:=1 to 9 do for j:=1 to 10-i do if ajaj+1 then begin k:=aj; aj:=aj+1; aj+1:=k; end; for i:=1 to 10 do write(ai:2);end.21

14、.已知N！=1*2*3*N，求S=1！+2!+3!+4!+10!var i,j :integer; s :real; function fac(i:integer):real;var j :integer;s:real; begin s:=1 ;for j:=1 to i do s:=s*j;fac:=s; end;begins:=0;for i:= 1 to 10 do s:=s+fac(i); writeln(s);end.22.同上，求S=1!+(1!+3!)+(1!+3!+5!)+(1!+3!+5!+13!)var j,i :integer; s :real;function fac(

15、a:integer):real;var k:integer;b:real;begin b:=1; for k:=1 to a do b:=b*k; fac:=b;end;begin for i:=1 to 7 do for j:=1 to i*2-1 do if j mod 2 = 1 then begin s:=s+fac(j); end;writeln(s:8:0);end.23.进制转换，给定一个十进制的数字n，将它转换成十六进制等值的数字。24.有n个人围成一圈，顺序排号。从第一个人开始报数（从1到5报数），凡报到5的人退出圈子，问最后留下的是原来第几号的那位，输入n，输出最后那个人的

16、编号。const n=10;var a:array1.n of boolean; i,j,k:integer;begin writeln; for i:=1 to n do ai:=true; i:=0;j:=0;k:=0; while jn then i:=1; if ai then begin k:=k+1; if k=5 then begin ai:=false; write(i:3); k:=0; j:=j+1; end; end; end;end. const n=10;var a:array1.n of boolean; i,j,k:integer;begin writeln; f

17、or i:=1 to n do ai:=true; i:=0;j:=0;k:=0; while jn then i:=1; if ai then begin k:=k+1; if k=5 then begin ai:=false; write(i:3); k:=0; j:=j+1; end; end; end;end.25.已知无穷小数X=0.12345678910119899100101，其中的数字是依次写下各自然数而得到的。试求出小数点后第n位数字。输入：从键盘输入n。(n=200)输出：输出小数点后第n(180以内)位数字。var i,j,k,n:integer;begin readln

18、(n); if n10 then writeln(n) else begin i:=9+(n-8) div 2; if n mod 2=0 then k:=i div 10 else k:=i mod 10; writeln(k); end;end.26.螺旋方阵和数字三角形。(26-1)var a:array1.5,1.5of integer; i,j,k,u,d,l,r:integer;begin k:=1;l:=1;r:=5;u:=1;d:=5; while k=25 do begin for i:=u to d do begin ai,l:=k;k:=k+1;end;l:=l+1; f

19、or i:=l to r do begin ad,i:=k;k:=k+1;end;d:=d-1; for i:=d downto u do begin ai,r:=k;k:=k+1;end;r:=r-1; for i:=r downto l do begin au,i:=k;k:=k+1;end;u:=u+1; end; for i:=1 to 5 do begin for j:=1 to 5 do write(ai,j:3); writeln; end;end.(26-2)var a:array1.10,1.10of integer; i,j,k,u,d,l,r,n:integer;begi

20、n readln(n); k:=1;l:=1;r:=n;u:=1;d:=n; while kl2 then for i:=1 to l1-l2 do s2:=s2+0; l1:=length(s1);l1:=length(s2); k:=0;s3:= ; for i:=l1 downto 1 do begin k1:=ord(s1i)-ord(0); k2:=ord(s2i)-ord(0); k3:=k+k1+k2; if k3=10 then begin k:=1;k3:=k3-10;end else k:=0; s3:=chr(k3+ord(0)+s3; end; if k=1 then

21、s3:=1+s3; writeln(s3);end.29.高精度实数减法。输入两个不超过100位的正整数，求它们的差。vari,k :integer;s1,s2,s3:string;k1,k2,k3:integer;l1,l2 :integer;beginreadln(s1);readln(s2); l1:=length(s1);l2:=length(s2); if (l1l2) or (l1=l2) and (s1s2) then begin s3:=s1; s1:=s2; s2:=s3; write(-); end; l1:=length(s1);l2:=length(s2); for i

22、:=1 to l1-l2 do s2:=0+s2; k:=0;s3:= ; for i:=l1 downto 1 do begin k1:=ord(s1i) -ord(0); k2:=ord(s2i) -ord(0); k3:=k1-k2-k; if k31)and(s31=0) do delete(s3,1,1); writeln(s3);end.30.高精度整数乘法。输入两个不超过100位的正整数，求它们的乘积。var s1,s2:string; a,b,c:array0.9of integer; i,j,k:integer;begin readln(s1);k:=length(s1);

23、for i:=0 to k-1 do ai:=ord(s1k-i)-ord(0); readln(s2);k:=length(s2); for i:=0 to k-1 do bi:=ord(s2k-i)-ord(0); for i:=0 to 9 do ci:=0; for i:=0 to 9 do for j:=0 to 9 do ci+j:=ci+j+ai*bj; for i:=0 to 7 do begin k:=ci; ci:=ci mod 10; ci+1:=ci+1+k div 10; end; j:=9; while (cj=0) and (j0) do j:=j-1; for

24、i:=j downto 0 do write (ci);end.31.高精度实数加法减法。输入两个不超过100位的正实数，求它们的和或者差。var s1,s2,s3 :string; l1,l2 :integer; x1,x2,z1,z2 :integer; pointpos :integer; i,j,k :integer;begin readln(s1);readln(s2); k:=pos(.,s1);if k=0 then s1:=s1+.; k:=pos(.,s2);if k=0 then s2:=s2+.; l1:=length(s1);k:=pos(.,s1);z1:=k-1;x1:=l1-k; l2:=length(s2);k:=pos(.,s2);