请教一道pascal编程题

来源：百度知道 编辑：UC知道 时间：2024/09/21 16:36:22
三只轮船均以匀速行驶，每天分别能够走300公里、240公里和180公里，同时从港口甲开行，若干天后零时，第一艘船到达港口乙，再过若干天后的18时，第二艘船到达港口乙，又过若干天后8时，第三艘船也到达港口乙。请问各船行驶的时间各为多少小时？甲乙两港相距多少公里？已知两港距离不会超过5000公里。

用pascal编程。

var a:boolean;r:longint;
Begin
a:=false;r:=0;
while (not a) and (r<5000) do
begin
inc(r);
if (r mod 300=0) and (((r mod 240)div(240 div 24)=18)and((r mod 240) mod (240 div 24)=0))
and (((r mod 180)div(180 div 24)=8)and((r mod 180) mod (180 div 24)=0) then
a:=true;
end;
writeln(r);
End.
自己理解

很简单的数学问题
只需枚举路程与时间即可。

var a:boolean;r:longint;
Begin
a:=false;r:=0;
while (not a) and (r<5000) do
begin
inc(r);
if (r mod 300=0) and (((r mod 240)div(240 div 24)=18)and((r mod 240) mod (240 div 24)=0))
and (((r mod 180)div(180 div 24)=8)and((r mod 180) mod (180 div 24)=0) then
a:=true;
end;
writeln(r);
End.