Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 14.12.2019
Сообщений: 7

Определить номера двух элементов массива, которые расположены ближе всех друг к другу на числовой оси

21.05.2020, 04:59. Показов 2006. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет номера двух элементов этого массива, которые расположены ближе всех друг к другу на числовой оси. Эти элементы не обязательно должны быть расположены рядом друг с другом. Если таких пар несколько, нужно вывести номера элементов самой последней из таких найденных пар.

Входные данные
Входная строка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000 .

Выходные данные
В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – в порядке возрастания номера двух элементов массива, которые расположены ближе всех друг к другу на числовой оси. Если таких пар несколько, нужно вывести номера элементов самой последней из таких найденных пар.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.05.2020, 04:59
Ответы с готовыми решениями:

Напечатать номера тех точек, которые ближе всего находятся друг к другу
ввести координаты трех точек на плоскости и напечатать номера тех из них, которые ближе всего находятся друг к другу

Вывести номера двух элементов массива, максимально близких к друг другу (не обязательно соседних)
Помогите пожалуйста, нужно вывести номера двух элементов массива длинной N максимально близких к друг другу (не обязательно соседних), то...

На оси OX расположены три точки а, b, c. Определить какая из точек b или c расположены ближе к а?
На оси OX расположены три точки а, b, c. Определить какая из точек b или c расположены ближе к а?

4
Модератор
10451 / 5742 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
24.05.2020, 13:59
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const
  m = 10000;
 
var
  x: array[1..m] of integer;
  a, b, n, i, j, im, jm: integer;
 
begin
  randomize;
  readln(a, b, n);
  b := b - a + 1;
  for i := 1 to n do
    begin
      x[i] := a + random(b);
      write(x[i], ' ')
    end;
  writeln;
  im := 1;
  jm := 2;
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if abs(x[i] - x[j]) <= abs(x[im] - x[jm]) then
        begin
          im := i;
          jm := j
        end;
  writeln(im, ' ', jm)
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
25.05.2020, 08:34
Cyborg Drone,
массив в памяти тут совершенно лишний не находите?

Добавлено через 1 минуту
А с массивом: поскольку элементы соседние, достаточно помнить только индекс левого, индекс правого всегда на 1 больше...
0
Модератор
10451 / 5742 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
25.05.2020, 09:00
bormant, не-а. Согласно задания:

Массив обязателен:
Цитата Сообщение от dka_ Посмотреть сообщение
Напишите программу, которая заполняет массив из N элементов случайными целыми числами
Насчёт "соседних" элементов: как это не абсурдно, но они не обязательно рядом:
Цитата Сообщение от dka_ Посмотреть сообщение
Эти элементы не обязательно должны быть расположены рядом друг с другом
0
25.05.2020, 10:36

Не по теме:

Cyborg Drone,
хм, действительно, спросонок неправильно прочитал условие как поиск наиболее близких на числовой оси последней пары соседних элементов (к слову, на планшете/телефоне форум выглядит просто ужасно, как с них зайду, так обязательно что-то не то читаю ;-) надо прекращать).
Виноват, посыпаю голову пеплом...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.05.2020, 10:36
Помогаю со студенческими работами здесь

Найти индексы всех таких элементов, которые могут быть получены суммированием двух элементов этого же массива
Среди элементов массива найти индексы всех таких, которые могут быть получены суммированием двух элементов этого же массива. ...

Написать программу, определяющую номера точек, расположенных ближе всего друг к другу, среди n заданных точек
Помогите решить, курсач горит! Напи¬сать программу, определяющую номера точек, расположенных ближе всего друг к другу, среди n...

На оси ОХ расположены три точки a, b, c. Определить какая из точек b, c расположена ближе к а.
На оси ОХ расположены три точки a, b, c. Определить какая из точек b, c расположена ближе к а.

На оси ОХ расположены три точки а, b, с. Определить, какая из точек b или с расположена ближе к а
Помогите решить.Практические сдавать надо,а в этом мало понимаю.

Определить, какое из чисел на числовой оси лежит ближе к их среднему арифметическому
Помогите,пожалуйста,переделать задачу? Для 5 действительных случайных чисел в диапазоне от 5 до 12 определить, какое из них на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru