首页 | 题库 赛题 | 状态 比赛 | 排行 讨论 题解 | 团队 主题 个人信息 消息 注销 | OIBH 赞助我们

Announcement : RQNOJ添加题目规则公布

查看状态 Show Status

状态题目:谁拿了最多奖学金

题目编号:16-谁拿了最多奖学金 查看该题

状态: Unaccepted

测评机： Xeost[5]

得分： 0分

提交日期： 2009-10-16 17:08:00

有效耗时： 该状态没有记录

测试结果1: 测试结果错误.错误结果为:

YDCmkIYBPOy

15000

332750

正确结果应为:YDCmkIYBPOy

15000

332750

测试结果2: 测试结果错误.错误结果为:

IXrLPdJhEekBRgsbkqI

15850

315050

正确结果应为:IXrLPdJhEekBRgsbkqI

15850

315050

测试结果3: 测试结果错误.错误结果为:

LyFr

15850

376500

正确结果应为:LyFr

15850

376500

测试结果4: 测试结果错误.错误结果为:

HHeXOMfgB

15000

311200

正确结果应为:HHeXOMfgB

15000

311200

测试结果5: 测试结果错误.错误结果为:

IlB

14000

320050

正确结果应为:IlB

14000

320050

测试结果6: 测试结果错误.错误结果为:

DGMqW

15000

350700

正确结果应为:DGMqW

15000

350700

测试结果7: 测试结果错误.错误结果为:

F

15000

324650

正确结果应为:F

15000

324650

测试结果8: 测试结果错误.错误结果为:

YBqilxkGZJx

15000

366150

正确结果应为:YBqilxkGZJx

15000

366150

测试结果9: 测试结果错误.错误结果为:

RaC

12000

249600

正确结果应为:RaC

12000

249600

测试结果10: 测试结果错误.错误结果为:

WtEEnIDxjkneYioJpF

15850

351900

正确结果应为:WtEEnIDxjkneYioJpF

15850

351900

提交代码： Var

n,i,qm,bj,lw,sum,total,maxnum:longint；

name,maxname:string；

ch,gb,xb:char；

Begin

readln(n)；

for i:=1 to n do

begin

name:=’’；sum:=0；

read(ch)；

while ch<>’ ’ do

begin

name:=name+ch；

read(ch)；

end；

read(qm,bj,ch,gb,ch,xb,lw)；

if (qm>80)and(lw>=1) then inc(sum,8000)；

if (qm>85)and(bj>80) then inc(sum,4000)；

if (qm>90) then inc(sum,2000)；

if (qm>85) and(xb=’Y’) then inc(sum,1000)；

if (bj>80) and (gb=’Y’) then inc(sum,850)；

inc(total,sum)；

if sum>maxnum then

begin

maxname:=name；

maxnum:=sum；

end；

end；

writeln(maxname)；

writeln(maxnum)；

writeln(total)；

End.

Powered By RenQing | Art Design By Azuis 帮助 关于

鲁ICP备05014231号

Processed in 0.28125 second(s).

Copyright (c) 2007-2008 Www.RQNOJ.Cn. All Rights Reserved .

？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？