Функция CelsiusToFahrenheit – конвертирует значение температуры из Цельсия в Фаренгейта

Функция CelsiusToFahrenheit в Delphi конвертирует значение температуры из Цельсия в Фаренгейта.

Функция CelsiusToFahrenheit: Конвертация 21 Цельсия в Фаренгейт

var
  celsius, fahrenheit : Double;

begin
  // Определение значения цельсия
  celsius := 21.0;  // Хороший теплый день

  // Конвертация в фаренгейт
  fahrenheit := CelsiusToFahrenheit(celsius);

  // Показ обоих значений
  ShowMessageFmt('%f C  = %f F',[celsius, fahrenheit]);
end;