[Rol248]

Подскажите как подправить лисп http://dwg.ru/dnl/57 ? необходимо чтобы он отнимал дробных чисел дробные числа ( 3.2-2.51=0.69) сейчас он отнимает только целые числа и результат округляет до целого числа.

[Makswell]

Навскидку

Замени строчки:
1.

Код:

[Выделить все]

(setq num (getint "enter the number of increase or decrease : "))

на

Код:

[Выделить все]

(setq num (getreal "enter the number of increase or decrease : "))

2.

Код:

[Выделить все]

(setq t3 (itoa nn))

на

Код:

[Выделить все]

(setq t3 (rtos nn 2 2))

где последняя цифра 2 - это точность после запятой

ЗЫ Особо не проверял.

[VVA]

Это к автору. Могу посоветовать поискать здесь: Увеличение всех отметок на определенную величину. Мне кажется тебе подойдет. Чтобы отнимал задавай отрицательное значение.

[Rol248]

Makswell спасибо за помощь. осталось округление результата до целого числа

[Rol248]

Makswell после замены лисп корректно считает только целые числа. дробные считает по каким-то особым математическим правилам

[Rol248]

нашел в другой ветке нужный код, совместил со старым лиспом. теперь новый лисп отнимает числа и перекрашивает чила в зависимости отих величины. команда plus прибавляет числа (1 знак после запятой) а команда cisla перекрашивает числа (необходимо чтобы цвет чисел был не послою)