初夏、樱花落 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网站!