Pascal編程及答案內(nèi)容

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分鐘，請(qǐng)計(jì)算小明到外婆家的出租車費(fèi)用是多少元?輸入：N

M（N，M都是整數(shù)）輸出：一個(gè)實(shí)數(shù)（表示車費(fèi)，精確到0.1元）例如：輸入：8

7

輸出：18.8參考答案：---------------------------------------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<=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ù)，先算對(duì)者獲勝。請(qǐng)你算出正確答案，當(dāng)他倆的裁判。輸入：N（N<=100）

A1

A2

（A1、A2取值范圍：2..10）輸出：一個(gè)整數(shù)例如：輸入：10

2

3

輸出：4參考答案：programt2;

vart,n,a1,a2,s,aa1,aa2:integer;

begin

writeln('shurun');

readln(n);

writeln('shurua1a2');

readln(a1,a2);

{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）小明爺爺家有棵蘋果樹，樹上高低不一的長(zhǎng)了N個(gè)蘋果。一天，M個(gè)小朋友到爺爺家做客，爺爺說：你們每人最多可以摘兩個(gè)蘋果，而且只許伸手摘，不允許借助其它工具，摘下的蘋果大家分享。由于小朋友的身高參差不齊，怎樣才能使他們摘的蘋果總數(shù)最多呢？請(qǐng)你計(jì)算機(jī)小朋友們最多能摘到多少個(gè)蘋果？輸入：N

M(N<=100,M<=20)

N個(gè)整數(shù)（以空格相隔），分別表示每個(gè)蘋果的高度

M個(gè)整數(shù)（以空格相隔），分別表示每個(gè)小朋友伸手能達(dá)到的高度。輸出：一個(gè)整數(shù)例如：輸入：10

4

1101001509010013516088130140

12010011080

輸出：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