Pascal编程及答案一、乘车费用（100分）（存盘程序名：T1）星期天上午小明乘出租车去本市的外婆家。出租车计价方案为：2公里以内起步价是6元，超过2公里之后按1.8元/公里计价，超过10公里之后在1.8元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/3分（注：不满3分钟不计费）。已知：小明到外婆家路程为N公里，中间停车等候时间总共M分钟，请计算小明到外婆家的出租车费用是多少元?输入：NM（N，M都是整数）输出：一个实数（表示车费，精确到0.1元）例如：输入：87输出：18.8参考答案：---------------------------------------Programt1;varn,m:integer;s,zj:real;Beginifn>10thens:=6+(n-2)*1.8+n*1.8*0.5elseifn>2thens:=6+(n-2)*1.8elseifn<=2thens:=6;zj:=s+mdiv3;writeln(zj:5:1);End.二、报数游戏（100分）（存盘程序名：T2）小明和小红一起玩报数游戏：小明按1-A1循环报数，小红按1-A2循环报数。两人同时开始，并以同样的速度报数，当两人都报了N个数时，统计出两人同时报相同数的次数，先算对者获胜。请你算出正确答案，当他俩的裁判。输入：N（N<=100）A1A2（A1、A2取值范围：2..10）输出：一个整数例如：输入：1023输出：4参考答案：programt2;vart,n,a1,a2,s,aa1,aa2:integer;beginwriteln('shurun');readln(n);writeln('shurua1a2');readln(a1,a2);t:=0;s:=1;aa1:=1;aa2:=1;repeatt:=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,再让小明恢复单词的原样。你能编程完成小的任务吗？输入：N（1<=N<=50）单词1单词2……单词N（单词中字母都是小写，单词之间以一个空格分隔）一个变乱字母顺序的单词输出：恢复的正确的单词（注：若正确单词不止一个，则每行输出一个单词）例如：输入：4Schoolboystudenttreeybo输出：boy参考答案：programt3;varn,i,j,k:integer;a:array[1..50]ofstring;s,b:string;flag:boolean;beginreadln(n);readln(s);readln(b);j:=1;repeati:=pos('',s);ifi<>0thenbegina[j]:=copy(s,1,i-1);j:=j+1;delete(s,1,i);endelsebegina[j]:=s;s:='';end;untils='';{forj:=1tondowrite(a[j]);end.}k:=length(b);flag:=false;forj:=1tondobeginfori:=1tokdoifpos(b[i],a[j])<>0thenflag:=trueelsebreak;ifflagthenbeginwriteln(a[j]);break;end;end;end.四、摘HYPERLINK"http://wenwen.sogou.com/z/Search.e?sp=S%E7%BA%A2%E8%8B%B9%E6%9E%9C&ch=w.search.yjjlink&cid=w.search.yjjlink"\t"_blank"红苹果（100分）（存盘程序名：T4）小明爷爷家有棵苹果树，树上高低不一的长了N个苹果。一天，M个小朋友到爷爷家做客，爷爷说：你们每人最多可以摘两个苹果，而且只许伸手摘，不允许借助其它工具，摘下的苹果大家分享。由于小朋友的身高参差不齐，怎样才能使他们摘的苹果总数最多呢？请你计算机小朋友们最多能摘到多少个苹果？输入：NM(N<=100,M<=20)N个整数（以空格相隔），分别表示每个苹果的高度M个整数（以空格相隔），分别表示每个小朋友伸手能达到的高度。输出：一个整数例如：输入：104110100150901001351608813014012010011080输出：5参考答案：progr