Паскаль, сравнение

[Absinth]

Народ помогите, в паскале давно не работал... Как из вещественных чисел найти наиболее близко к какому-нить целому числу?

[VKorablev]

фуууххххх......толком вопроса каешн не понял....но что если целое число преобразовать к вещественному (наоборот не получится) и уже вещественные сравнивать?

[Absinth]

т.е. я понял так... нужно найти наибольшую дробную часть и отнять ее от единицы, а потом сравнить с остальными дробными частями... Вот только как это записать?

[Serge_Bliznykov]

Как из вещественных чисел найти наиболее близко к какому-нить целому числу?

пусть есть массив A [1..N], состоящий из вещественных чисел.
Тогда найти индекс наиболее близкого числа можно так:

BlizkoIndex := 1;
for i:=2 to N do
  if abs(ТребуемоеЦелоеЧисло - A[i]) < abs(ТребуемоеЦелоеЧисло - A[BlizkoIndex]) then
   BlizkoIndex ;= i;

ДОБАВЛЕНО

т.е. я понял так... нужно найти наибольшую дробную часть и отнять ее от единицы, а потом сравнить с остальными дробными частями...

а я понял не так!...
мой код находит наиболее близкое вещественное число.
Например,
зададим ТребуемоеЦелоеЧисло := 5; (просто для примера)
вещественные числа (3 штуки): 3.99 4.78 5.07
самое бликое - 3-е число (которое 5.07) ...

[VKorablev]

нет...я имел ввиду что допустим у нас есть целое число Х, мы вводим вещественное число Z, обнуляем Z, и Z:=Z+X, дальше сравниваем Z с остальными вещественными числами

[Absinth]

нужно из вещественных чисел (1.7, 1.5, 3.9) найти наиболее близкое к какому-нибудь целому. Т.е. это будет 3.9. Если числа 2.1, 5.2, 9.6 то это 2.1.

[VKorablev]

ааа....терь понятно...тогда да..сначала умножь каждое число на 10 (при условии что стоит один знак после запятой), потом найди остаток (число mod 10), и сравнивай остатки

[Serge_Bliznykov]

наиболее близкое к какому-нибудь целому.

ну, это ещё проще!
ищите число, у которого минимальное значение

abs( 1 - frac(X) )