blob: df9e41b282cb9d46958dc5558ae1e9d2c2948538 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ %norun }
{$mode objfpc}
{$inline on}
{$x-}
function Min(a, b: Double): Double;inline;
begin
if a < b then
Result := a
else
Result := b;
end;
function Max(a, b: Double): Double;inline;
begin
if a > b then
Result := a
else
Result := b;
end;
var
a, b: double;
begin
a:=min(max(a,b),min(a,b));
end.
|
