• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фаззинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь. Мобильный клиент для IOS находится в itunes по этой ссылке

сортировка выбором в паскале

  • Автор темы kirill97097
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

kirill97097

#1
Привет! Мне нужно сделать работу, а я в этом полный НОЛЬ! Нужно сформировать при помощи генератора псевдослучайных чисел линейный целочисленный массив A[20], таким образом, чтобы элементы массива принадлежали отрезку [-50, 50], выполнить в нём линейный поиск введенного с клавиатуры элемента, отсортировать выбором и выполнить бинарный поиск элемента.
Программа в интернете нашлась вроде полезная:

procedure SelectSort(var d:vector;kol2:integer);
var j,min,nmin,k:integer;
begin
j := 1;
repeat
min := 100;
for i := j to kol2 do
if d < min then begin min := d; nmin := i; end;
for k := nmin downto j+1 do d[k] := d[k-1];
d[j] := min;
j := j + 1;
until j = kol2;
end;


но что с ней делать и как ее адаптировать к моему случаю ума не приложу. Для меня это все китайский язык!
Помогите, пожалуйста!
 
I

isqoff

#2
выполнить в нём линейный поиск введенного с клавиатуры элемента = это вводим индекс или любое число в диапазоне от -50 до 50??
 
I

isqoff

#3
Код:
 uses Crt;
var i,j,x,min,max,middle,buf : integer;
a : array [1..20] of integer;
ok : boolean;

BEGIN
{--------- создание линейного массива генератором случайных чисел --------------}
Randomize;

for i := 1 to 20 do a[i]:= Random(100)-50;

for i := 1 to 20 do write('a[',i,']= ',a[i],' ');
writeln;
writeln;

{------------------ поиск искомого элемента в массиве --------------------------}

writeln('Введите число для поиска в массиве из');
write('диапазона чисел (от -50 до 50) :');
readln(x);

for i:= 1 to 20 do
begin
if (x = a[i])then begin
write('Число в массиве под индексом [',i,']');
writeln;
ok := true;
end;
end;


if not ok then write('Искомого числа в массиве нет!');

{--------------------------- сортировка выбором --------------------------------}

for i := 1 to 19 do
begin
min := i;
for j:= i+1 to 20 do
if a[j]< a[min] then min := j;
buf :=a[i];
a[i]:=a[min];
a[min]:=buf;

end;

writeln;
writeln;
writeln('Массив отсортирован методом прямого выбора :');
for i := 1 to 20 do write('a[',i,']= ',a[i],' ');

writeln;
writeln;

{-------------------- бинарный поиск эллемента ---------------------------------}

if not ok
then begin
writeln('Выполнить бинарный поиск несуществующего эллемента');
write('массива невозможно!!!');
end
else begin
min := 1;
max := 20;
i := 0;
middle := 0;
ok := false;
repeat
middle := (max - min) div 2 + min;
i := i + 1;

if a[middle] = x
then ok := true
else if x < a[middle]
then max := middle - 1
else min := middle + 1;

until(min > max)or ok;

end;

if ok then write('Бинарный поиск завершён! Искомый эллемент'+
' в массиве под номером [',middle,']');


END.
 
Статус
Закрыто для дальнейших ответов.
Вверх Снизу