Какое расстояние пройдёт пешеход за t2 часов? - Turbo Pascal
Формулировка задачи:
Пешеход прошёл S1 км за t1 часов. Какой расстояние пройдёт пешеход за t2 часов?
Напишите пожалуйста программу на Turbo Pascal.
Такой вариант почему-то не идёт. Нужна готовая программа. Спасибо заранее
Решение задачи: «Какое расстояние пройдёт пешеход за t2 часов?»
textual
Листинг программы
var s1, s2, t1, t2: real; begin write('Input s1: '); readln(s1); write('Input t1: '); readln(t1); write('Input t2: '); readln(t2); writeln; s2:=t2*(s1/t1); writeln('s2= ',s2:3:1); readln; end.
Объяснение кода листинга программы
- В начале объявляются переменные s1, s2, t1, t2 типа real.
- Затем происходит чтение значений этих переменных с помощью функции readln.
- Выводится запрос на ввод значений переменных s1, t1 и t2.
- Значения переменных s1, t1 и t2 сохраняются в соответствующих переменных.
- Вычисляется значение переменной s2 с помощью формулы s2 = t2 * (s1 / t1).
- Выводится результат вычисления s2 с помощью функции writeln.
- Программа завершается вызовом функции readln для чтения пользовательского ввода.