деление

[natasha]

Пожалуйсто, срочно помогите!
При деление
n := 1370*0,875912408759124/300;
где n: real;
результат автомотически округляет до 4 (n = 4)
а мне надо результат без погрешности т.е. n = 3.99999999999999
т.к. дальше я делаю n := trunc(n)
и должно получиться 3, а т.к. он округлил, то получается
4 и в дальнейшем все мой вычисления идут не правильно.
Может дело в типе данных ?
пожайлусто Help!!!
Спрочно!!!!

[AVer]

Я думаю что проблема все таки в типе Real. Должно же там быть ограничение по кол-ву знаков... Попробуй 1370*0,8759124087/300. Это на Паскале. На делфи же точность больше: 1370*0.87591240875912/300.

[natasha]

число 0,875912408759124 получается при вычислениях (это переменная тоже типа Real)
я не могу (и не знаю как) отбросить последние знаки,
перепробывала типы (Real,Single,Double,Extended,Comp,C urrency)
результат тот же,
Помоги, пожалуйсто!!!

[AVer]

Удаление одного знака выглядит так:

Var R:Real;
Begin
R:=100000000000000*0.875912408759124;
R:=Trunc(R);
R:=R/100000000000000;
End;

Думаю понятно, что чем больше знаков надо удалить, тем меньше нулей при умножении и делении.

[Virtson]

n:= 1370*0.875912408759124/300;
caption:= Inttostr(trunc(n));

в Delphi дает '3'.

в Borland Pascal

n:= 1370*0.875912408759124/300;
writeln(trunc(n));

-> '4' для real;
но '3' - для double

[Albenous]

Э-э-э... чего-то я не догоняю...

-> '4' для real;
но '3' - для double

почему 4 - то, а там 3? (не проверял, объясните)

[AVer]

Потому что для типа Real есть ограничение по кол-ву символов (возможно после запятой - не знаю точно) и когда число его привышает, то оно автоматически округляется.