Вопрос по информатике:
Помогите решить задачу в Free Pascal. Необходимо написать текст и алгоритм (схему) программы. Буду очень-очень благодарнааа:**
Заданы массы некоторых двух тела m1, m2. Тела
движутся и проходят за время t следующие расстояния S1 и S2 соответственно.
Вычислить импульсы тел Р1 и Р2. Если Р1< Р2, вычислить
разность этих импульсов. Если Р1 > Р2, вычислить
сумму этих импульсов. Если Р1 = Р2, вычислить
произведение импульсов.
- 20.07.2018 00:13
- Информатика
- remove_red_eye 8958
- thumb_up 33
Ответы и объяснения 1
var t,m1,m2,s1,s2,p1,p2:real;
begin
write('введите массы тел');
read(m1,m2);
write('введите s1 и s2);
read(s1,s2);
write('введите время');
read(t);
p1:=m1*(s1/t);
p2:=m2*(s2/t);
if p1=p2 then write(p1*p2);
if p1
end.
- 21.07.2018 00:45
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.