题目:[JSOI2007]手机 rqnoj224
题目描述
手机的键盘是这样的:
1 2 abc 3 def
4 ghi 5 jkl 6 mno
7 pqrs 8 tuv 9 wxyz
* 0 #
要按出英文字母就必须要按数字键多下。例如要按出x就得按9两下,第一下会出w,而第二下会把w变成x。0键按一下会出一个空格。
你的任务是读取若干句只包含英文小写字母和空格的句子,求出要在手机上打出这个句子至少需要按多少下键盘。
输入格式
一行。一个句子,只包含英文小写字母和空格,且不超过200个字符。
输出格式
一行。一个整数,表示按键盘的总次数。
样例输入
i have a dream
样例输出
23
Pascal Code
program rqnoj224;
const
a:array['a'..'z'] of longint=(1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,4,1,2,3,1,2,3,4);
var
sum:longint;
s:ansistring;
procedure init;
begin
assign(input,'rqnoj224.in');
assign(output,'rqnoj224.out');
reset(input);
rewrite(output);
end;
procedure outit;
begin
close(input);
close(output);
halt;
end;
procedure readdata;
var
i,j:longint;
ch:char;
begin
read(s);
for i:=1 to length(s) do
begin
if s[i] in ['a'..'z'] then
inc(sum,a[s[i]])
else inc(sum);
end;
writeln(sum);
end;
procedure main;
begin
end;
begin
init;
readdata;
main;
outit;
end.