华师大Java期末考试真题

n，k，max:longint；

s:字符串；

qm，bj，lw，jj:array[1..longint的100]；

gb，xb:array[1..100]的char

名称:数组[1..字符串的100]；

过程初始化；

定义变量

I，x，y，z:longint；

t:字符串；

TT:char；

开始

y:= 0；

readln(n)；

对于i:= 1到n do

开始

s:=“”；

阅读(TT)；

而TT & lt；& gt\ ' \ '

开始

s:= s+TT；

阅读(TT)；

结束；

names[I]:= s；

read(qm[i]，bj[I])；

阅读(TT)；

读取(GB[I])；

阅读(TT)；

read(XB[I])；

readln(lw[I])；

结束；

结束；

主程序；

定义变量

I，x，y:longint；

开始

max:= 0；

对于i:= 1到n do

开始

if(QM[I]& gt；80)和(lw[I]& gt；0)那么inc(jj[i]，8000)；

if(QM[I]& gt；85)和(bj[I]& gt；80)然后inc(jj[i]，4000)；

if(QM[I]& gt；90) then inc(jj[i]，2000)；

if(QM[I]& gt；85)和(xb[i]='Y ')则inc(jj[i]，1000)；

if(bj[I]& gt；80)和(gb[i]='Y ')则inc(jj[i]，850)；

结束；

for I:= 1 to n do if jj[I]& gt；那就麦克斯

开始

k:= I；

max:= jj[I]；

结束；

结束；

程序打印；

定义变量

I，x，y，w:longint；

开始

w:= 0；

writeln(names[k])；

writeln(jj[k])；

for i:= 1 to n do inc(w，jj[I])；

writeln(w)；

结束；

开始

init

主要；

打印；

结束。

楼主请尽量使用。