удаление не нужных знаков после запятой.

[Alar]

перенесено со старого форума. сообщение от Fred.

Сорри за ламерский вопрос, но сил уже просто не осталось... И так я уже и этак... Скачал всю инфу какую только нарыл... Попытался даже перевести родной хелп... Не фига не получается...


Короче дилема вот в чем...

procedure TForm1.N3Click(Sender: TObject);
var
a,b,c,d,e,f,g,h:real;

begin
a:=StrToFloat(Edit10.Text); //ввод значения (Higih) свечи
b:=StrToFloat(Edit11.Text); //ввод значения (Low) свечи

c:= (a);
d:= (a-b) + (a);
e:= (b) - (a-b);
f:= (b);
g:= (a-b) * 0.618;
h:= (a-b) * 0.618;
Edit9.Text:=FloatToStr(e); //число равное 200% (High)
Edit6.Text:=FloatToStr(a+h); //число равное 161,8% (High)
Edit1.Text:=FloatToStr(c); //число равное максимуму
Edit7.Text:=FloatToStr(f); //число равное минимуму
Edit8.Text:=FloatToStr(b-g);//число равное 161,8% (Low)
Edit5.Text:=FloatToStr(d); //число равное 200% (Low)
end;

Вроде все работает и считает... Только числа никак округлить не могу, в большую или меньшую сторону... Выдает при вводе некоторыж параметров типа 0,00879999...etc. А надо 0,0088

Млин... Исходник есть... Поможите подправить... Я только начал учиться... Это мне в институте задание дали (мать их)...

перенесено со старого форума. сообщение от Virtson.

Привет всем!
Fred, во первых: лудше использовать тип extended, в случаях когда нужна точность вычислений (да и вобще

во вторых: замени везде FloatToStr(x) на Format('%7.4f',[x])
7 длина всего, 4 после запятой, f - вещественный параметр
Format возвращает строку.

Хорошая функция, смотрите все справку!

перенесено со старого форума. сообщение от Storm.

Используй функцию FormatFloat.
Например: FormatFloat('#.##', твое_число).

[Человек_Борща]

уу... крутой троллинг модератора в 5 утра =)

[BARNEY]

Округляет до 2 знаков... можешь исправить.... правильность математического округления своей функции можешь проверить на числах 112,3145 и 1,175 округлив до 2 знаков.

uses Math;
......
function okluglenie(r: real): real;
begin
r:=SimpleRoundTo(StrToFloat(FloatToStr(r)),-4);
r:=SimpleRoundTo(StrToFloat(FloatToStr(r)),-3);
Result:=SimpleRoundTo(StrToFloat(FloatToStr(r)),-2);
end;

[s-andriano]

Вообще-то даже в пришедшей еще из Турбо Паскаля процедуре str можно задавать желаемое количество знаков после запятой.

[Stilet]

Господа, вы на дату темы смотрели?