Function ISgn(Val:Integer):Integer; Begin if val=0 then ISgn:=1 else ISgn:=Val/Abs(Val); End;
Function RSgn(Val:Real):Real; Begin if val=0 then RSgn:=1 else RSgn:=Val/RAbs(Val); End;