点这里查看
讨论 / 我觉得我真的过的不科学！
初夏、樱花落 2013-08-21 23:00:00
点我顶贴 收藏 删除
本来交这个程序是想试试，没想到无缘无故竟然AC了，当时我真的石化了~

var s:string;

i,w:integer;

begin

readln(s);

for i:=1 to length(s) do

case s[i] of

'a','d','g','j','m','p','t','w':w:=w+1;

'b','e','h','k','n','q','u','x':w:=w+2;

'c','f','i','l','o','r','v','y':w:=w+3;

's','z':w:=w+4;

' ':w:=w+1;

end;

write(w);

end.

现在拿出这个程序，也想让各位高手看看，有哪些可以改正的地方，让这个程序变得简洁明了一点。谢谢！

最后说一句~力挺RQNOJ网站！

#1 红蓝帝国@2013-08-18 22:37:00
回复 删除
这不是做题

是考试！！！

#2 初夏、樱花落@2013-08-19 05:30:00
回复 删除
什么？

亲~什么意思？没看懂诶~~~

#3 absi2011@2013-08-19 23:31:00
回复 删除
我也类似这样

这是对的~

#4 初夏、樱花落@2013-08-20 03:34:00
回复 删除
回复地毯absi2011

哈？我木了~

#5 107229HR@2013-08-20 23:06:00
回复 删除
回复 地板初夏、樱花落 的帖子

这题就该这样啊

我是absi2011的大号~

#6 初夏、樱花落@2013-08-21 05:30:00
回复 删除
回复地下室 107229HR的帖子

哇哇哇~大号好厉害捏~一百多题通过耶~我们一起加油哈~

#7 absi2011@2013-08-21 09:08:00
回复 删除
回复 地基初夏、樱花落 的帖子

嗯,加油刷题

#8 蛤蛤@2013-08-21 23:00:00
回复 删除
刷吧 ... 刷吧 ..... 刷吧 ...... 刷吧 ..........
查看更多回复
提交回复