1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
* Округляем в большую сторону до 0.5.
* Автор: Ray.

DATA LIST FREE /var1(F8.3).
BEGIN DATA
1.01 1.49 1.5 1.501 1.67 1.99
END DATA.
LIST.

COMPUTE var2=TRUNC((var1+.49999)*2)/2.
EXECUTE.