Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (программа Паскаль)

Question

Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) — T2 ч. Определить путь S, пройденный лодкой (путь = время · скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.

Answer 1

var
V, U, T1, T2, S: real;

begin
write('Скорость лодки в стоячей воде V = ');
readln(V); { <-- вводим скорость лодки в стоячей воде }
write('Скорость течения реки U = ');
readln(U); { <-- вводим скорость реки }
write('Время движения лодки по озеру T1 = ');
readln(T1); { <-- вводим время движения лодки по озеру }
write('Время движения лодки по реке (против течения) T2 = ');
readln(T2); { <-- вводим время движения лодки против течения }
S := V * T1; { <== расстояние, пройденное лодкой по озеру }
V := V - U; { <== скорость лодки против течения }
S := S + V * T2; { <== общее расстояние, пройденное лодкой }
writeln;
writeln('Расстояние пройденное лодкой: S = ', S:0:3, ' км');
readln
end.