0 / 0 / 1
Регистрация: 29.05.2014
Сообщений: 9
1

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

22.10.2014, 18:02. Показов 1299. Ответов 1
Метки нет (Все метки)

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

Задача 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
Вложения
Тип файла: txt 3.txt (20 байт, 2 просмотров)
Тип файла: txt 4.txt (2 байт, 2 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2014, 18:02
Ответы с готовыми решениями:

Определить расстояние, пройденное физическим телом за время t
Задача 1. Определить расстояние, пройденное физическим телом за время t, если тело движется с...

Определить расстояние, пройденное физическим телом за время t
1. определить расстояние, пройденное физическим телом за время t, если тело движется с постоянным...

Определить расстояние, пройденное физическим телом за время t
Привет всем. Очень прошу помочь с паскалем... две задачки: Определить расстояние, пройденное...

Определите расстояние пройденное физическим телом за время t
Помогите пожалуйста решить задачку: Определите расстояние пройденное физическим телом за время t,...

1
0 / 0 / 1
Регистрация: 29.05.2014
Сообщений: 9
04.11.2014, 16:00  [ТС] 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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.
0
04.11.2014, 16:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2014, 16:00
Помогаю со студенческими работами здесь

Найти время полета, максимальную высоту, достигнутую телом, и расстояние пройденное им
Здравствуйте. Я начинающий программист (пару дней как). Проблема. Нужно написать программу: Тело...

Найти силу торможения,действующую на вагон, время его движения до остановки, пройденное расстояние.
Помогите пожалуйста решить блок заданий...и пожалуйста по базовой формулке запишите к...

Автомобиль движется со скоростью V км/ч в течении Т часов. Определить пройденное расстояние – S
Автомобиль движется со скоростью V км/ч в течении Т часов. Определить пройденное расстояние – S....

Найти скорость или время или пройденное расстояние в зависимости от запроса пользователя
Нужно создать программный продукт, находящий скорость или время или пройденное расстояние в...

Определить расстояние, пройденное электроном до точки, в которой его скорость будет равна половине начальной
В однородное электрическое поле напряженностью Е =1 кB/M влетает вдоль силовой линии электрон со...

Определить расстояние между автомобилями через заданное время
Первый автомобиль движется с скорости 60 км/ч а второй 90 км/ч в противоположным сторонам через...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru