1. 問題
1) 題目描述
某校的慣例是在每學期的期末考試之後發放獎學金。發放的獎學金共有五種，獲取的條件各自不同：
Ø 院士獎學金，每人8000元，期末平均成績高於80分（>80），並且在本學期內發表1篇或1篇以上論文的學生均可獲得；
Ø 五四獎學金，每人4000元，期末平均成績高於85分（>85），並且班級評議成績高於80分（>80）的學生均可獲得；
Ø 成績優秀獎，每人2000元，期末平均成績高於90分（>90）的學生均可獲得；
Ø 西部獎學金，每人1000元，期末平均成績高於85分（>85）的西部省份學生均可獲得；
Ø 班級貢獻獎，每人850元，班級評議成績高於80分（>80）的學生幹部均可獲得；
只要符合條件就可以得獎，每項獎學金的獲獎人數沒有限制，每名學生也可以同時獲得多項獎學金。例如姚林的期末平均成績是87分，班級評議成績82分，同時他還是一位學生幹部，那麼他可以同時獲得五四獎學金和班級貢獻獎，獎金總數是4850元。現在給出若干學生的相關數據，請計算哪些同學獲得的獎金總數最高（假設總有同學能滿足獲得獎學金的條件）。
2) 輸入格式
輸入的第一行是一個整數N（1 <= N <= 100），表示學生的總數。接下來的N行每行是一位學生的數據，從左向右依次是姓名，期末平均成績，班級評議成績，是否是學生幹部，是否是西部省份學生，以及發表的論文數。姓名是由大小寫英文字母組成的長度不超過20的字符串（不含空格）；期末平均成績和班級評議成績都是0到100之間的整數（包括0和100）；是否是學生幹部和是否是西部省份學生分別用一個字符表示，Y表示是，N表示不是；發表的論文數是0到10的整數（包括0和10）。每兩個相鄰數據項之間用一個空格分隔。
3) 輸出格式
輸出包括三行，第一行是獲得最多獎金的學生的姓名，第二行是這名學生獲得的獎金總數。如果有兩位或兩位以上的學生獲得的獎金最多，輸出他們之中在輸入文件中出現最早的學生的姓名。第三行是這N個學生獲得的獎學金的總數。
4) 樣例輸入
4
YaoLin 87 82 Y N 0
ChenRuiyi 88 78 N Y 1
LiXin 92 88 N N 0
ZhangQin 83 87 Y N 1
5) 樣例輸出
ChenRuiyi
9000
28700
2. 分析
1) 大體結構
輸入第一行爲學生的總數設爲k，那麼在輸入學生總數後，需要一個循環來實現輸入學生的信息，循環從1開始到k，循環體內使用字符串接收學生信息
2) 統計最多獎學金與獲得者姓名
從上面分析中可得學生信息存儲在字符串變量中，需考慮字符串所需個數，由於輸入一次信息，可以計算出這個學生所得到的獎學金，所以只需一個字符串來接收信息，設一個整形變量s，s統計最多獲得獎學金的學生所得到的獎金，將每次輸入學生信息所獲得的獎學金計算出來設爲v後與s比較，如果大於s則記錄獲得者姓名，否則繼續循環輸入學生信息，這裏使用大於號是因爲當出現獎學金一樣的情況時，輸出他們之中在輸入文件中出現最早的學生的姓名
3) 統計總獎學金
設置變量t來統計總獎學金，上面分析已經把每次輸入學生信息所得出的獎學金計算出來，在循環最後使用t=t+v把v值累加進t即可，然後v=0將v值設爲0，進行下一輪的輸入
4) 字符串分離
根據輸入的信息分析，在每一個有用輸入數據與下一個有用數據中都存在一個空格，定義a，b，c，d四個字符串變量以及x，y兩個整形變量，a保存輸入學生字符串的信息，b保存姓名，x保存期末平均分， y保存班級評議成績，c保存是否是學生幹部，d保存是否是西部省份學生，可以通過字符串函數來分離實現
字符串分離具體過程爲：
Ø 分離字符
j:=pos(' ',a);//在字符串a中查找出第一個空格的位置，將其所在的位置賦給j
b:=copy(a,1,j-1);//在字符串a中將其下標爲1到j-1號的數據複製給b字符串，下標爲j的數據爲空格，所以j-1
delete(a,1,j);//刪除字符串a中下標爲1到j的數據，需要把空格去掉所以刪除至j
Ø 分離數字
j:=pos(' ',a);//在字符串a中查找出第一個空格的位置，將其所在的位置賦給j
val(copy(a,1,j-1),x,r);//首先進行copy(a,1,j-1)，將字符串a中其下標爲1到j-1號的數據複製出來，然後val(複製後的字符串,x,r)來將其轉換成整形賦給x，r表示如果賦給x時出錯，記錄在那個位置出錯
delete(a,1,j);// 刪除字符串a中下標爲1到j的數據
5) 考慮數據類型
學生最多可獲獎學金8000+4000+2000+1000+850=15850，人數爲1到100，100個人最多可獲得158500，而integer類型最多爲32767，所以需要將統計總獎學金的變量設置爲longint類型
3. 解答
program test;
var
a,b,c,d,n:string;
i,j,k,x,y,z,r,v,s:integer;
t:longint;
begin
readln(k);//輸入學生的總人數
for i:=1 to k do
begin
readln(a);//輸入每個學生的信息，存入字符串a
//字符串分離
j:=pos(' ',a);
b:=copy(a,1,j-1);
delete(a,1,j);
j:=pos(' ',a);
val(copy(a,1,j-1),x,r);
delete(a,1,j);
j:=pos(' ',a);
val(copy(a,1,j-1),y,r);
delete(a,1,j);
j:=pos(' ',a);
c:=copy(a,1,j-1);
delete(a,1,j);
j:=pos(' ',a);
d:=copy(a,1,j-1);
delete(a,1,j-1);
val(copy(a,1,length(a)),z,r);
//字符串分離結束
//計算獎學金
if (x>80) and (z>=1) then v:=v+8000;
if (x>85) and (y>80) then v:=v+4000;
if x>90 then v:=v+2000;
if (x>85) and (d='Y') then v:=v+1000;
if (x>80) and (c='Y') then v:=v+850;
//計算獎學金結束
//記錄最大獎學金與其姓名
if s<v then
begin
s:=v;
n:=b;
end;
//記錄最大獎學金與其姓名結束
t:=t+v; //統計所有的獎學金
v:=0;//將v賦值爲0進行下一個學生的獎學金統計
end;
//輸出信息
writeln(n);
writeln(s);
writeln(t);
//輸出信息結束
end.