Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2017, 00:06   #1
bluevaran
Новичок
Джуниор
 
Регистрация: 24.05.2017
Сообщений: 1
Счастье Ввести последовательность из N вещественных чисел. Найти и показать число, которое будет иметь наименьшее расстояние от любого целого.

Цитата:
Const n=10;
Var a:array[1..n] of real;
i: integer;
l: real;
Begin

for i := 1 to n do
begin
Write('Element А [', i, '] = ');
readln(a[i]);
end;

end.
Хелп ми, пожалуйста.
bluevaran вне форума Ответить с цитированием
Старый 24.05.2017, 06:13   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

для
Цитата:
1 2 3 4 5 6 7 8 9 10
какой ответ должен быть?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 24.05.2017, 09:34   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
какой ответ должен быть?
исходные числа - вещественные.
тогда уже:
1.0 2.0 3.0 и т.д.

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

bluevaran, задача легко решается поиском минимального значения frac(x) и 1-frac(x)
примерно так:
Код:
  indexMinDist := 1; {первое число считаем самым близким}
  for i:=2 to n do begin
    if (frac(abs(A[i]))<frac(abs(A[indexMinDist])) )
        or  ((1-frac(abs(A[i])))<(1-frac(abs(A[indexMinDist]))) ) then indexMinDist := i;
 WriteLn('самое близкое к целом числу является число: ', A[indexMinDist]);
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу. Помогите плз michaeldurden Общие вопросы C/C++ 2 04.12.2015 22:48
дано вещественное число a, найти последовательность чисел, первое число больше a derenikp1996 Помощь студентам 3 23.05.2015 12:16
Составить программу массива: Найти наименьшее из четных и произведение нечетных чисел, входящих в последовательность kolia_y Паскаль, Turbo Pascal, PascalABC.NET 8 06.10.2013 09:39
Дана последовательность вещественных чисел. каждая пара чисел задает границы отрезка. Найти количество целых чисел на отрезках 'studentka' Помощь студентам 6 30.11.2011 18:35
Ввести массив вещественных чисел NxM для заданной строки массива найти два самых больших числа (на C#) владислав10 Помощь студентам 1 10.04.2011 14:10