Описание:
Delphi функция FahrenheitToCelsius
переводит значение температуры из фаренгейта в цельсия.
Пример кода:
var
celsius, fahrenheit : Double;
begin
// Define the fahrenheit value
fahrenheit := 98.4; // Human body temperature
// Convert to
celsius
celsius := FahrenheitToCelsius(fahrenheit);
// Show both values
ShowMessageFmt('%f F =
%f C',[fahrenheit, celsius]);
end;