Вставить число в заданную возрастающую последовательность

@DH-1 · Регистрация: 09.01.2011

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

@Даня98 · 09.01.2011, 14:51

Pascal

const max = 101;
var a: array [1..max] of longint;
    n,i,ch,j: longint;
begin
readln (ch,n);
for i:= 1 to n do
readln (a[i]);
 
i:= 1;
while (a[i]<ch) and (i<>n+1) do inc (i);
 
for j:= n downto i do
a[j+1]:= a[j];
a[i]:= ch;
 
for i:= 1 to n+1 do
write (a[i],' ');
end.

@SuPeR XaKer · 09.01.2011, 14:59

ммм...А здесь не вставка ли в отсортированный массив?

@Даня98 · 09.01.2011, 15:09

По идее да, но я решал так.

@use · 09.01.2011, 15:13

Сообщение от SuPeR XaKer

ммм...А здесь не вставка ли в отсортированный массив?

эээ.. Похоже на то..

Добавлено через 1 минуту
можно ускорить, если применить бинарный поиск (дихотомию)

к модераторам: Почему сообщения двоятся? не первый раз уже.. ((
PS
двоение исчезло.. что за глюк такой?

@Даня98 · 09.01.2011, 15:17

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

к модераторам: Почему сообщения двоятся? не первый раз уже.. ((
PS
двоение исчезло.. что за глюк такой?

Кстати да двоятся.

@DH-1 · 09.01.2011, 18:19 **[ТС]**

Спасибо за помощь

@DH-1 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 13
		1
	Вставить число в заданную возрастающую последовательность 09.01.2011, 14:37. Показов 1368. Ответов 6 Метки нет (Все метки) Написать программу, которая вставляет число k в заданную возрастающую последовательность таким образом, что в результате полученная последовательность также остается полностью возрастающей. Решить нужно с помощью массива. Помогите пожалуйста 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.01.2011, 14:59	3
	ммм...А здесь не вставка ли в отсортированный массив? 0

@Даня98 29 / 29 / 18 Регистрация: 13.02.2010 Сообщений: 145
	09.01.2011, 15:09	4
	По идее да, но я решал так. 0

@use 180 / 180 / 81 Регистрация: 18.12.2010 Сообщений: 346
	09.01.2011, 15:13	5
	Сообщение от SuPeR XaKer ммм...А здесь не вставка ли в отсортированный массив? эээ.. Похоже на то.. Добавлено через 1 минуту можно ускорить, если применить бинарный поиск (дихотомию) к модераторам: Почему сообщения двоятся? не первый раз уже.. (( PS двоение исчезло.. что за глюк такой? 0

@Даня98 29 / 29 / 18 Регистрация: 13.02.2010 Сообщений: 145
	09.01.2011, 15:17	6
	Сообщение от use к модераторам: Почему сообщения двоятся? не первый раз уже.. (( PS двоение исчезло.. что за глюк такой? Кстати да двоятся. 0

@DH-1 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 13
	09.01.2011, 18:19 [ТС]	7
	Спасибо за помощь 0

Опции темы