И снова паскаль

[NirvanaShow]

тут может быть два решения:

1) Как в физике

2) Как в математике: путь собаки - это как сумма сходящегося ряда отрезков пути, а его как раз церез цикл считают.

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

только физика

[Katana]

помогу за деньги, в пм

[max.mad]

В общем потратил пол часа на решение етой задачи (да вот такой я рак):

 

 

Вначале я думаю переменные сам объявишь

P=0 - конечный путь,

S - текущий путь (вначале указывается условием задачи),

Vч - скорость человека,

Vc - скорость собаки,

 

 

do

{

P=P+S;

S=(S - (S/Vc*Vч))/(Vc+Vч)*Vc;

}

While(S>0);

Синтаксис не помню, но смысл ты понял

[Гость]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

 

[max.mad]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

мой те совет учи Си наврятле ты попрофессии работать будешь)))

[Gukoff]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

Учить бейсику в школе == учить быдлокодерству.

Только паскаль, только хардкор.

 

Кстати, тему клоз мб?

[Гость]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

мой те совет учи Си наврятле ты попрофессии работать будешь)))

мой те совет учи русский 

ненавижу прогерство, лучше буду подметать улицы

[max.mad]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

мой те совет учи Си наврятле ты попрофессии работать будешь)))

мой те совет учи русский 

ненавижу прогерство, лучше буду подметать улицы

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

[Гость]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

мой те совет учи Си наврятле ты попрофессии работать будешь)))

мой те совет учи русский 

ненавижу прогерство, лучше буду подметать улицы

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

Не понимаю твое агро. К тому же век живи век учись, слышал?

[max.mad]

хуй знает в школе бегом прошли бэйсик за месяц, а в универе сразу посадили на си

притом профессия не имеет отношение в прогерству

мой те совет учи Си наврятле ты попрофессии работать будешь)))

мой те совет учи русский 

ненавижу прогерство, лучше буду подметать улицы

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

Не понимаю твое агро. К тому же век живи век учись, слышал?

Слышал. Там и продолжение есть, слышал?

[Lio_On]

1 способ

program project1;

vs,vch,S : double;

begin

writeln('S до дома');read(S);

writeln('V человека км/час');read(vch);

writeln('V собаки км/час');read(vs);

 

writeln('собака пробежит суммарное расстояние', Vs*S/Vch);

end.

 

 

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.

 

Расходимся

спасибо мне