pascal100练习题.docx

1、pascal100练习题Pascal练习题100道1 题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？ var i,j,a,b,c:integer; begin for i:=1 to 4 do for j:=1 to 4 do for a:=1 to 4 do for b:=1 to 4 do begin if (ij) and (ia) and (ib) and (ja) and (jb) and (ab) then writeln(i,j,a,b); end; end. 2 题目：企业发放的奖金根据利润提成。利润(i)低于或等于10万元时，奖金可提10%

2、；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润i，求应发放奖金总数？ var a:longint; s:real; begin readln(a); if a100000 then begin if (a100000) and (a200000) and (a400000) and (a600000) a

3、nd (a1000000) then s:=s+(a-1000000)*0.01+100000*0.1+200000*0.05+200000*0.03+400000*0.015; end; writeln(s:5:2); end. 3 题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？ var i:longint; a,b:real; begin for i:=1 to 1000000 do begin a:=sqrt(i+100); b:=sqrt(i+268); if (a*a)=(i+100) and (b*b)=(i+268) then w

4、riteln(i); end; end. 4 题目：输入某年某月某日，判断这一天是这一年的第几天？ var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:integer; begin read(a,b,c); a1:=0;a2:=31;a3:=59;a4:=90;a5:=120;a6:=151;a7:=181;a8:=212;a9:=243;a10:=273;a11:=304;a12:=334; if (b=1) then d:=a1 else if (b=2) then d:=a2 else if (b=3) then d:=a3 else i

5、f (b=4) then d:=a4 else if (b=5) then d:=a5 else if (b=6) then d:=a6 else if (b=7) then d:=a7 else if (b=8) then d:=a8 else if (b=9) then d:=a9 else if (b=10) then d:=a10 else if (b=11) then d:=a11 else if (b=12) then d:=a12; d:=d+c; if (a mod 1000=0) and (c mod 400=0) and (b3) then d:=d+1; if (a mo

6、d 10000) and (c mod 4=0) and (b3) then d:=d+1; writeln(d); end. 5 题目：输入三个整数x,y,z，请把这三个数由小到大输出。 var a,b,c,d:integer; begin readln(a,b,c); if ab then begin d:=a;a:=b;b:=d; end; if ac then begin d:=a;a:=c;c:=d; end; if bc then begin d:=b;b:=c;c:=d; end; writeln(a,b,c); end. 6 题目：用*号输出字母c的图案。 begin writ

7、eln( *); writeln( * ); writeln(* ); writeln(* ); writeln( * ); writeln( *); end. 7 题目：输出9*9口诀。 var i,j:integer; begin for i:=1 to 9 do begin for j:=1 to 9 do begin write(j,*,i,=,j*i, ); end; writeln; end; end. 8 题目：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？ var a1,a2,a3,a4,a5

8、,a6,a7,a8,a9,a10,a11,a12:integer; begin a1:=1;writeln(a1); a2:=1;writeln(a2); a3:=a1+a2;writeln(a3); a4:=a2+a3;writeln(a4); a5:=a3+a4;writeln(a5); a6:=a4+a5;writeln(a6); a7:=a5+a6;writeln(a7); a8:=a6+a7;writeln(a8); a9:=a7+a8;writeln(a9); a10:=a8+a9;writeln(a10); a11:=a9+a10;writeln(a11); a12:=a10+a

9、11;writeln(a12); end. 9 题目：输出所有101-200之间的素数。 var n,i,a:integer; p:boolean; begin n:=200; for a:=101 to n do begin p:=true; for i:=2 to trunc(sqrt(a)+1 do if a mod i=0 then begin p:=false; break end; if p=true then write(a:4); end; end. 10 题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数

10、”，因为153=1的三次方5的三次方3的三次方。 var a,b,c,i:integer; begin for i:=100 to 999 do begin a:=i div 100; b:=(i div 10) mod 10; c:=i mod 10; if a*a*a+b*b*b+c*c*c=i then writeln(i); end; end. 11 题目：将一个正整数分解质因数。例如：输入90,打印出90=1*2*3*3*5。 var n,i:integer; begin write(please input the number:); read(n); write(n,=,1);

11、i:=1; repeat inc(i); while n mod i=0 do begin n:=n div i; write(*,i); end; until n=1; end. 12 题目：利用条件运算符的嵌套来完成此题：学习成绩=90分的同学用a表示，60-89分之间的用b表示，60分以下的用c表示。 var a:integer; begin readln(a); if a=90 then writeln(a) else if (a=60) and (a=65) and (b=97) and (b=48) and (b=57) then h:=h+1 else f:=f+1; end;

12、writeln(z, ,h, ,f); end. 15 题目：求s=a+aa+aaa+aaaa+aa.a的值，其中a是一个数字。例如2+22+222+2222+22222(此时共有5个数相加)，几个数相加有键盘控制。 var a,s,b,i,z:longint; begin readln(a,b); s:=a; for i:=1 to b-1 do begin a:=a*11; z:=a; end; z:=z+s; writeln(z); end. 16 题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=123.编程找出1000以内的所有完数。 var m,i,n,t:int

13、eger; begin for n:=1 to 100 do begin t:=0; for i:=2 to n do if (n mod i)=0) then t:=t+(n div i); if (t=n) then write(n, ); end; end. 17 题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在第10次落地时，共经过多少米？第10次反弹多高？ var a,i,b:integer; begin a:=100; for i:=1 to 10 do begin b:=a div 2; a:=a div 2; writeln(b); end; en

