1 / 1 / 0
Регистрация: 20.04.2014
Сообщений: 140
1

Совершить бинарный поиск заданного элемента в упорядочном по возрастанию (падению) массиве целых чисел

30.10.2014, 19:27. Показов 1340. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Совершить бинарный поиск заданного элемента в упорядочном по возрастанию (падению) массиве целых чисел. При написании кода использовать функции и/или процедуры.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2014, 19:27
Ответы с готовыми решениями:

Бинарный поиск заданного числа в упорядочном одномерном массиве
бинарный поиск заданного числа в упорядочном одномерном массиве.Если в массиве находится несколько...

Поиск заданного элемента в упорядоченном по возрастанию массиве целых чисел
Осуществить поиск заданного элемента в упорядоченном по возрастанию (по убыванию) массиве целых...

Поиск заданного элемента в упорядоченном массиве (бинарный поиск)
Заполнить одномерный массив из n элементов согласно таблицы. Размерность массива задать в виде...

Поиск заданного элемента в упорядоченном массиве(бинарный поиск)
Заполнить одномерный массив из n элементов по формуле приведенной в картинке. Размерность массива...

1
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
03.11.2014, 13:23 2
Лучший ответ Сообщение было отмечено LittleMonkey как решение

Решение

© Язык Pascal. Программирование для начинающих.

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
45
46
47
48
49
50
51
52
53
54
const N = 20;
type arr = array[1..N] of integer;
var
    a: arr;
    i: byte;
    p,q,e: integer;
 
procedure fill(var b: arr; min,max: integer);
    var k: byte;
    begin
        randomize;
        for k:=1 to N do b[k] := random(max-min) + min;
    end;
 
procedure search(var c: arr; elem: integer);
    var m,i,j: integer;
    begin
        m := N div 2;
        i := 1;
        j := N;
        while (c[m] <> elem) and (i <= j) do begin
            if elem > c[m] then i := m + 1
            else j := m - 1;
            m := (i+j) div 2;
        end;
        if i > j then writeln('No')
        else writeln('Yes');
    end;
 
procedure sort(c: arr; elem: integer);
    var j,k,m,id: byte;
    begin
        m := N;
        while m > 1 do begin
            id := 1;
            for j := 2 to m do
                if c[j] > c[id] then id := j;
            k := c[id];
            c[id] := c[m];
            c[m] := k;
            m := m - 1;
        end;
        search(c,elem);
    end;
 
begin
    write('Min: '); readln(p);
    write('Max: '); readln(q);
    write('Element: '); readln(e);
    fill(a, p,q);
    sort(a, e);
    for i:=1 to N do write(a[i],' ');
    writeln;
end.
1
03.11.2014, 13:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2014, 13:23
Помогаю со студенческими работами здесь

Реализовать бинарный поиск заданного элемента в массиве
Помогите, напишите бинарный поиск элемента в массиве (особенно чтобы он работал, когда все элементы...

Реализовать бинарный поиск заданного элемента в массиве
Доброго времени суток, форумчане! Реализую алгоритмы поиска: линейный и бинарный. Нужно, чтоб они...

Реализовать бинарный поиск в динамическом массиве целых чисел
4)Реализовать бинарный поиск в динамическом массиве целых чисел

Поиск заданного числа в упорядоченном массиве целых чисел
Написать рекурсивную функцию, которая осуществляет поиск заданного числа в упорядоченном массиве...

Разработать функцию, отыскивающую индекс заданного элемента в одномерном массиве целых десятичных чисел
№3 Разработать функцию, отыскивающую индекс заданного элемента в одномерном массиве целых...

Бинарный поиск в упорядоченном по возрастанию массиве
9 лаб.работа Бинарный поиск в упорядоченном по возрастанию массиве


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru