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
|