14、d. 18 题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。 var i,x1,x2:integer; begin for i:=1 to 10 do begin x1:=(x2+1)*2; x2:=x1; end; writeln(x2); end. 19 题目：两个乒乓球队进行比赛，各出三人。甲队为a,b,c三人，乙队为x,y,z三人。已抽签决定比赛名单。有人向队员打听比赛的名单。a说他不和x比，c说他不和

15、x,z比，请编程序找出三队赛手的名单。 var i,h,e:char; begin for i:=x to z do if (ix) and (iz) then begin writeln(c,i);h:=i; end; for i:=x to z do if (ix) and (ih) then begin writeln(a,i);e:=i; end; for i:=x to z do if (ih) and (ie) then writeln(b,i); end. 20 题目：打印出如下图案（菱形） * * * * * * * begin writeln(*); writeln(*);

16、writeln(*); writeln(*); writeln(*); writeln(*); writeln(*); end. 21 题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13.求出这个数列的前20项之和。 var a,b,c,t:real; i:integer; begin a:=2; b:=1; for i:=1 to 20 do begin c:=c+a/b; t:=a;a:=a+b;b:=t; end; writeln(c); end. 22 题目：求1+2!+3!+.+20!的和 var i,j,a:longint; t,c:int64; begin

17、for i:=1 to 20 do begin t:=1; for j:=1 to i do begin t:=t*j; end; c:=c+t; end; writeln(c); end. 23 题目：利用适当方法求5! 。 var a,j:longint; t,c:int64; begin t:=1; for j:=1 to 5 do begin t:=t*j; end; c:=c+t; writeln(c); end. 24 题目：将输入5个字符，以相反顺序打印出来。 var a:array1.5 of char; i:integer; begin for i:=1 to 5 do re

18、adln(a); for i:=5 downto 1 do writeln(a); end. 25 题目：有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后问第一个人，他说是10岁。请问第五个人多大？ var a,i:longint; begin a:=10; for i:=1 to 4 do a:=a+2; writeln(a); end. 26 题目：给一个不多于5位的正整数，要求：一、求它是几位数，二、逆序打印出各位数字。 var a,c,d1,d2,d3,d4,d5:lon

19、gint; begin readln(a); if a=10) and (a=100) and (a=1000) and (a=10000 then begin c:=5;writeln(5); end; if c=5 then begin d1:=a mod 10;a:=a div 10; d2:=a mod 10;a:=a div 10; d3:=a mod 10;a:=a div 10; d4:=a mod 10;a:=a div 10; d5:=a; writeln(d1,d2,d3,d4,d5); end; if c=4 then begin d1:=a mod 10;a:=a di

20、v 10; d2:=a mod 10;a:=a div 10; d3:=a mod 10;a:=a div 10; d4:=a; writeln(d1,d2,d3,d4); end; if c=3 then begin d1:=a mod 10;a:=a div 10; d2:=a mod 10;a:=a div 10; d3:=a; writeln(d1,d2,d3); end; if c=2 then begin d1:=a mod 10;a:=a div 10; d2:=a; writeln(d1,d2); end; if c=1 then writeln(a); end. 27 题目：

21、一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。 var a,b1,b2,b3,b4,b5:longint; begin readln(a); b1:=a mod 10;a:=a div 10; b2:=a mod 10;a:=a div 10; b3:=a mod 10;a:=a div 10; b4:=a mod 10;a:=a div 10; b5:=a; if (b1=b5) and (b2=b4) then writeln(yes) else writeln(no); end. 28 题目：请输入星期几的第一个字母来判断一下是星期几，如果第一个字

22、母一样，则继续判断第二个字母 var a,b,c:char; begin readln(a); if (a=m) or (a=w) or (a=f) then begin if a=m then writeln(1) else if a=w then writeln(3) else if a=f then writeln(5); end else begin readln(b); if (b=h) or (b=a) then begin if b=h then writeln(4) else if b=a then writeln(6); end else begin readln(c); i

23、f (c=e) or (c=n) then begin if c=e then writeln(2) else if c=n then writeln(7); end; end; end; end. 29 题目：求100之内的素数 var n,i,a:integer; p:boolean; begin n:=100; for a:=3 to n do begin p:=true; for i:=2 to trunc(sqrt(a)+1 do if a mod i=0 then begin p:=false; break end; if p=true then write(a:4); end;

24、end. 30 题目：对10个数进行排序 插入排序 const n=10; var a:array1.n of integer; i,j,k,t:integer; begin write(Enter date:); for i:= 1 to n do read(a); writeln; for i:=2 to n do begin k:=a;j:=i-1; while (k0) do begin aj+1:=aj;j:=j-1 end; aj+1:=k; end; write(output data:); for i:= 1 to n do write(a:6); writeln; end.

25、冒泡排序 const n=10; var a:array1.n of integer; i,j,k,t:integer; begin write(Enter date:); for i:= 1 to n do read(a); for i:=1 to n -1 do for j:=n downto i+1 do if aj-1aj then begin t:=aj-1;aj-1:=aj;aj:=t end; write(output data:); for i:= n downto 1 do write(a:6); writeln; end. 选择排序 const n=10; var a:array1.n of integer; i,j,k,t:integer; begin write(Enter date:); for i:= 1 to n do read(a); writeln;