Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Методы поиска:
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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сформулируйте задачу поиска заданного элемента в массиве INShcherbakov Помощь студентам 8 17.01.2015 10:54
Как в массиве привязать номер элемента к его значению? 22hope22 C# (си шарп) 0 31.05.2013 22:22
Напишите программу с использованием рекурсии для поиска наименьшего элемента массива netiv Паскаль 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


23:52.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru