您所在位置：主题：有关USACO1.1的第一个问题。
MK
[专家分：110] 发布于 2005-03-23 21:01:00
var a,b : string[6] ;
m,n : longint ;
i : integer ;
t,g : text ;
begin
assign(t,'E:\BIN\file ride.in');
m:=1;n:=1;
for i:=1 to length(a) do
m:=(ord(a[i])-ord('A')+1)*m;
for i:=1 to length(b) do
n:=(ord(b[i])-ord('A')+1)*n;
m:=m mod 47;n:=n mod 47;
assign(g,'E:\BIN\file ride.out');
rewrite(g);
if m=n then writeln(g,'GO');
if m<>n then writeln(g,'STAY');
close(g);
end.
请问这个程序为什么可以运行？文件输入时少了三句话。还有为什么不输出在指定文件中？急需！
m,n : longint ;
i : integer ;
t,g : text ;
begin
assign(t,'E:\BIN\file ride.in');
m:=1;n:=1;
for i:=1 to length(a) do
m:=(ord(a[i])-ord('A')+1)*m;
for i:=1 to length(b) do
n:=(ord(b[i])-ord('A')+1)*n;
m:=m mod 47;n:=n mod 47;
assign(g,'E:\BIN\file ride.out');
rewrite(g);
if m=n then writeln(g,'GO');
if m<>n then writeln(g,'STAY');
close(g);
end.
请问这个程序为什么可以运行？文件输入时少了三句话。还有为什么不输出在指定文件中？急需！
