Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

---

← →
AndreyAgSoft   (2002-11-15 10:01) [4]

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

end;

---

← →
MBo   (2002-11-15 10:03) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.05 c