USACO的RIDE? [复制链接]

{
ID: xieyi001
PROG: ride
LANG: PASCAL
}
Program ride;
  Var
    fin,fout:text;
    ch:char;
    ma,mb:integer;
    va,vb:longint;
  Begin
    Assign(fin,'ride.in');Reset(fin);
    Assign(fout,'ride.out');Rewrite(fout);
    va:=1;
    While Not eoln Do
      Begin
        Read(fin,ch);
        va:=va*(Ord(ch)-64);
      End;
    ma:=va Mod 47;
    Readln(fin);
    vb:=1;
    While Not eoln Do
      Begin
        Read(fin,ch);
        vb:=vb*(Ord(ch)-64);
      End;
    Readln(fin);
    ma:=va Mod 47;mb:=vb Mod 47;
    If ma=mb Then Writeln(fout,'GO') Else Writeln(fout,'STAY');
    Close(fin);Close(fout);
  End.
大概是文件处理的问题..高人指点下

你后面的那个ma:=va mod 47是多余的,你在前面已经运算过一次了.

呵呵 我知道怎么回事了 谢谢楼上哈
不是ma:=va mod 47的问题,是eoln的问题.....应该是eoln(fin)
我怎么没想到用字串啊 头脑发热了.........

呵呵

。。。