我刚开始做usaco的training,才做完那个Your Ride Is Here,然后我把那个pascal的文件传上去了,出现这个

这里是图片,我在文件里谢了那些信息的呀,我的trainingpage的主页还是显示的nextproblem是Yourrideishere,为啥无回应,高手指点一下... 这里是图片,我在文件里谢了那些信息的呀,我的training page的主页还是显示的next problem是Your ride is here,为啥无回应,高手指点一下 展开
 我来答
nxbxx504
2012-10-01 · TA获得超过642个赞
知道小有建树答主
回答量:486
采纳率:0%
帮助的人:383万
展开全部
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.
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式