Перевод сантиметров в километры - 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.

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

  1. Вводится расстояние в футах с помощью функции ReadLnReal.
  2. Введенное расстояние умножается на 30.48 для перевода в сантиметры.
  3. Полученное значение округляется с помощью функции Trunc.
  4. Выводится результат в формате км, м, см с помощью функции WriteLnFormat.

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

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