代码大全

Numbers are different.

Equal()
Equal( ) True False Pascal

const
AcceptableDelta = 0.00001;

function Equals(Terml:single; Term2:single): boolean ;
begin
if(abs(Terml-Term2)<AccptableDelta) then
Equals :=True;
else
Equals :=False;
end;

:
if ( Equals ( Nominal Sum ) ) then
:
Numbers are the same
AcceptableDelta
AcceptableDelta

:

BCD

100 1 , 100

0 99

1

(2) (3)