blob: c53d77ad73be413d9a47865dc6849863b8ed7368 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
uses
stdconvs,math;
begin
if CompareValue(FahrenheitToCelsius(32.0),0.0,0.000000001)<>EqualsValue then
halt(1);
if CompareValue(FahrenheitToCelsius(89.6),32.0,0.000000001)<>EqualsValue then
halt(2);
if CompareValue(CelsiusToFahrenheit(32.0),89.6,0.000000001)<>EqualsValue then
halt(3);
if CompareValue(CelsiusToFahrenheit(0.0),32.0,0.000000001)<>EqualsValue then
halt(4);
end.
|
