Проблемы с real

[Winner]

Маленький пример:

var x:real;

begin
x:=(4-6)/5;
DrawText (''+x, 5, 5);
repaint;
Delay(5000);
end.

Эмулятор выдает следующий результат: 0.0000
По калькулятору (да и в уме) ответ получается -0.4.
С этим сталкиваюсь уже не первый раз.

Кто знает, объясните, почему так, и как с этим бороться. Поиском нужного ответа не нашел. Если такая тема уже есть на форуме, скиньте ссылку. Буду очень благодарен.

[ViNT]

Попробуй использовать Lib_dbl

[Winner]

Не совсем понимаю, как либа мне поможет с делением.

[ViNT]

Я сам ей не пользовался, но она работает с типом double, поэтому ошибок в вычислениях быть не должно. Хотя непонятно, почему real выдает такую ошибку.

[Winner]

Я не нахожу в этой либе именно деления дробных чисел.

[ViNT]

Нужно использовать функцию div.

[Winner]

Я нуб. Не понимаю как правильно использовать либу.

dbl.div (4-6, 5) ??

[Bruteo]

Сообщение от Winner

Эмулятор выдает следующий результат: 0.0000
По калькулятору (да и в уме) ответ получается -0.4.
С этим сталкиваюсь уже не первый раз.

А какой режим компиляции? fixed или floating point? (если версия русифицирована, то какая "погрешность"?)

[Winner]

fixed, во floating вообще ничего не выдает, версия английская 2.02

[odd]

При вычислениях лучше указывать дробную часть, даже если она нулевая.
Тогда телефон воспримет эти числа как вещественные и вычисления будут верные,
а в данном случае телефон думает, что используются целые числа типа Integer,
считает по принципам счета с целыми числами и результат потом приводит к вещественному числу.
Для того, чтобы ваш пример нормально работал нужно только немного исправить его:

Program math;

var x:real;

begin
x:=(4.0-6.0)/5.0;
DrawText (''+x, 5, 5);
repaint;
Delay(5000);
end. 


[Winner]

А как быть с переменными типа integer?

Пример:
x:real;
a, b, c:integer;
begin
a:=4; b:=6; c:=5;
x:=(a-b)/c;
end.

[odd]

А ты их умножай на real константу со значением 1.0.
Типа так:

x, one: real;
a, b, c: integer;
begin
one:=1.0;
a:=4; b:=6; c:=5;
x:=(a*one-b*one)/(c*one);
end. 


[Winner]

Я сделал так:

x, y :real
a, b, c:integer;
begin
a:=4; b:=6; c:=5;
y:=c;
x:=(a-b)/y;
end.


Т.е. сначала перевел делитель в real и потом выполнил вычисления. Вроде, работает.