Перевод сантиметров в километры - PascalABC.NET
Формулировка задачи:
Нужно из вывести результат 3 км 765 м 22 см. Не получается высчитать z (см). Пожалуйста помогите!
Решение задачи: «Перевод сантиметров в километры»
textual
Листинг программы
begin
var Distance := ReadLnReal('Введите расстояние в футах =');
Distance *= 30.48; // 1 фут = 30.48 см (статья „Единицы измерения расстояния“ в Википедии)
var cm := Trunc(Distance);
WriteLnFormat('{0} км {1} м {2} см', cm div 100000, cm div 100 mod 1000, cm mod 100);
end.
Объяснение кода листинга программы
- Вводится расстояние в футах с помощью функции ReadLnReal.
- Введенное расстояние умножается на 30.48 для перевода в сантиметры.
- Полученное значение округляется с помощью функции Trunc.
- Выводится результат в формате км, м, см с помощью функции WriteLnFormat.