Форум им. Зеленого Батискафа

Решим задачу в лоб.
Напишем уравнение движения Мухтара. Для этого найдём значение времени, когда Мухтар будет встречаться с другими участниками задачи. Здесь подстерегает ляп задачи: если все начнут движение из одной точки, то Мухтар первые мгновения должен находиться с ступоре, так как должен бежать от Васи к Пете, но они же в одной точке находятся!.. Впрочем, пока Мухтар соображает, Вася обгонит Петю и всё пойдёт по-плану. Короче, для удобства расчётов пусть изначально Вася находится в точке с координатой 0.001 км, а Мухтар с Петей в 0 км.
Оффтоп: Дело было вечером, делать было нечего...

цитата:

Program Zadacha8;
Uses
crt;
Label
1,2;
var
v1,v2,v3,x3,dt,t1,t2,t3,dx,dv1,dv2,a,b,n,m:real;
Begin
v1:=3; {задаются начальные условия движения}
v2:=4;
v3:=10;
dx:=0.001; {считаем, что Вася на метр впереди Пети и Мухтара}
textbackground(white);
textcolor(blue);
clrscr;
write (' Через сколько часов после начала движения Вас интересует иестоположение Мухтара? '); {Ввод данных}
readln ( dt);
dv1:=v3-v1; {Считаем вспомогательные переменные}
dv2:=v3-v2;
a:=v3+v1;
b:=v3+v2;
1:
if t3>=dt then goto 2
else
begin
t1:=t1+((dx-dv2*t1+b*t2)/dv2);
t3:=t1+t2;
n:=n+1;
if t3>dt then n:=n-1;
if t3>=dt then goto 2;
t2:=t2+((dv1*t1-a*t2)/a);
t3:=t1+t2;
m:=m+1;
if t3>dt then m:=m-1;
if t3<dt then goto 1;
end;
2:
if m<n then
x3:=(t1-t2)*v3+(t3-dt)*v3
else
x3:=(t1-t2)*v3-(t3-dt)*v3;
n:=n+m;
write(' Ответ: через ',dt:2:0);
write(' час(а) бедный Мухтар оказался в ',x3:5:3);
write(' км от исходной точки, при этом ему пришлось развернуться', n:3:0);
write(' раз.');
readln;
end.

Откомпилированная прога выдаёт ответ: через 1 час бедный Мухтар оказался в 3,415 км от исходной точки, при этом ему пришлось развернуться 60 раз.

Форум » Игры разума » Логическая задача №8
	перенос