USACO chapter1

      几天时间就把USACO chapter1重新做了一遍，发现了自己以前许多的不足。蒽，现在的程序明显比以前干净很多，而且效率也提高了许多。继续努力吧，好好的提高自己。这一章主要还是基本功的训练，没多少的思维难度，不过基础也是很重要的。  

——2013年11月17日

 

1.1.1  Your Ride Is Here

      题目很简单，长字符串读入，按位相乘，同时取模即可，一开始的时候居然忘记了给d1和d2赋值1，结果无论是什么字符串读入计算结果都为0，虽然是水题，还是要记住初始化！

{ID: jiangyi10
PROG: ride
LANG: PASCAL
}

var
  d1,d2,i,j,k,l,m,n:longint;
  s:ansistring;

{file}
procedure openf;
begin
  assign(input,'ride.in'); reset(input);
  assign(output,'ride.out'); rewrite(output);
end;
procedure closef;
begin
  close(input); close(output);
  halt;
end;

begin
  {input}
  openf;

  {zero}
  d1:=1;
  d2:=1;

  {doit}
  readln(s);
  for i:=1 to length(s) do
  d1:=d1*(ord(s[i])-ord('A')+1) mod 47;
  readln(s);
  for i:=1 to length(s) do
  d2:=d2*(ord(s[i])-ord('A')+1) mod 47;

  {output}
  if d1=d2 then writeln('GO') else writeln('STAY');
  closef;
end.

View Code