fork download
copy 
  1. program chasing;
  2. Uses Math;
  3.  
  4. var
  5.      Bs, Bx, By, Ds, Dx, Dy, T,  dist   : Longint;
  6.      dir : Char;
  7.      tdog,spostpall,nuovacoordpall : real;
  8. begin
  9.  
  10.  
  11.     ReadLn(Dx, Dy, Ds);
  12.  
  13.     ReadLn(Bx, By, Bs);
  14.  
  15.     ReadLn(dir);
  16.  
  17.     T := 0; 
  18.     if dir='R' then T:=ceil((abs(Dx-Bx)+abs(Dy-By))/(abs(Ds-Bs)));
  19.  
  20.     if dir='L' then T:=ceil((abs(Dx-Bx)+abs(Dy-By))/(abs(Ds+Bs)));
  21.  
  22.  
  23.   writeln(T);
  24. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
2 3 2
1 -1 1
R
stdout
copy 
5
https://ideone.com/R05JLY
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!