文档介绍：该【Pascal编程及答案 】是由【文艺人生】上传分享，文档一共【9】页，该文档可以免费在线阅读，需要了解更多关于【Pascal编程及答案 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。Pascal编程及答案Pascal编程及答案一、乘车费用(100分)(存盘程序名:T1)星期天上午小明乘出租车去本市的外婆家。出租车计价方案为:2公里以内起步价是6元,,%,另外,停车等候则按时间计费:1元/3分(注:不满3分钟不计费)。已知:小明到外婆家路程为N公里,中间停车等候时间总共M分钟,请计算小明到外婆家的出租车费用是多少元?输入:N???M(N,M都是整数)输出:一个实数(表示车费,)例如:输入:8?7???????????输出::---------------------------------------Programt1;?varn,m:integer;???????s,zj:real;?Begin??ifn>10thens:=6+(n-2)*+n**??????elseifn>2thens:=6+(n-2)*??????elseifn<=2thens:=6;?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);、单词恢复(100分)(存盘程序名:T3)小明已学会了N个英语单词,妈妈常帮助他加强记忆:她从这N个单词中挑出一个,并将该单词中的字母顺序变乱,例如:boy变为ybo,再让小明恢复单词的原样。你能编程完成小的任务吗?输入:N(1<=N<=50)???????????单词1??单词2???……?单词N(单词中字母都是小写,单词之间以一个空格分隔)???一个变乱字母顺序的单词输出:恢复的正确的单词(注:若正确单词不止一个,则每行输出一个单词)例如:输入:4???????????????????????Schoolboystudenttree???????????????????????ybo???????????输出:boy参考答案:programt3;?varn,i,j,k:integer;?????a:array[1..50]ofstring;?????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;forj:=1tondobegin?fori:=1tokdo?????if?pos(b[i],a[j])<>0thenflag:=trueelse?break;?????????ifflagthenbeginwriteln(a[j]);???break;end;end;end.?四、摘红苹果(100分)(存盘程序名:T4)小明爷爷家有棵苹果树,树上高低不一的长了N个苹果。一天,M个小朋友到爷爷家做客,爷爷说:你们每人最多可以摘两个苹果,而且只许伸手摘,不允许借助其它工具,摘下的苹果大家分享。由于小朋友的身高参差不齐,怎样才能使他们摘的苹果总数最多呢?请你计算机小朋友们最多能摘到多少个苹果?输入:N??M(N<=100,M<=20)???????????N个整数(以空格相隔),分别表示每个苹果的高度???????????M个整数(以空格相隔),分别表示每个小朋友伸手能达到的高度。输出:一个整数例如:输入:10?4????????????????????????11010015090100135**********????????????????????????**********????????????输出:5参考答案:programt4;?varn,m,t,i,j,ss,sg,sum:integer;????s:array[1..100]ofinteger;????r:array[1..20]ofinteger;?begin???readln(n,m);???fori:=1tondoread(s[i]);???forj:=1tomdoread(r[j]);???fori:=1ton-1do????forj:=i+1tondo??????ifs[i]<s[j]then????????begin????????t:=s[i];????????s[i]:=s[j];????????s[j]:=t;????????end;???{fori:=1tondo??write(s[i]:4);}????fori:=1tom-1do??????forj:=i+1tomdo???????ifr[i]<r[j]then????????begin????????t:=r[i];?????????r[i]:=r[j];?????????r[j]:=t;????????end;????????writeln;????{fori:=1tomdowrite(r[i]:4);}????ss:=0;?sum:=0;sg:=1;????fori:=1tomdo?????begin??????forj:=sgtondo???????begin???????ifr[i]>=s[j]then????????begin????????sg:=j+1;ss:=ss+1;sum:=sum+1;?ifss=2thenbeginss:=0;break;?end;????????end;??????????end;??????end;????writeln(sum:5);????end.