Question

USACO第一题Your ride is here 为什么我的程序错了。。PASCAL的

ID:yangchao's program
PROG:ride
LANG:PASCAL
program ride(input,output);
var
s:string[6];
a,b,c:longint;
begin
assign(input,'ride.in');
reset(input);
assign(output,'ride.out');
rewrite(output);
readln(s);
b:=1;
c:=1;
for a:=1 to length(s) do begin
b:=b * (ord(s[a]) - 64);
end;
readln(s);
for a:=1 to length(s) do begin
c:=c * (ord(s[a]) - 64);
end;
if (c mod 47) =(b mod 47) then
writeln('GO')
else
writeln('STAY');
close(input);
close(output);
end.

Answer 1

yjw40的话比较正确，本题数据范围适中，longint足够解决，但要取余
若还不行的话， s:string[6];

试着改成string

Answer 2

范围小了
试试这个吧

Var s1,s2:string;
l1,l2,i,ss1,ss2:longint;
Begin
assign(input,'ride.in');
reset(input);
assign(output,'ride.out');
rewrite(output);
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
ss1:=1;
For i:=1 to l1 do ss1:=(ss1*(ord(s1[i])-64))mod 47;
ss2:=1;
For i:=1 to l2 do ss2:=(ss2*(ord(s2[i])-64))mod 47;
if ss1=ss2 Then writeln('GO') else writeln('STAY');
close(input);
close(output);
End.

Answer 3

范围不够，你看一看数据范围就知道了，变量b和c这样一直乘下去，肯定要超过longint范围的，建议你把两个for循环里的b:=b*(ord(s[a])-64)和c:=c*(ord(s[a])-64)改成b:=b*(ord(s[a])-46) mod 47和c:=c*(ord(s[a])-64) mod 47,这样应该对了。