Функция округления вещественных чмсел

[Sergey666]

FUNCTION REAL_Round_WORD : WORD
VAR_INPUT
f:REAL;
n:WORD;
END_VAR
VAR
f1:REAL;
i:WORD;
w:WORD;
END_VAR

f1:=f;
FOR i:=0 TO n DO
f1:=f1*10;
END_FOR;
w:=REAL_TO_WORD(f1);
REAL_Round_WORD:=w/10;
IF (w MOD 10)>=5 THEN
REAL_Round_WORD:=REAL_Round_WORD+1;
END_IF;

---------------------------------------------------------------
REAL_Round_WORD(14.7,0) = 15
REAL_Round_WORD(14.2,0) = 14
REAL_Round_WORD(14.86,1) = 149
REAL_Round_WORD(14.82,1) = 148

Феерический идиотизм!
Real_to_word...ха-ха-ха.
Надо бы теорию подучить, начиная с размерности и диапазона чисел...
И что покажет word-dword при конвертации отрицательных чисел?