clock.pas

Magio牛的usaco源代码

{
ID:maigoak1
PROG:clock
}

program clock;
var
  fin,fout:text;
  num:array[1..44]of string;
  source,ans:string;
  h,m,i,junk:integer;
function next(x:integer):integer;
  begin
    if x=12 then next:=1 else next:=x+1;
  end;
begin
  num[1]:='one';
  num[2]:='two';
  num[3]:='three';
  num[4]:='four';
  num[5]:='five';
  num[6]:='six';
  num[7]:='seven';
  num[8]:='eight';
  num[9]:='nine';
  num[10]:='ten';
  num[11]:='eleven';
  num[12]:='twelve';
  num[13]:='thirteen';
  num[14]:='fourteen';
  num[15]:='fifteen';
  num[16]:='sixteen';
  num[17]:='seventeen';
  num[18]:='eighteen';
  num[19]:='nineteen';
  num[20]:='twenty';
  num[30]:='thirty';
  num[40]:='forty';
  for i:=21 to 44 do
    if i mod 10>0 then
      num[i]:=num[i div 10*10]+'-'+num[i mod 10];

  assign(fin,'clock.in');
  reset(fin);
  readln(fin,source);
  close(fin);
  val(copy(source,1,pos(':',source)-1),h,junk);
  val(copy(source,pos(':',source)+1,length(source)-pos(':',source)),m,junk);

  if m=0 then
    ans:=num[h]+' o''clock'
  else if m=15 then
    ans:='quarter past '+num[h]
  else if m=45 then
    ans:='quarter to '+num[next(h)]
  else if m>45 then
    ans:=num[60-m]+' to '+num[next(h)]
  else
    ans:=num[h]+' '+num[m];
  ans[1]:=chr(ord(ans[1])-32);

  assign(fout,'clock.out');
  rewrite(fout);
  writeln(fout,ans);
  close(fout);
end.