
我刚开始做usaco的training,才做完那个Your Ride Is Here,然后我把那个pascal的文件传上去了,出现这个
这里是图片,我在文件里谢了那些信息的呀,我的trainingpage的主页还是显示的nextproblem是Yourrideishere,为啥无回应,高手指点一下...
这里是图片,我在文件里谢了那些信息的呀,我的training page的主页还是显示的next problem是Your ride is here,为啥无回应,高手指点一下
展开
1个回答
展开全部
USACO必须有这段注解!
{
ID: 用户名
PROG: ride
LANG: PASCAL
}
还有usaco是文件读写
{
ID: 用户名
PROG: ride
LANG: PASCAL
}
还有usaco是文件读写
更多追问追答
追问
什么是文件读写呀,还有就是那段注解不是在Free pascal那个编译器里面写吗,还是在哪里写呀,麻烦说详细点,谢谢啦
追答
如果你是pascal 对于ride 问题,程序源代码是,编码文件名ride.pas
{
ID: nxbxx501
PROG: ride
LANG: PASCAL
}
Program ride;
Var a, b: string;
aa,bb:longint;
function getnum(str:string):longint;
var i,j:integer;
begin
getnum:=1;
for i:=1 to length(str) do
begin
getnum:=((ord(str[i])-ord('A')+1)*getnum);
end;
end;
Begin
Assign(input, 'ride.in'); Reset(input);
Assign(output, 'ride.out'); Rewrite(output);
Readln(input,a);
Readln(input,b);
// writeln(getnum(a),' ',getnum(a) mod 47,' ',getnum(b),' ',getnum(b) mod 47);
if getnum(a) mod 47=getnum(b) mod 47 then writeln(output,'GO') else writeln(output,'STAY');
Close(output);
End.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询