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

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

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

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

Задача 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.10.2014, 18:02
Ответы с готовыми решениями:

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

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

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

1
0 / 0 / 1
Регистрация: 29.05.2014
Сообщений: 9
04.11.2014, 16:00  [ТС]
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.11.2014, 16:00
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Исключения в Java: советы, примеры кода и многое другое
Javaican 18.05.2025
Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .
Как сделать SSO (Single Sign-On) в C# приложении
stackOverflow 18.05.2025
SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .
Kubernetes с Apache Flink для обработки данных в реальном времени
Mr. Docker 17.05.2025
Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .
Использование декораторов в Python
py-thonny 17.05.2025
Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .
Реализация многопоточных сетевых серверов на Python
py-thonny 16.05.2025
Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT
UnmanagedCoder 16.05.2025
Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .
Гибридные квантово-классические вычисления: Примеры оптимизации
EggHead 16.05.2025
Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .
Использование вебсокетов в приложениях Java с Netty
Javaican 16.05.2025
HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .
Реализация операторов Kubernetes
Mr. Docker 16.05.2025
Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .
Отражение в C# и динамическое управление типами
stackOverflow 16.05.2025
Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru