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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2017, 15:27   #1
Miraclezzz
Новичок
Джуниор
 
Регистрация: 17.12.2017
Сообщений: 1
По умолчанию Напишите функции для поиска номера элемента в отсортированном массиве по его значению.

Методы поиска:
1) поиск перебором;
2) бинарный поиск в отсортированном массиве;
3) интерполяционный поиск в отсортированном массиве.
Pascal
program Shaker;
var A:array[1..100] of integer;
N,i,k,x,j,d : integer;

begin
write('количество элементов');
read(N);
for i:=1 to n do read(A[i]);
d:=1; i:=0;
for k:=n-1 downto 1 do // k - количество сравниваемых пар
begin
i:=i+d;
for j:=1 to k do
begin
if (A[i]-A[i+d])*d>0 then
{меняем местами соседние элементы}
begin x:=A[i]; A[i]:=A[i+d]; A[i+d]:=x; end;
i:=i+d;
end;
d:=-d;
{меняем направление движения на противоположное}
end;
for i:=1 to n do write(A[i],' '); //упорядоченный массив
end.
Miraclezzz вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сформулируйте задачу поиска заданного элемента в массиве INShcherbakov Помощь студентам 8 17.01.2015 09:54
Как в массиве привязать номер элемента к его значению? 22hope22 C# (си шарп) 0 31.05.2013 22:22
Напишите программу с использованием рекурсии для поиска наименьшего элемента массива netiv Паскаль, Turbo Pascal, PascalABC.NET 4 17.02.2012 13:57
программу нахождения экстремального элемента или его порядкового номера при заданном одномерном массиве А (Паскаль) S_S_V_N Помощь студентам 1 16.10.2011 21:54
Поиск элемента в массиве методом бинарного поиска Vellosity Общие вопросы C/C++ 3 02.06.2011 21:56