VPF::ближайшее к какому-нибудь целому

Bulbazavr

Дата 7.10.2002, 22:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как на паскале определить ближайшее к какому-нибудь целому из нескольки чисел ?

neutrino

Дата 8.10.2002, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Gothic soul

Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62

Твой вопрос немного расплывчато звучит. Там где разница между числами минимальна, то число ближе.

--------------------

The truth comes from within ...

Покойся с миром, Vit

Dayana

Дата 8.10.2002, 02:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4

Такую ф-цию не встречала. Но есть ф-ция MinValue(const Data: array of Double): Double; из модуля Math, которая возвращает наименьшее значение числового массива. Она может помочь в поиске ближайшего к заданному целому.

neutrino

Дата 8.10.2002, 02:58 (ссылка)

(нет голосов)

Загрузка ...

Gothic soul

Я кажется чего-то не понял. Можете обяснить?

--------------------

The truth comes from within ...

Покойся с миром, Vit

Medved

Дата 9.10.2002, 00:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Может быть ты имеешь в виду округление? (тогда функция Round)

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

MuToGeN

Дата 9.10.2002, 03:27 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

Репутация: нет
Всего: 32

Код

var nums[1..10] of real , deltas[1..10] of real;
     i , j : integer;
     number : real;
begin
{
ввод number (то к чему числа должны быть ближе), nums (числа)
}
for i := 1 to 10 do
deltas[i] := abs(nums[i] - number);
j := 1;
for i := 1 to 10 do
if deltas[i] < deltas[j] then j := i;
end;

пардон если что-то с самим паскалем напутал, я его в глаза ужо пару лет не видал... а так - в результате j становится таким, что nums[j] самое ближнее number

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »