Не делится, а ругается....почему??

← →
Ravilr (2004-03-29 21:55) [0]

Я вот так пишу а он че то ругается.(integer and extended)...тем самым хочу к числу прибавить проценты.

sum:= sum + (sum / 100) * 30;

Заранее спасибо!!!

← →
Anatoly Podgoretsky © (2004-03-29 22:01) [1]

Trunc/DIV

← →
Algol (2004-03-29 22:02) [2]

> почему??

Потому что sum должно быть вещественного типа (например real)

← →
Ravilr (2004-03-29 22:15) [3]

Можно чуть объяснить, немного не понял!!!

← →
Algol (2004-03-29 22:24) [4]

Во-первых приводить нужно пример полностью. в твоем примере не понятно какого типа у тебя перменная sum. Я подозреваю, что она у тебя типа integer. В таком случае, ты пытаешся присвоить дробное значение, которое у тея получается в выражении, целочисленной перменной.
Из такой ситуации два выхода: первый - объявить перменную sum дробной (var sum:Real), второй - использовать целочисленную арифметику(как предлагает ув. Anatoly): sum:= sum + (30*sum) div 100;

← →
Ravilr (2004-03-29 22:29) [5]

Понял!!! Спасибо огромное!!!!! :-)))

div 100 = неконтролируемая погрешность округления, round - лучше.

← →
Guestt (2004-03-29 23:06) [7]

"лучше" - понятие относительное (все зависит от поставленой задачи), и что значит не контролируемая погрешность округления?
результат div = целая часть частного - чего тут не контролируемого?

> round - лучше

Медленнее.

Не делится, а ругается....почему?? Найти похожие ветки