Задача на движение

[Prodote_Privet]

Буду очень благодарен за помощь с задачей.

От железнодорожной станции по направлению к дачному посёлку,расстояние до которого S метров , движется пешеход со скоростью Vч км/ч. Одновременно с ним, в том же направлении бежит собака со скоростью Vс км/ч. Поскольку собака бежит быстрее,то,она разворачивается и бежит к человеку, а от него обратно к дому...(и так по циклу туда сюда пока человек не дойдёт до дома)

Нужно на паскале определить, какой суммарный путь пробежит собака за время,пока человек дойдёт до дома.

[JUDAS]

а при чём тут циклы?
человек проходит путь S со скоростью Vч км/ч за время S/Vч
собака в это всё время бегает туда сюда без передышки со скоростью Vс.
Соотвественно её путь равен времени пока человек не пройдёт домой умноженное на скорость собачины.
на паскале:

program project1;
vs,vch,S : double;
begin
 writeln('S до дома');read(S);
 writeln('V человека км/час');read(vch);
 writeln('V собаки км/час');read(vs);
 
 writeln('собака пробежит суммарное расстояние', Vs*S/Vch);
end.

[p51x]

1. решите задачу на листочке
2. выпишите формулу
3. закодируйте их
4. профит!

[unbanned]

эмм... если я не ошибаюсь то задача простая
найти время за которое человек дойдет до дома... это будет время в течение которого бегала собака. т.к. есть скорость собаки (постоянная) можно найти расстояние которое она пробежала...
S/Vч=T
T*Vc=Sc

[Prodote_Privet]

может быть я чего то недопонял
но цитирую как написанно в задании
"исследовать процесс движения двух обьектов:человека и собаки. Установить связь между расстояниями,пройденными объектами за одно и то же время.определить, какой суммарный путь пробежит собака за время,пока человек дойдёт до дома."
знаю стопроцентно что в программе нужен цикл

[NetSpace]

тут может быть два решения:
1) Как в физике: смотрим пост №2
2) Как в математике: путь собаки - это как сумма сходящегося ряда отрезков пути, а его как раз церез цикл считают.
и в итоге он должен будет получить приближённый ответ, как в 1) случае.

[JUDAS]

NetSpace, решения Вашего варианта 2:

program Project1;
var vs,vch,So : double;
    Ssob,t,S  : double;
begin
 writeln('S до дома');read(So);
 writeln('V человека км/час');read(vch);
 writeln('V собаки км/час');read(vs);
 if vs<vch then
 begin
  writeln('Пробежит ',vs*S/Vch,' км. и прийдёт домой после человека');
  exit;
 end else
 if vs=vch then
 begin
  writeln('Пробежит ',S,' км.');
  exit;
 end;
 Ssob := 0;
 S    := So;
 repeat
  Ssob := Ssob+S;
  S    := S-S*vch/Vs;
  WriteLn('Собака вдома. Осталось ',S:6:3,' км.');
  t    := S/(Vs+vch);
  Ssob := Ssob+Vs*t;
  S    := S-Vch*t;

  WriteLn('Собака вернулась. Осталось ',S:6:3,' км.');
 until S<0.001;

 writeln('===============');
 writeln('собака пробежит суммарное расстояние ', Ssob:6:3);
end.