Программа в pascal, переводящая градусы цельсися в градусы фаренгейта и градусы...

Question

Программа в pascal, переводящая градусы цельсися в градусы фаренгейта и градусы кельвина.f=1.8c+32 , где f-градусы фаренгейта, с-градусы цельсия.k=c+273,где k-градусы кельвина,с-градусы цельсия

Answer 1

Var
  c, k, f: real;

begin
  Write('Введите температуру в градусах Цельсия: ');
  Readln(c);
  k := c + 273;
  f := 1.8 * c + 32;
  Writeln('По шкале Кельвина: ', k:0:1, ', по шкале Фаренгейта: ', f:0:1)
end.

Тестовое решение:

Введите температуру в градусах Цельсия: 36.6
По шкале Кельвина: 309.6, по шкале Фаренгейта: 97.9

Comments

что означает f:0:1 и k:0:1?

---

Стандартные элементы операторы вывода Паскаля для вещественных чисел. В данном случае читается так: "целую часть вывести, как есть, в дробной округлить до одного десятичного разряда"

---

ясно, спасибо)

---

Спасибо тут принято выражать кнопочкой, чтобы не плодить лишних сообщений, которые потом модераторы удаляют.