Pascal編程及答案

1、Pascal編程及答案、乘車費(fèi)用（100分）（存盤程序名：T1）星期天上午小明乘出租車去本市的外婆家。出租車計(jì)價(jià)方案為：2公里以內(nèi)起步價(jià)是6元，超過2公里之后按1.8元/公里計(jì)價(jià)，超過10公里之后在1.8元/公里的基礎(chǔ)上加價(jià)50%,另外，停車等候則按時(shí)間計(jì)費(fèi)：1元/3分（注：不滿3分鐘不計(jì)費(fèi)）。已知：小明到外婆家路程為N公里，中間停車等候時(shí)間總共M分鐘，請計(jì)算小明到外婆家的出租車費(fèi)用是多少元？輸入：NM（N,M都是整數(shù)）輸出：一個(gè)實(shí)數(shù)（表示車費(fèi)，精確到0.1元）例如：輸入：87輸出：18.8參考答案：Programtl;varn,m:integer;s,zj:real;Beginifn>

2、10thens:=6+（n-2）*1.8+n*l.8*0.5elseifn>2thens:=6+（n-2）*l.8elseifn<=2thens:=6;zj:=s+mdiv3;writeln(zj:5:1);End.、報(bào)數(shù)游戲(100分)(存盤程序名：T2)小明和小紅一起玩報(bào)數(shù)游戲：小明按1-A1循環(huán)報(bào)數(shù)，小紅按1-A2循環(huán)報(bào)數(shù)。兩人同時(shí)開始，并以同樣的速度報(bào)數(shù)，當(dāng)兩人都報(bào)了N個(gè)數(shù)時(shí)，統(tǒng)計(jì)出兩人同時(shí)報(bào)相同數(shù)的次數(shù)，先算對者獲勝。請你算出正確答案，當(dāng)他倆的裁判。輸入：N(Nv=100AlA2(Al>A2取值范圍：2.10)例如：輸入：10輸出：4參考答案：Programt2;v

3、art,n,al,a2,s,aal,aa2:integer;beginwriteinshurun');readln(n);writeinshuruala2');readln(al,a2);t:=0;s:=l;aal:=1;aa2:=l;repeatt:=t+l;aal:=aal+l;ifaal>althenaal:=1;aa2:=aa2+l;ifaa2>a2thenaa2:=l;ifaal=aa2thens:=s+l;untilt=n;writeln(s);三、單詞恢復(fù)（10。分）（存盤程序名：T3）小明已學(xué)會了N個(gè)英語單詞，媽媽常幫助他加強(qiáng)記憶：她從這N個(gè)單詞中挑

4、出一個(gè)，并將該單詞中的字母順序變亂，例如：boy變?yōu)閥bo,再讓小明恢復(fù)單詞的原樣。你能編程完成小的任務(wù)嗎？輸入：N（l<=N<=50）單詞1單詞2單詞N（單詞中字母都是小寫，單詞之間以一個(gè)空格分隔）個(gè)變亂字母順序的單詞輸出：恢復(fù)的正確的單詞（注：若正確單詞不止一個(gè)，則每行輸出一個(gè)單詞）例如：輸入：4Schoolboystudenttreeybo輸出：boy參考答案：programt3;varn,i,j,k:integer;a:arrayl.50ofstring;s,b:string;flag:boolean;beginreadln(n);readln(s);readln(b);j

5、:=l;repeati:=pos('',s);ifi<>0thenbeginaj:=copy(s,1,i-1);j：=j+1；delete(s,1,i);endelsebeginuntils；;end;aj:=s;s:=forj:=1tondowrite(aj);end.k:=length(b);flag:=false;forj:=1tondobeginfori:=1tokdobreak;break; end;ifpos(bi,aj)<>0thenflag:=trueelseifflagthenbeginwriteln(aj);end;end.四、摘紅蘋

6、果（100分）（存盤程序名:T4 )小明爺爺家有棵蘋果樹，樹上高低不一的長了N個(gè)蘋果。天，M個(gè)小朋友到爺爺家做客，爺爺說：你們每人最多可以摘兩個(gè)蘋果，而且只許伸手摘，不允許借助其它工具，摘下的蘋果大家分享。由于小朋友的身高參差不齊，怎樣才能使他們摘的蘋果總數(shù)最多呢？請你計(jì)算機(jī)小朋友們最多能摘到多少個(gè)蘋果？輸入：NM(Nv=100,Mv=20)N個(gè)整數(shù)（以空格相隔），分別表示每個(gè)蘋果的高M(jìn)個(gè)整數(shù)（以空格相隔），分別表示每個(gè)小朋友伸手能達(dá)到的高度。例如：輸入：104110100150901001351608813014012010011080輸出：5參考答案：Programt4;varn,m,t,

7、i,j,ss,sg,sum:integer;s:array1.100ofinteger;r:array1.20ofinteger;beginreadln(n,m);fori:=1tondoread(si);forj:=1tomdoread(rj);fori:=1ton-ldoforj:=i+ltondoifsi<sjthenbegint:=si;si:=sj;sj:=t; for i:=l to n dowrite (si:4);fori:=1tom-1doforj:=i+ltomdoifri<rjthenbegint:=ri;ri:=rj;rj:=t;end;writein;fori:=1tomdowrite(ri:4);ss:=0;sum:=0;sg:=l;fori:=1tomdobeginforj:=sgt