一道"简单"题,都来试试

Your Ride Is Here

你要乘坐的飞碟在这里

译 by tim green

一个众所周知的事实，在每一慧星后面是一个不明飞行物UFO。这些不明飞行物时常来收集来自在地球上忠诚的支持者。不幸地，他们的空间在每次旅行只能带上一群支持者。他们要做的是用一种聪明的方案让每一个团体人被慧星带走。他们为每个慧星起了一个名字，通过这些名字来决定一个团体是不是特定的慧星带走。那个相配方案的细节在下面被给出；
你的工作要写一个程序来通过团体的名字和彗星的名字来决定一个组是否应该与在那一颗慧星后面的不明飞行物搭配。
团体的名字和慧星的名字都以下列各项方式转换成一个数字: 这个最后的数字代表名字中所有字母的信息，"A" 是 1 和 "Z" 是 26。
举例来说，团体 "USACO" 会是 21*19*1*3*15=17955 。如果团体的数字 mod 47 等于慧星的数字 mod 47,那么你要告诉这个团体准备好被带走 !
写一个程序读入慧星的名字和团体的名字，如果搭配打印"GO"否者打印"STAY"
团体的名字和慧星的名字将会是没有空格或标点的一串大写字母（不超过6个字母），

Examples:

Input  Output
COMETQ
HVNGAT
GO
ABSTAR
USACO
STAY

PROGRAM NAME： ride

INPUT FORMAT

第 1 行:
彗星的名字（一个长度为1到6的字符串）

第 2 行:
团体的名字（一个长度为1到6的字符串）

SAMPLE INPUT （file ride.in）

COMETQ

HVNGAT

OUTPUT FORMAT

单独一行包含"STAR"或"GO".

SAMPLE OUTPUT (file ride.out)

GO

Program ride;
Var
c,d,e,f,g,h:Longint;
i:integer;
input,out:Text;
a,b:string;
Begin
Assign(input,'ride.in');
Reset(input);
ReadLn(input,a);{huixing};
ReadLn(input,b);{tuanti};
Close(input);
Assign(out,'ride.out');
Rewrite(out);
c:=Length(a);
d:=Length(b);
e:=1;f:=1;
For i:=1 To c Do e:=e*(ord(a[i])-64);
For i:=1 To d Do f:=f*(ord(b[i])-64);
g:=e Mod 47;h:=f Mod 47;
If g=h Then WriteLn(out,'GO')
Else Write(out,'STAY');
Close(out);
ReadLn;
End.

不感兴趣

开通SVIP免广告

202.96.188.*

快试试吧，
可以对自己使用挽尊卡咯~

◆

USACO的第一题吗，很简单呀，我和楼上的差不�

汗
这题的简单不用打引号了
我一次AC
汗啊

挖坟可耻！

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

4回复贴，共1页

<<返回pascal吧

分享到:

日	一	二	三	四	五	六