【模拟】[JSOI2007]手机

题目:[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.