Рассчитать время, за которое катер пройдёт данное расстояние против течения и по течению - Pascal

Узнай цену своей работы

Формулировка задачи:

Разработать, ввести в ЭВМ и отладить программу для расчёта времени, за которое катер пройдёт данное расстояние против течения и по течению, если известны скорость катера в стоячей воде и скорость течения. Пожалуйста, помогите, буду ооочень признателен и благодарен.

Решение задачи: «Рассчитать время, за которое катер пройдёт данное расстояние против течения и по течению»

textual
Листинг программы
var s,vk,vr,t1,t2:real;
begin
repeat
write('Введите расстояние в километрах s>0 s=');
readln(s);
until s>0;
repeat
write('Введите скорость реки от 1 до 5 км/час vr=');
readln(vr);
until(vr>=1)and(vr<=5);
repeat
write('Введите скорость катера от 10 до 50 км/час vk=');
readln(vk);
until(vk>=10)and(vk<=50);
t1:=s/(vk+vr);
t2:=s/(vk-vr);
write('Время по течению=',t1:0:2,' против течения=',t2:0:2)
end.

Объяснение кода листинга программы

  1. Создается переменная s типа real, которая будет хранить расстояние в километрах.
  2. Создается переменная vr типа real, которая будет хранить скорость реки в километрах в час.
  3. Создается переменная vk типа real, которая будет хранить скорость катера в километрах в час.
  4. В цикле repeat считывается значение переменной s и выводится сообщение с просьбой ввести значение, если оно еще не введено.
  5. В цикле repeat считывается значение переменной vr и выводится сообщение с просьбой ввести значение, если оно еще не введено.
  6. В цикле repeat считывается значение переменной vk и выводится сообщение с просьбой ввести значение, если оно еще не введено.
  7. Вычисляются два значения t1 и t2 с помощью формулы t1 := s / (vk + vr) и t2 := s / (vk - vr) соответственно.
  8. Выводится сообщение с результатами вычислений.

Оцени полезность:

7   голосов , оценка 3.714 из 5
Похожие ответы