pascal100练习题Word文件下载.docx
- 文档编号:19083504
- 上传时间:2023-01-03
- 格式:DOCX
- 页数:53
- 大小:31.29KB
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;
选择排序
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- pascal100 练习题