pascal100练习题Word文件下载.docx
《pascal100练习题Word文件下载.docx》由会员分享，可在线阅读，更多相关《pascal100练习题Word文件下载.docx（53页珍藏版）》请在冰豆网上搜索。
=s+（a-400000）*0.03+100000*0.1+200000*0.05;
600000）and（a<
=1000000）thens:
=s+（a-600000）*0.015+100000*0.1+200000*0.05+200000*0.03;
1000000）thens:
=s+（a-1000000）*0.01+100000*0.1+200000*0.05+200000*0.03+400000*0.015;
end;
writeln（s:
5:
2）;
3题目：
一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？
vari:
a,b:
=1to1000000do
=sqrt（i+100）;
b:
=sqrt（i+268）;
if（（a*a）=（i+100））and（（b*b）=（i+268））thenwriteln（i）;
4题目：
输入某年某月某日，判断这一天是这一年的第几天？
vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:
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）thend:
=a1else
if（b=2）thend:
=a2else
if（b=3）thend:
=a3else
if（b=4）thend:
=a4else
if（b=5）thend:
=a5else
if（b=6）thend:
=a6else
if（b=7）thend:
=a7else
if（b=8）thend:
=a8else
if（b=9）thend:
=a9else
if（b=10）thend:
=a10else
if（b=11）thend:
=a11else
if（b=12）thend:
=a12;
d:
=d+c;
if（amod1000=0）and（cmod400=0）and（b>
3）thend:
=d+1;
if（amod1000<
0）and（cmod4=0）and（b>
writeln（d）;
5题目：
输入三个整数x,y,z，请把这三个数由小到大输出。
vara,b,c,d:
readln（a,b,c）;
bthenbegind:
=a;
=b;
=d;
cthenbegind:
=c;
c:
ifb>
writeln（a,b,c）;
6题目：
用*号输出字母c的图案。
writeln（'
***'
）;
*'
*'
7题目：
输出9*9口诀。
vari,j:
=1to9do
write（j,'
*'
i,'
='
j*i,'
'
writeln;
8题目：
有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？
vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12:
=1;
writeln（a1）;
writeln（a2）;
=a1+a2;
writeln（a3）;
=a2+a3;
writeln（a4）;
=a3+a4;
writeln（a5）;
=a4+a5;
writeln（a6）;
=a5+a6;
writeln（a7）;
=a6+a7;
writeln（a8）;
=a7+a8;
writeln（a9）;
=a8+a9;
writeln（a10）;
=a9+a10;
writeln（a11）;
=a10+a11;
writeln（a12）;
9题目：
输出所有101-200之间的素数。
varn,i,a:
p:
boolean;
n:
=200;
=101tondo
=true;
fori:
=2totrunc（sqrt（a））+1do
ifamodi=0then
=false;
breakend;
ifp=truethenwrite（a:
4）;
10题目：
打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。
例如：
153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。
vara,b,c,i:
=100to999do
=idiv100;
=（idiv10）mod10;
=imod10;
ifa*a*a+b*b*b+c*c*c=ithenwriteln（i）;
11题目：
将一个正整数分解质因数。
输入90,打印出90=1*2*3*3*5。
varn,i:
write（'
pleaseinputthenumber:
'
read（n）;
write（n,'
1）;
i:
repeat
inc（i）;
whilenmodi=0do
n:
=ndivi;
write（'
i）;
untiln=1;
12题目：
利用条件运算符的嵌套来完成此题：
学习成绩>
=90分的同学用a表示，60-89分之间的用b表示，60分以下的用c表示。
vara:
=90thenwriteln（'
a'
）else
=60）and（a<
=89）thenwriteln（'
b'
writeln（'
c'
13题目：
输入两个正整数m和n，求其最大公约数和最小公倍数。
vara,b,ans,c:
functiongcd（a,b:
longint）:
ifb=0thengcd:
=a
elsegcd:
=gcd（b,amodb）;
functionlcm（a,b:
lcm:
=a*bdivgcd（a,b）;
read（a,b）;
=gcd（a,b）;
writeln（c）;
ans:
=lcm（a,b）;
writeln（ans）;
14题目：
输入一行字符，分别统计出其中英文字母、空格、数字和其它字符的个数。
string;
b:
array[1..200]ofinteger;
t,i,z,h,f:
read（a）;
t:
=length（a）;
=1totdo
=ord（a）;
if（b>
=65）and（b<
=90）thenz:
=z+1else
=97）and（b<
=122）thenz:
=48）and（b<
=57）thenh:
=h+1elsef:
=f+1;
writeln（z,'
h,'
f）;
15题目：
求s=a+aa+aaa+aaaa+aa...a的值，其中a是一个数字。
例如2+22+222+2222+22222（此时共有5个数相加），几个数相加有键盘控制。
vara,s,b,i,z:
readln（a,b）;
=1tob-1do
=a*11;
z:
=z+s;
writeln（z）;
16题目：
一个数如果恰好等于它的因子之和，这个数就称为“完数”。
例如6=1＋2＋3.编程找出1000以内的所有完数。
m,i,n,t:
forn:
=1to100do
t:
=2tondo
if（（nmodi）=0）
thent:
=t+（ndivi）;
if（t=n）thenwrite（n,'
17题目：
一球从100米高度自由落下，每次落地后反跳回原高度的一半；
再落下，求它在第10次落地时，共经过多少米？
第10次反弹多高？
vara,i,b:
=100;
=1to10do
=adiv2;
writeln（b）;
18题目：
猴子吃桃问题：
猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个第二天早上又将剩下的桃子吃掉一半，又多吃了一个。
以后每天早上都吃了前一天剩下的一半零一个。
到第10天早上想再吃时，见只剩下一个桃子了。
求第一天共摘了多少。
vari,x1,x2:
x1:
=（x2+1）*2;
x2:
=x1;
writeln（x2）;
19题目：
两个乒乓球队进行比赛，各出三人。
甲队为a,b,c三人，乙队为x,y,z三人。
已抽签决定比赛名单。
有人向队员打听比赛的名单。
a说他不和x比，c说他不和x,z比，请编程序找出三队赛手的名单。
i,h,e:
char;
x'
to'
z'
do
if（i<
）and（i<
）thenbeginwriteln（'
h:
=i;
h）thenbeginwriteln（'
e:
h）and（i<
e）thenwriteln（'
20题目：
打印出如下图案（菱形）
*
***
******
********
***'
******'
********'
21题目：
有一分数序列：
2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。
vara,b,c,t:
=2;
=1to20do
=c+a/b;
=a+b;
=t;
22题目：
求1+2!
+3!
+...+20!
的和
vari,j,a:
t,c:
int64;
=1toido
=t*j;
c:
=c+t;
23题目：
利用适当方法求5!
。
vara,j:
=1to5do
24题目：
将输入5个字符，以相反顺序打印出来。
array[1..5]ofchar;
=5downto1do
writeln（a）;
25题目：
有5个人坐在一起，问第五个人多少岁？
他说比第4个人大2岁。
问第4个人岁数，他说比第3个人大2岁。
问第三个人，又说比第2人大两岁。
问第2个人，说比第一个人大两岁。
最后问第一个人，他说是10岁。
请问第五个人多大？
vara,i:
=10;
=a+2;
26题目：
给一个不多于5位的正整数，要求：
一、求它是几位数，二、逆序打印出各位数字。
vara,c,d1,d2,d3,d4,d5:
10thenbeginc:
1'
endelse
=10）and（a<
100）thenbeginc:
2'
if（a>
=100）and（a<
1000）thenbeginc:
=3;
3'
=1000）and（a<
10000）thenbeginc:
=4;
4'
ifa>
=10000thenbeginc:
=5;
5'
ifc=5then
d1:
=amod10;
=adiv10;
d2:
d3:
d4:
d5:
writeln（d1,d2,d3,d4,d5）;
ifc=4then
writeln（d1,d2,d3,d4）;
ifc=3then
writeln（d1,d2,d3）;
ifc=2then
writeln（d1,d2）;
ifc=1thenwriteln（a）;
27题目：
一个5位数，判断它是不是回文数。
即12321是回文数，个位与万位相同，十位与千位相同。
vara,b1,b2,b3,b4,b5:
b1:
b2:
b3:
b4:
b5:
if（b1=b5）and（b2=b4）thenwriteln（'
yes'
）elsewriteln（'
no'
28题目：
请输入星期几的第一个字母来判断一下是星期几，如果第一个字母一样，则继续判断第二个字母……
vara,b,c:
if（a='
m'
）or（a='
w'
f'
）then
ifa='
thenwriteln（'
end
else
readln（b）;
if（b='
h'
）or（b='
ifb='
6'
end
else
readln（c）;
if（c='
e'
）or（c='
n'
ifc='
7'
29题目：
求100之内的素数
=3tondo
30题目：
对10个数进行排序插入排序
constn=10;
array[1..n]ofinteger;
i,j,k,t:
Enterdate:
=1tondoread（a）;
k:
j:
=i-1;
while（k<
a[j]）and（j>
0）do
begina[j+1]:
=a[j];
=j-1end;
a[j+1]:
=k;
outputdata:
=1tondowrite（a:
6）;
冒泡排序
=1ton-1do
forj:
=ndowntoi+1do
ifa[j-1]<
a[j]then
begint:
=a[j-1];
a[j-1]:
a[j]:
=tend;
=ndownto1dowrite（a:
writeln;
选择排序
升级会员 