| changeset 196 | 993cf173218b |
| parent 188 | a7c2a61524c2 |
| child 208 | a049157d673a |
| 195:edae828322a0 | 196:993cf173218b |
|---|---|
108 uses uConsole, uStore, uIO{$IFDEF FPC}, Math{$ENDIF}; |
108 uses uConsole, uStore, uIO{$IFDEF FPC}, Math{$ENDIF}; |
109 {$IFDEF DEBUGFILE} |
109 {$IFDEF DEBUGFILE} |
110 var f: textfile; |
110 var f: textfile; |
111 {$ENDIF} |
111 {$ENDIF} |
112 |
112 |
113 |
|
114 function hwSign(r: Double): integer; |
113 function hwSign(r: Double): integer; |
115 begin |
114 begin |
116 if r < 0 then Result:= -1 else Result:= 1 |
115 if r < 0 then Result:= -1 else Result:= 1 |
117 end; |
116 end; |
118 |
117 |