Рассчитать время, за которое катер пройдёт данное расстояние против течения и по течению - 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.
Объяснение кода листинга программы
- Создается переменная
s
типаreal
, которая будет хранить расстояние в километрах. - Создается переменная
vr
типаreal
, которая будет хранить скорость реки в километрах в час. - Создается переменная
vk
типаreal
, которая будет хранить скорость катера в километрах в час. - В цикле
repeat
считывается значение переменнойs
и выводится сообщение с просьбой ввести значение, если оно еще не введено. - В цикле
repeat
считывается значение переменнойvr
и выводится сообщение с просьбой ввести значение, если оно еще не введено. - В цикле
repeat
считывается значение переменнойvk
и выводится сообщение с просьбой ввести значение, если оно еще не введено. - Вычисляются два значения
t1
иt2
с помощью формулыt1 := s / (vk + vr)
иt2 := s / (vk - vr)
соответственно. - Выводится сообщение с результатами вычислений.