В каких участках пути (в какие моменты времени) велосипедисты смогут помахать друг другу рукой - Turbo Pascal
Формулировка задачи:
Добрый вечер всем. Надо написать программу, для решения такой задачи:
Из пункта А в Б , между которыми 5 км, выехал велосипедист с постоянной скоростью V0 км/ч. Одновременно с ним в том же направлении другой путник решил добраться " автостопом" - на разных видах попутного транспорта. Перед каждым участком пути он Тi, минут "голосует", затем движется ti часов со скоростью Vi км/ч ( величины Ti, ti, Vi i=1,...,Ni, заданы в соответствующих массивах). В каких участках пути ( в какие моменты времени) путники смогут помахать друг другу рукой.
Весь мозг уже сломал, никак не пойму с какой стороны подойти. Буду благодарен любой помощи.
Решение задачи: «В каких участках пути (в какие моменты времени) велосипедисты смогут помахать друг другу рукой»
textual
Листинг программы
program projectzadanie4; var i,j:integer; v0,x,vv:real; sa,sv,t,v,tau:array[1..100] of real; begin Writeln('Введите скорость велосипедиста '); readln(v0); sa[1]:=0 ; sv[1]:=0 ; i:=2; while (sv[i])<=5.0 do begin writeln('Vvedite vremyia kotoroe stoyal avtostoper'); readln(tau[i]); tau[i]:=tau[i]/60; sv[i]:=(v0*tau[i])+sv[i-1]; readln(t[i]); t[i]:=t[i]/60; writeln('Vvedite skorost ego dvizenia '); readln(v[i]); sa[i]:=((v[i])*t[i])+(sa[i-1]); x:=(sv[i]-sa[i-1])/(v[i]-v0); if (x>0) then begin if (x<t[i]) then begin vv:=tau[i]+x; writeln('Oni vstretilis v moment vremine ', vv:3:2); end else begin writeln(' Na etom uchastke puti oni ne vstretilis '); end; end else begin writeln('na etom uchastke puti oni ne vsretyatsa'); end; i:=i+1; end; readln; end.