Линейный Алгоритмы, программа на языке Паскаль ( СРОЧНО ) - Free Pascal

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

Длина задана в дюймах (1 дюйм = 2,54 см). Перевести ее в метрическую систему, то есть выразить в метрах, сантиметрах и миллиметрах. Так, например, 217 дюймов = 5 м 51 см 1,8 мм

Решение задачи: «Линейный Алгоритмы, программа на языке Паскаль ( СРОЧНО )»

Листинг программы

var
d: real;
begin
write('Введите длину в дюймах: ');
readln(d);
writeln('Метров = ',d*2.54/100:4:2);
writeln('Сантиметров = ',d*2.54:4:2);
writeln('Миллиметров = ',d*2.54*10:4:2);
end.

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

Введенные данные: переменная d типа real.
Вывод сообщения с просьбой ввести длину в дюймах.
Чтение значения длины из диапазона real с помощью функции readln().
Вычисление значения в метрах, используя формулу: d * 2.54 / 100.
Вывод значения длины в метрах с помощью функции writeln().
Вычисление значения в сантиметрах, используя формулу: d * 2.54.
Вывод значения длины в сантиметрах с помощью функции writeln().
Вычисление значения в миллиметрах, используя формулу: d 2.54 10.
Вывод значения длины в миллиметрах с помощью функции writeln().
Завершение работы программы с помощью ключевого слова end.