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

[Asya7]

Пусть x1 = 0.3; x2 = -0.3; xi = sin(xi-2), i=3,4,...Среди x1,...x100 найти ближайшее к какому - нибудь целому. Объясните, что именно здеь нужно найти. И если можно, то приведите пример. И как с sin считать?? (правильно записана задача 211 здесь http://narhoz-chita.ru/zadachnik/Glava07/index07.htm)

[Stilet]

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

Ващще задание супер...
Если так прикинуть то требуется использовать функцию trunc() чтоб вещественное отчекрыжить в целое. Потом получить разницу между ними, и если она минимальная среди остальных разниц остальных чисел, обработанных таким образом - вывести число с такой разницей на экран.

[ViktorR]

При прочтении задание понял так:
1. Заполнить массив вещественных чисел, используя приведенную формулу и начальные значения. Применить цикл

for i := 3 to 100 do
begin
   rMas[i] := i + sin(rMas[i-2]);
...
...
end;

Там же, в цикле:
2. Использовать функцию trunc(), которая отсекает дробную часть числа.
3. Проверить условие, что дробная часть rA-trunc(rA) <=0.5.
4. Если это так, то ближайшее целое trunc(rA), а иначе - trunc(rA) + 1.
Поскольку sin() <= 1, то все числа xi = i + sin(xi-2) положительные и специальных мер для операции сравнения применять нет необходимости.
Тут - rA - элемент массива.

Как-то так, ...

[type_Oleg]

Я не понял, а зачем Trunc ?
Почему не Round? Здесь этими целыми могут быть -1,0,1
Искать то, у которого величина Abs((Round(x[и])-x[и])) минимальная.

[ViktorR]

Посмотрите внимательно на формулу для вычисления элемента:
rMas[i] := i + sin(rMas[i-2]);
Реальное максимальное целое - 100 или 99.
round() - округляет к бли ...

Во блин. Написал и подумал. А почему же не round?

Да! И искать то ведь ничего не надо.

Как-то так, ...

[type_Oleg]

Ну да .. ТС еще и формулу неправильно скопировала с первоисточника.
Тогда не -1,0,1.

Но это не важно. Все равно Round.

Исправил.

[Stilet]

Почему не Round?

Я предполагал что получив целую часть сверка будет делаться не только с ней а и со следующим числом. Впрочем Round пожалуй будет уместнее.

[Serge_Bliznykov]

не знаю, может я и не разобрался в том, что надо,
но я бы искал число, с минимальным значением

ABS( Frac(X))

[Asya7]

Всем спасибо! Вот решенная задача:

program r;
var x: array [0..2] of real;
n: real;
i: integer;
begin
x[1] := 0.3;
x[2] := -0.3;
n := x[1];
for i := 3 to 100 do
begin
x[i mod 3] := sin(x[(i - 2) mod 3]);
if (abs(x[i mod 3]) < abs(n)) or (1 - abs(x[i mod 3]) < 1 - abs(n))
then n := x[i mod 3]
end;
write('n = ', n:0:10);
readln
end.