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

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

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

var
  celsius, fahrenheit : Double;

begin
  //  Визначення значення Фаренгейту
  fahrenheit := 98.4;  // Температура тіла людини

  // Перетворення в Цельсія
  celsius := FahrenheitToCelsius(fahrenheit);

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