Тема: Помогите!
Показать сообщение отдельно
Старый 12.02.2011, 12:41   #6
VM
Оператор ЭВМ
 
Регистрация: 24.09.2007
Сообщений: 36
Написано 2 полезных сообщений
(для 3 пользователей)
Re: Помогите!

// Округление до одного знака после запятой
function round(x: real): real;
var
f: real; n: integer;

begin
x := x*10;
f := Frac(x); //дробная часть
if (f >= 0.5) then x := x - f + 1;
if (f < 0.5) then x := x - f;
x := x/10;
round := x;
end;

s := Round(s)

В настройках поставить floating-point
(Offline)
 
Ответить с цитированием