Pascal编程及答案.doc

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参考答案：-Program t1; var n,m:integer; s,zj:real;Begin if n10 then s:=6+(n-2)*1.8+n*1.8*0.5 else if n2 then s:=6+(n-2)*1.8 else if n=2 then s:=6; zj:=s+m div 3;writeln(zj:5:1);End.二、报数游戏（100分）（存盘程序名：T2）小明和小红一起玩报数游戏：小明按1-A1循环报数，小红按1-A2循环报数。两人同时开始，并以同样的速度报数，当两人都报了N个数时，统计出两人同时报相同数的次数，先算对者获胜。请你算出正确答案，当他俩的裁判。输入：N（Na1 then aa1:=1; aa2:=aa2+1; if aa2a2 then aa2:=1; if aa1=aa2 then s:=s+1;until t=n;writeln(s);end.三、单词恢复（100分）（存盘程序名：T3）小明已学会了N个英语单词，妈妈常帮助他加强记忆：她从这N个单词中挑出一个，并将该单词中的字母顺序变乱，例如：boy变为ybo,再让小明恢复单词的原样。你能编程完成小的任务吗？输入：N（1=N=50） 单词1 单词2 单词N（单词中字母都是小写，单词之间以一个空格分隔） 一个变乱字母顺序的单词输出：恢复的正确的单词（注：若正确单词不止一个，则每行输出一个单词）例如：输入：4 School boy student tree ybo 输出：boy参考答案：program t3; var n,i,j,k:integer; a:array1.50of string; s,b:string; flag:boolean;begin readln(n); readln(s); readln(b); j:=1;repeat i:=pos( ,s); if i0 then begin aj:=copy(s,1,i-1); j:=j+1; delete(s,1,i); end else begin aj:=s; s:= ; end;until s= ; for j:= 1 to n do write(aj);end.k:=length(b); flag:=false;for j:=1 to n do beginfor i:=1 to k do if pos(bi,aj)0 then flag:=true else break; if flag then begin writeln(aj); break; end;end;end.四、摘红苹果（100分）（存盘程序名：T4）小明爷爷家有棵苹果树，树上高低不一的长了N个苹果。一天，M个小朋友到爷爷家做客，爷爷说：你们每人最多可以摘两个苹果，而且只许伸手摘，不允许借助其它工具，摘下的苹果大家分享。由于小朋友的身高参差不齐，怎样才能使他们摘的苹果总数最多呢？请你计算机小朋友们最多能摘到多少个苹果？输入：N M(N=100,M=20) N个整数（以空格相隔），分别表示每个苹果的高度 M个整数（以空格相隔），分别表示每个小朋友伸手能达到的高度。输出：一个整数例如：输入：10 4 110 100 150 90 100 135 160 88 130 140 120 100 110 80 输出：5参考答案：program t4;var n,m,t,i,j,ss,sg,sum:integer; s:array1.100 of integer; r:array1.20 of integer;begin readln(n,m); for i:= 1 to n do read(si); for j:=1 to m do read(rj); for i:=1 to n-1 do for j:=i+1 to n do if sisj then begin t:=si; si:=sj; sj:=t; end; for i:=1 to n do write(si:4); for i:=1 to m-1 do for j:=i+1 to m do if ri=sj then begi