Question

Напишите программу на языке Паскаль. ____________________________________________ Скорость лодки в стоячей воде Vл км/ч, скорость течения реки Vр км/ч (Vр < Vл). Время движения лодки по озеру Т1 ч, а по реке (против течения) — Т2 ч. Определить путь S, пройденный лодкой. _________________________________________ Добавлю 10, если будет без ошибок.

Answer 1

Var v1,v2,t1,t2,s1,s2,so:integer;
begin
v1:=0;
v2:=0;
while (v2>=v1) do begin
 writeln('введите скорость лодки');
 readln(v1);
 writeln('введите скорость течения реки');
 readln(v2);
 if (v2>=v1) then writeln('введены неправильные данные');
 end;
 writeln('введите время движения лодки по озеру');
 readln(t1);
 writeln('введите время движения лодки по реке против течения');
 readln(t2); 
 s1:=v1*t1;
 s2:=(v1-v2)*t2;
 so:=s1+s2;
 writeln('длина общего пути ',so);
end.

Answer 2

Var vl,vr,t1,t2:real;
begin
  writeln('Скорость лодки в стоячей воде и скорость течения');
  readln (vl,vr);
  writeln('Время движения по озеру и против течения');
  readln (t1,t2);
  writeln('Общий путь судна:', vl*t1+(vl-vr)*t2);
end.

Тестовое решение:
Скорость лодки в стоячей воде и скорость течения
10 3
Время движения по озеру и против течения
2 3
Общий путь судна:41

Answer 3

Конечно, вот программа на языке Паскаль, которая рассчитывает путь, пройденный лодкой:

pascalCopy code
program CalculateDistance;

var
  Vl, Vr, T1, T2, S: real;

begin
  writeln('Введите скорость лодки в стоячей воде (км/ч): ');
  readln(Vl);
  
  writeln('Введите скорость течения реки (км/ч): ');
  readln(Vr);
  
  writeln('Введите время движения лодки по озеру (часы): ');
  readln(T1);
  
  writeln('Введите время движения лодки по реке против течения (часы): ');
  readln(T2);
  
  S := Vl * T1 + (Vl - Vr) * T2; // Формула для расчета пути
  
  writeln('Путь, пройденный лодкой, составляет ', S:0:2, ' км.');
  
  readln;
end.

Эта программа запрашивает скорость лодки в стоячей воде (Vl), скорость течения реки (Vr), время движения по озеру (T1) и время движения по реке против течения (T2) у пользователя. Затем она использует указанные значения для расчета пути (S) согласно вашей задаче.

Не забудьте скомпилировать и запустить программу в вашей среде разработки Pascal.