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

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

Функция FahrenheitToCelsius: Преобразование температура тела из Фаренгейта в Цельсий

var
  celsius, fahrenheit : Double;

begin
  //  Определение значения фаренгейта
  fahrenheit := 98.4;  // Температура тела человека

  // Преобразование в цельсия
  celsius := FahrenheitToCelsius(fahrenheit);

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