В каких участках пути (в какие моменты времени) велосипедисты смогут помахать друг другу рукой - 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.

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы