Begin35. Скорость лодки в стоячей воде $$V$$ км/ч, скорость течения реки $$U$$ км/ч ($$U$$ < $$V$$). Время движения лодки по озеру $$T_1$$ ч, а по реке (против течения) $$T_2$$ ч. Определить путь $$S$$, пройденный лодкой (путь = время * скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program Begin35; var V,U,T1,T2,S: Real; begin Write('Введите скорость лодки в стоячей воде: '); Readln(V); Write('Введите скорость течения: '); Readln(U); Write('Введите время движения лодки по озеру: '); Readln(T1); Write('Введите время движения лодки по реке(против течения): '); Readln(T2); S:=V*T1+(V-U)*T2; Writeln('Лодка прошла путь равный: ',S); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Все хорошо, но есть одно но! По условию задачи (U < V). Из этого следует что если я введу число которое не соответствует условию задачи, задача будет решена неверно. В решении должен быть цикл, который заставит пользователя ввести "правильные" цифры.
Вы правильно заметили, по условию задачи U меньше V. И не как иначе. Задачи по введению защиты от не правильны значений нет.
Я согласен, задачу можно усложнять, написать проверку на ввод нужных значений, написание графического интерфейса. Проверку не выхода значений за пределы диапазонов значений типа. Может быть ограничение диапазонов под конкретную модель лодки.
Но это всё очень большая работа, в том числе аналитическая. И она не входит в данную задачу.
К тому же введение дополнительных фич не указанных в ТЗ плохая привычка. 🙂
Формула неверная, потому что не может лодка при скорости 50км/ч, чисто фактически за час пройти 3000км
ты забыл петю из 5 задачи где он за 5 рублей магазин купил???