вещю числа

← →
poljana (2002-11-14 23:06) [0]

Ребята, попалась задачка, помогите пожалуйста. Это надо решить на Delphi.
Даны два вещественных числа. Сколько на отрезке между ними целых чисел (отрезок включает в себя также и данные числа, если они целые).

← →
Jeer © (2002-11-14 23:17) [1]

trunc(A-B)+1

← →
Alx2 © (2002-11-15 07:38) [2]

>Jeer © (14.11.02 23:17)
Пусть
A=2
B=1
trunc(A-B)+1 = 2 - все правильно.
Сместим A и B на 0.1 вправо
A=2.1
B=1.1
trunc(A-B)+1 = 2. На самом деле между 1.1 и 2.1 только одно целое

← →
MBo © (2002-11-15 08:00) [3]

Вчера уже было, автору лень ответ посмотреть?
для B>A
Floor(B)-Ceil(A)+1

//B>A var A,B:Double; C:Integer; begin C:=Trunc(B)-Trunc(A)-1; end;

>AndreyAgSoft
контрпримеры:
A=2.5 B=2.6
A=2.5 B=3.5

вещю числа Найти похожие ветки