讨论 - HELP!!!为什么不能AC?输出明明正确，可……

lishanshan 2008-10-01 08:07:00

点我顶贴收藏删除

program jxj；

var

name,maxname:string；

i,j,k,m,n,qimo,class,s,u:longint；

west,studentgb,c:char；

lunwen:0..10；

begin

s:=0；

read(n)；

for i:=1 to n do

begin

name:=’’；

read(c)；

while c<>’ ’ do

begin

name:=name+c；

read(c)；

end；

read(qimo,class,studentgb,studentgb,west,west,lunwen)；

if (qimo>80)and(lunwen>=1) then m:=m+8000；

if (qimo>85)and(class>80) then m:=m+4000；

if qimo>90 then m:=m+2000；

if (qimo>85)and(west=’Y’) then m:=m+1000；

if (class>80)and(studentgb=’Y’) then m:=m+850；

u:=u+m；

if m>s then begin maxname:=name；s:=m；end；

m:=0；

end；

writeln(maxname)；

writeln(s)；

write(u)；

end.

#1 Jollwish@2008-10-01 07:14:00

回复删除

你的输出再开头多了一个空行

#2 lishanshan@2008-10-01 07:56:00

回复删除

怎样改呢？？？

#3 wish@2008-10-01 07:59:00

回复删除

writeln(u)；

#4 lishanshan@2008-10-01 08:05:00

回复删除

错得更凶！汗！！！

#5 wish@2008-10-01 08:07:00

回复删除

刚才没仔细看 -_-

read(qimo,class,studentgb,studentgb,west,west,lunwen)；

不能这样读入

你自己翻下pascal语言的相关书籍吧