资源描述：
《Pascal编程与答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、.....Pascal编程及答案一、乘车费用（100分）（存盘程序名：T1）星期天上午小明乘出租车去本市的外婆家。出租车计价方案为：2公里以内起步价是6元，超过2公里之后按1.8元/公里计价，超过10公里之后在1.8元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/3分（注：不满3分钟不计费）。已知：小明到外婆家路程为N公里，中间停车等候时间总共M分钟，请计算小明到外婆家的出租车费用是多少元?输入：N M（N，M都是整数）输出：一个实数（表示车费，精确到0.1元）例如：输入：8 7 输出：18.8参考答案：----
2、-----------------------------------Programt1; varn,m:integer; s,zj:real; Begin ifn>10thens:=6+(n-2)*1.8+n*1.8*0.5 elseifn>2thens:=6+(n-2)*1.8 elseifn<=2then学习参考.....s:=6; zj:=s+mdiv3; writeln(zj:5:1);End.二、报数游戏（100分）（存盘程序名：T2）小明和小红一起玩报数游戏：小明按1-A1循环报数，小红按1-A2循环报
3、数。两人同时开始，并以同样的速度报数，当两人都报了N个数时，统计出两人同时报相同数的次数，先算对者获胜。请你算出正确答案，当他俩的裁判。输入：N（N<=100） A1 A2 （A1、A2取值范围：2..10）输出：一个整数例如：输入：10 2 3 输出：4参考答案：programt2; vart,n,a1,a2,s,aa1,aa2:integer;begin writeln('shurun'); readln(n); writeln('shurua1a2');
4、学习参考.....readln(a1,a2); t:=0;s:=1;aa1:=1; aa2:=1; repeat t:=t+1; aa1:=aa1+1;ifaa1>a1thenaa1:=1; aa2:=aa2+1; ifaa2>a2thenaa2:=1; ifaa1=aa2thens:=s+1; untilt=n;writeln(s);end.三、单词恢复（100分）（存盘程序名：T3）小明已学会了N个英语单词，妈妈常帮助他加强记忆：她从这N个单词中挑出一个，并将该单词中的字母顺序变乱，例如：boy变为ybo,再让小明恢复单词的原样。你能编程完成小的
5、任务吗？输入：N（1<=N<=50） 单词1 单词2 …… 单词N（单词中字母都是小写，单词之间以一个空格分隔） 一个变乱字母顺序的单词输出：恢复的正确的单词（注：若正确单词不止一个，则每行输出一个单词）例如：输入：4 Schoolboystudenttree学习参考..... ybo 输出：boy参考答案：programt3; varn,i,j,k:integer; a:array[1..50]ofstr
6、ing; s,b:string; flag:boolean;begin readln(n); readln(s); readln(b); j:=1;repeat i:=pos('',s);ifi<>0thenbegin a[j]:=copy(s,1,i-1); j:=j+1; delete(s,1,i); end elsebegin a[j]:=s;s:='';end;untils='学习参考.....';{forj:=1tondo write(a[j]);end.}k:=length(b);flag:=false;
7、forj:=1tondobegin fori:=1tokdo if pos(b[i],a[j])<>0thenflag:=trueelse break; ifflagthenbeginwriteln(a[j]); break;end;end;end. 四、摘红苹果（100分）（存盘程序名：T4）小明爷爷家有棵苹果树，树上高低不一的长了N个苹果。一天，M个小朋友到爷爷家做客，爷爷说：你们每人最多可以摘两个苹果，而且只许伸手摘，不允许借助其它工具，摘下的苹果大家分享。由于小朋友的身高参差不齐，怎样才能使他们摘的苹果总数最多呢？
8、请你计算机小朋友们最多能摘到多少个苹果？输入：N M(N<=100,M<=20) N个
