UC知道pascal解题
来源：百度知道 编辑：UC知道 时间：2024/05/15 19:36:33
青蛙的约会
两只青蛙在网上相识了，它们聊得很开心，于是觉得很有必要见一面。它们很高兴地发现它们住在同一条纬度线上，于是它们约定各自朝西跳，直到碰面为止。可是它们出发之前忘记了一件很重要的事情，既没有问清楚对方的特征，也没有约定见面的具体位置。不过青蛙们都是很乐观的，它们觉得只要一直朝着某个方向跳下去，总能碰到对方的。但是除非这两只青蛙在同一时间跳到同一点上，不然是永远都不可能碰面的。为了帮助这两只乐观的青蛙，你被要求写一个程序来判断这两只青蛙是否能够碰面，会在什么时候碰面。 我们把这两只青蛙分别叫做青蛙A和青蛙B，并且规定纬度线上东经0度处为原点，由东往西为正方向，单位长度1米，这样我们就得到了一条首尾相接的数轴。设青蛙A的出发点坐标是x，青蛙B的出发点坐标是y。青蛙A一次能跳m米，青蛙B一次能跳n米，两只青蛙跳一次所花费的时间相同。纬度线总长L米。现在要你求出它们跳了几次以后才会碰面。
POJ 1061
输入只包括一行5个整数x，y，m，n，L，其中x≠y < 2000000000，0 < m、n < 2000000000，0 < L < 2100000000。
输出碰面所需要的跳跃次数，如果永远不可能碰面则输出一行"Impossible"
必须用PASCAL！
两只青蛙在网上相识了，它们聊得很开心，于是觉得很有必要见一面。它们很高兴地发现它们住在同一条纬度线上，于是它们约定各自朝西跳，直到碰面为止。可是它们出发之前忘记了一件很重要的事情，既没有问清楚对方的特征，也没有约定见面的具体位置。不过青蛙们都是很乐观的，它们觉得只要一直朝着某个方向跳下去，总能碰到对方的。但是除非这两只青蛙在同一时间跳到同一点上，不然是永远都不可能碰面的。为了帮助这两只乐观的青蛙，你被要求写一个程序来判断这两只青蛙是否能够碰面，会在什么时候碰面。 我们把这两只青蛙分别叫做青蛙A和青蛙B，并且规定纬度线上东经0度处为原点，由东往西为正方向，单位长度1米，这样我们就得到了一条首尾相接的数轴。设青蛙A的出发点坐标是x，青蛙B的出发点坐标是y。青蛙A一次能跳m米，青蛙B一次能跳n米，两只青蛙跳一次所花费的时间相同。纬度线总长L米。现在要你求出它们跳了几次以后才会碰面。
POJ 1061
输入只包括一行5个整数x，y，m，n，L，其中x≠y < 2000000000，0 < m、n < 2000000000，0 < L < 2100000000。
输出碰面所需要的跳跃次数，如果永远不可能碰面则输出一行"Impossible"
必须用PASCAL！
测试全过，带文件结构
剩余类的题目
Program Gy;
Const
Work='Frog';
Var
M,N,X,Y,L,Mo,Mx,YY,XX,NN:int64;
Procedure Inp;
Var I:int64;
Begin
Assign(Input,Work+'.in');Reset(Input);
Assign(Output,Work+'.out');Rewrite(Output);
Read(X,Y,M,N,L);
If M<N then
Begin
I:=M;
M:=N;
N:=I;
I:=X;
X:=Y;
Y:=I;
End;
End;
Function Gcdx(A,B:Int64):Int64;
Begin
If B mod A=0 then Exit(A)
Else Exit(Gcdx(B mod A,A));
End;
Function Gcdy(A,B:Int64):Int64;
Var X:Longint;
Begin
If A+B=1 then Exit(A)
Else Begin
X:=Gcdy(B mod A,A);
Exit((1-X*B)div A);
End;
End;
Procedure Main;
Begin
Mo:=Gcdx(M-N,L);
If (Y-X)mod Mo<>0 the