Бинарный поиск. Если элемент не найден, то вставить его в массив на второе место

@AnyM0re · Регистрация: 24.07.2017

Студворк — интернет-сервис помощи студентам

Сформировать массив А[1..10], упорядоченный по убыванию. Методом бинарного поиска определить, содержит ли он заданное число. Если элемент не найден, то вставить его в массив на второе место.

@JuriiMW · 17.12.2018, 10:04

Сообщение от AnyM0re

то вставить его в массив на второе место

Или заменить второй элемент массива?
Это разные вещи.
А именно первое не пройдёт, ибо статический массив и изменить его размер никак!

@Cyborg Drone · 17.12.2018, 23:14

JuriiMW, не то спрашиваете. Вот как можно не найденный элемент куда-то там вставить? Его же нет.

AnyM0re, что скажете?

@AnyM0re · 18.12.2018, 02:20 **[ТС]**

Сообщение от Cyborg Drone

AnyM0re, что скажете?

Хм, но прежде чем искать, мы должны понять, что ищем, например через readln, если вдруг искомого элемента нет, то мы вставляем его на 2 место в массиве

@Cyborg Drone · 18.12.2018, 08:29

А, кажется, понял... Задание писал мастер по косноязычности, да?

Наверное, так: если заданное число в массиве не найдено, то вставить это число на 2 место в массиве.

@AnyM0re · 18.12.2018, 20:36 **[ТС]**

Сообщение от Cyborg Drone

Наверное, так: если заданное число в массиве не найдено, то вставить это число на 2 место в массиве.

Да, вы правы

@AnyM0re · 24.12.2018, 23:55 **[ТС]**

Помогите пожалуйста((

@Puporev · 25.12.2018, 08:18

Ну ведь была такая же задача со вставкой на 1 место. Неужели совсем ума нет изменить 1 на 2?

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
29
30
31
32
33
var a:array[1..11] of integer;
    n,i,l,r,m,x,i1:integer;
begin
n:=10;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=i+2;
  write(a[i]:3);
 end;
writeln;
write('Введите число для поиска x=');
readln(x);
l:=0;
r:=n;
while r-l>1 do
 begin
  m:=(l+r) div 2;
  if x<=a[m] then r:=m else l:=m;
 end;
if a[r]=x then writeln('Число ',x,' в массиве есть, его индекс=',r)
else
 begin
  writeln('Числа ',x,' в массиве нет');
  n:=n+1;
  for i:=n downto 3 do
  a[i]:=a[i-1];
  a[2]:=x;
  writeln('Массив после вставки элемента');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.

@AnyM0re · 26.12.2018, 17:46 **[ТС]**

Puporev, Да, но тут же должен быть массив по убыванию, а не по возрастанию, как можно сделать по убыванию ?

@Puporev · 26.12.2018, 19:14

Совсем тупой и ленивый.

Pascal
1
2
3
4
5
6
7
n:=10;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=20-2*i;//и мильен других способов
  write(a[i]:3);
 end;

@AnyM0re · 26.12.2018, 22:36 **[ТС]**

Сообщение от Puporev

Совсем тупой и ленивый.

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

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
var a:array[1..10] of integer;
    n,i,l,r,m,x,i1,j,e:integer;
begin
n:=10;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=i+1;
 end;
for i:=1 to n-1 do
    for j:=i+1 to n do
       if a[i]<a[j] then
       begin
       e:=a[i];
       a[i]:=a[j];
       a[j]:=e;
       end;
for i:=1 to n do
begin
  write(a[i]:4);
  end;
  writeln;
write('Введите число для поиска x=');
readln(x);
l:=0;
r:=n;
while r-l>1 do
 begin
  m:=(l+r) div 2;
  if x<=a[m] then r:=m else l:=m;
 end;
if a[r]=x then writeln('Число ',x,' в массиве есть, его индекс=',r)
else
 begin
  writeln('Числа ',x,' в массиве нет');
  //n:=n+1;
  for i:=n downto 3 do
  a[i]:=a[i-1];
  a[2]:=x;
  writeln('Массив после вставки элемента');
  for i:=1 to n do
  write(a[i]:4);
 end;
end.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@AnyM0re 1 / 1 / 1 Регистрация: 24.07.2017 Сообщений: 45

	Бинарный поиск. Если элемент не найден, то вставить его в массив на второе место 16.12.2018, 20:58. Показов 3515. Ответов 10 Метки нет (Все метки) Сформировать массив А[1..10], упорядоченный по убыванию. Методом бинарного поиска определить, содержит ли он заданное число. Если элемент не найден, то вставить его в массив на второе место. 0

@Cyborg Drone Модератор 10410 / 5697 / 3401 Регистрация: 17.08.2012 Сообщений: 17,350
	17.12.2018, 23:14
	JuriiMW, не то спрашиваете. Вот как можно не найденный элемент куда-то там вставить? Его же нет. AnyM0re, что скажете? 0

@Cyborg Drone Модератор 10410 / 5697 / 3401 Регистрация: 17.08.2012 Сообщений: 17,350
	18.12.2018, 08:29
	А, кажется, понял... Задание писал мастер по косноязычности, да? Наверное, так: если заданное число в массиве не найдено, то вставить это число на 2 место в массиве. 0

@AnyM0re 1 / 1 / 1 Регистрация: 24.07.2017 Сообщений: 45
	24.12.2018, 23:55 [ТС]
	Помогите пожалуйста(( 0

@AnyM0re 1 / 1 / 1 Регистрация: 24.07.2017 Сообщений: 45
	26.12.2018, 17:46 [ТС]
	Puporev, Да, но тут же должен быть массив по убыванию, а не по возрастанию, как можно сделать по убыванию ? 0

Бинарный поиск. Если элемент не найден, то вставить его в массив на второе место

Решение