没有合适的资源?快使用搜索试试~ 我知道了~
PASCAL经典题型.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 9 浏览量
2024-01-18
23:43:50
上传
评论
收藏 46KB DOC 举报
温馨提示
试读
12页
PASCAL经典题型
资源推荐
资源详情
资源评论
Pascal 经典题型
1
1、小光去买本子,若买 10 本以下每本 0.6 元,超过的部分可以每本可以减少 0.1 元,小光
买若干个本子,问他预计要向他妈妈要多少钱?
提示:x:本子, m:钱
read(x);
if x<=0 then write('it is wrong!')
else if x>10 then m:=6+(x-10)*0.5
else m:=x*0.6;
2、一个两位数,它的每位数字之和是 9,且数字之和的 8 倍恰好是这两位数的数字调换位
置所得的数,求这两位数。
提示:
第一种算法:
for i:=10 to 99 do
begin
shi:=i div 10;
ge:=i mod 10;
if 9*8=ge*10+shi then write(i);
end;
第二种算法:
for i:=1 to 9 do
for j:=1 to 9 do
begin
m:=j*10+i;
if (i+j=9) then (m=72) then write(i*10+j);
3、有人民币 100 元,要求换成零钱,零钱有以下几种,1 元,2 元,5 元,和 10 元的,问
有多少种换法?各种换法是哪些?
提示:
for shi:=1 to 9 do
for wu:=1 to 18 do
for liang:=1 to 42 do
for yi:=1 to 83 to
begin
sum:=shi*10+wu*5+liang*2+yi*1;
if sum=100 then begin
write(shi,wu,liang,yi);
n:=n+1;
end;
4、求一个最小的自然数,使它与 6 的和是 13 的倍数,与 6 的差是 12 的倍数。
提示:
for i:=1 to 32766 do
if ((i+6) mod 13=0) and ((i-6) mod 12=0) then
write(i);
5、爸爸比儿子大 30 岁,4 年后爸爸的年龄是儿子的 4 倍,问现在爸爸和儿子的年龄是多少?
提示:x:表示儿子现在的年龄
while (30+x+4)<>(x+4)*4 do
Pascal 经典题型
2
x:=x+1;
write(30+x,x);
6、用 15 元,买 15 包食品,食品中包含有 3 种,糖每包 2 元,花生每包 1 元,瓜子每包
0.5 元,问有多少种购买方法?
提示:见人民币一题
7、剧场中有 1000 个座位,已知第一排有 30 个座位,以后每排增加 2 个座位,问 1000 个座
位能排几排?最后剩下不够一排的座位有几个?如果按前面的排法补全一排,问整个剧场有
多少个座位?
提示:x:表示第一排
提示:x:表示第一排
x:=30; s:=30;
while s<1000 do
begin
p:=p+1;
x:=x+2;
s:=s+x;
end;
y:=1000-(s-x);
m:=s;
8、计算 1/1-1/2+1/3-1/4+1/5-......+1/99-1/100 的值
提示:
k:=1;
for i:=1 to 100 do
begin
s:=s+k/i;
k:=-k;
end;
k:=1;
for i:=1 to 99 do
s:=s+k/i+(-k)/(i+1);
9、随机产生 20 个两位数的整数,找出其中最大的,并指出它是第几个数?
提示:
randomize;
for i:=1 to 20 do
begin
x[i]:=trunc(random*90)+10
max:=x[1];
for i:=2 to 20 do
if max<x[i] then begin
max:=x[i];
r:=i;
Pascal 经典题型
3
end;
注意:random*9:产生包括 0 不包括 9 的随机数。[0,45)
10、有两缸金鱼,如果从第一缸取出 15 条放入第二缸,这时第二缸内的金鱼刚好是第一缸
的 5/7,已知第二缸内原有金鱼 35 条,第一缸内原有金鱼多少条?
提示:
a2:=35;
a2:=a2+15;
a1:=a2/(5/7);
10、有两缸金鱼,如果从第一缸取出 15 条放入第二缸,这时第二缸内的金鱼刚好是第一缸
的 5/7,已知第二缸内原有金鱼 35 条,第一缸内原有金鱼多少条?
提示:
a2:=35;
a2:=a2+15;
a1:=a2/(5/7);
11、三位整数中有多少个能既被 3 整除,又能被 5 整除的数?请输出这些数据并输出总个数?
提示:
for a:=100 to 999 do
if (a mod 3=0) and (a mod 5=0) then
begin
n:=n+1;
write(a:4);
end;
write(n);
12、打印如下数字组成的图形
1
22
333
4444
55555
666666
……..
提示:
for i:=1 to 5 do
for j:=1 to i do
write(i);
13、一个数列第一个数为 1,第二个数为 2,
从第三个数开始,其值为它前面两位数之积,求这个数列的前 10 项。
从第三个数开始,其值为它的前面两位数之和,求这个数列的前 20 项。
提示:
a[20]
a[1]:=1;
a[2]:=2;
剩余11页未读,继续阅读
资源评论
小正太浩二
- 粉丝: 194
- 资源: 5904
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功