ПАНИКА: деление integer на integer с результатом real

[IDOL 1234]

Код:
...
var
a:real;
...
a:=3/2;
drawstring(RealToString(a),1,1);
repaint;
delay(5000);

выводит на экран ЕДИНИЦУ!

Как поделить эти несчастные числа? Ищу тангенс наклона графика функции...

[baton4ik]

floating-point включен?

[IDOL 1234]

Вроде да. 0.000001 Не помню уже, кто из них как называется.

[baton4ik]

Вспомнил. Не 3/2, а 3.0/2.0

[IDOL 1234]

Капец... Нагородил костылей, потерял кучу памяти и времени. Помогите пожалуйста!
2.0 - это, конечно, верно, но у меня числа берутся из переменной. В первом посте 2 и 3 я взял в качестве простейшего примера.

[baton4ik]

Значит сделай переменные real, иначе никак.

[IDOL 1234]

Это мееее-е-ееедленно! Это всего лишь вспомогательная функция! Она вообще не должна влиять на скорость выполнения программы. А вызывается она раз 150 в секунду(

[baton4ik]

Значит придумай что-то, что бы функции не приходилось делить 3 на 2.

[ABTOMAT]

Лол результат деления инт на инт всегда инт. Обойти никак. Можно только посоветовать использовать именованные константы для часто используемых чисел типа синуса 45°, пи и т.д., но катит только если числа не меняются. А вообще вычисление какого-нибудь синуса нагнёт процессор на намного бОльшее число тактов, чем деление 5 раз дабла на дабл.
упд

но у меня числа берутся из переменной

Ну тогда точно никак. Как минимум один операнд должен быть float/double

[JACUK]

дибильный метод, но может if a=3 then aa:=3.0

[IDOL 1234]

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

дибильный метод, но может if a=3 then aa:=3.0

Так... Паника увеличивается...
В нормальном паскале / и div работают по-разному. А здесь какая-то комашня...

[Reizel]

(a*1.0)/(b*1.0)
Мое скромное предположение

[ViNT]

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

Лол результат деления инт на инт всегда инт.

Что я делаю не так?

Это Delphi.
А в MP да, вроде никак.

[Igor]

...
var
a,xz:real;
...
xz:=3;
a:=xz/2;
drawstring(RealToString(a),1,1);
repaint;

[Randomize]

Блджад! Есть же div.

var
a,b:real;
begin
a:= 5;
b:= 2;
drawstring(IntToStr(a div b),1,1);
repaint;