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

@Ter_RaDoks · Регистрация: 29.05.2014

Студворк — интернет-сервис помощи студентам

Всем добрый вечер! Нужна ваша помощь в решении задачи. Заранее благодарю!!!

Задача z149. Соревнования

Входной файл: z.in
Выходной файл: z.out
Между двумя городами проходит соревнование по скоростному прохождению
Пути. Из этих городов, навстречу друг другу, одновременно двинулись два участника.
Разрешено использовать все подручные виды транспорта, попавшиеся на пути. Один участник проехал, до встречи со своим оппонентом, весь путь на велосипеде со скоростью V0(км/ч). Второй противник был менее стабилен в выборе транспортного средства, начиная идти пешком (прошел путь S1(км)) со скоростью V1(м/ч), затем купил велосипед и поехал (проехал путь S2(км)) со скоростью V0(км/ч), а последний этап преодолел на попутной машине (проехал путь S3(км)) со скоростью V3(км/ч). Нам нужно узнать время, прошедшее с момента начала соревнования до их встречи и путь, пройденный первым участником (тем самым определив победителя).

Ввод
Значение расстояний S1,S2,S3 и значение скоростей V0, V1, V3 через пробелы в одну строчку. При этом 0<S1≤10, 0<S2≤25, 0<S3≤100, 0<V0≤60, 0<V1≤5000, 0<V3≤200. При вводе данных, не вписывающихся в условие задачи, ответ будет пустым. Ответ округляется до целых.

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

Пример
z.in z.out
10 20 100 10 2000 50 9 90

Вот на чём остановился, написал, конечно, самое простое=):

Pascal

Program Sorevnovania;
var S1,S2,S3,V0,V1,V3:integer;
f_in, f_out: text;
BEGIN
assign (f_in,'3.txt');
   reset (f_in);
   readln (f_in,S1,S2,S3,V0,V1,V3);
   assign (f_out,'4.txt');
   rewrite (f_out);
      if ((S1>0) and (S1<=10))
                  and ((S2>0) and (S2<=25))
                      and ((S3>0) and (S3<=100))
                          and ((V0>0) and (V0<=60))
                              and ((V1>0) and (V1<=5000))
                                  and ((V3>0) and (V3<=200))
      then   writeln (f_out,  S1,' ',S2,' ',S3,' ',V0,' ',V1,' ',V3) // просто проверка
           else writeln (f_out);
      close (f_in);
      close (f_out);
END.

@Ter_RaDoks · 04.11.2014, 16:00 **[ТС]**

Pascal

Program Sorevnovania;
var S1,S2,S3,V0,V1,V3:integer;
a,k,b,c,d,sum,Sm: real;
f_in, f_out: text;
BEGIN
assign (f_in,'3.txt');
   reset (f_in);
   readln (f_in,S1,S2,S3,V0,V1,V3);
   assign (f_out,'4.txt');
   rewrite (f_out);
      if ((S1>0) and (S1<=10))
                  and ((S2>0) and (S2<=25))
                      and ((S3>0) and (S3<=100))
                          and ((V0>0) and (V0<=60))
                              and ((V1>0) and (V1<=5000))
                                  and ((V3>0) and (V3<=200))
      then  begin
      a:=S1+S2+S3; // расстояние пройденное вторым пешеходом
      k:= V1/1000;  // перевод из м/ч в км/ч
      b:= S1/k; // первая часть времени пройденная вторым пешеходом
      c:= S2/V0; // вторая часть времени пройденная вторым пешеходом
      d:= S3/V3; // третья часть времени пройденная вторым пешеходом
      sum:=b+c+d; // общее время в пути второго пешехода
      Sm:=sum*V0; // т, к они выехали одновременно, то время второго пешехода умножаем на скорость первого
        write(f_out,sum,' ',Sm);
        end
           else writeln (f_out);
      close (f_in);
      close (f_out);
END.

	04.11.2014, 16:00

Опции темы