Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
2 / 2 / 0
Регистрация: 08.10.2014
Сообщений: 64

Сортировка массива и двоичный поиск в нем: ошибка

28.10.2014, 10:59. Показов 652. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заполнить массив случайными числами,отсортировать его. ввести х используя двоичный поиск определить сколько чисел равных х встречается в массиве....
у меня он почему то находит только 1 число равное х
помогите и за одно найти сколько таких элементов

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
const n=5;
var
a:array[1..n] of integer;
i,j,swap,x,sum,l,r,c:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(6);
write(a[i]:5);
end;
for i:=1 to n-1 do begin
  swap:=-32768;
 for j:=i+1 to n do
   if a[i]>a[j]then
   begin
   swap:=a[i];
   a[i]:=a[j];
   a[j]:=swap;
   end;
    end;
  writeln;
  writeln('Ìàññèâ ïîñëå ñîðòèðîâêè : ');
  for i:=1 to n do
    write(a[i]:5);
    writeln;
    writeln('Ââåäèòå ÷èñëî');
    readln(x);
    l:=1;r:=n+1;
    while r-l<>1 do begin
    c:=l+(r-l) div 2;
    if a[c]<=x then
    l:=c
    else r:=c;
    end;
    if r>l then
    write('a[',l,']=',x)
    else writeln('Íå íàøëè');
    end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.10.2014, 10:59
Ответы с готовыми решениями:

Сортировка и двоичный поиск в массиве.
Помогите чайнику изменить следующий код: // F_08_L_2.cpp: определяет точку входа для консольного приложения. // #include...

Сортировка. Двоичный поиск. Матрицы
1. Напишите программу, которая считает среднее число шагов при двоичном поиске для массива из 32 элементов в диапазоне 0..100. Для поиска...

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.10.2014, 10:59
Помогаю со студенческими работами здесь

Элементы, которые присутствуют в массиве А, но отсутствуют в массиве В (сортировка - выбором, поиск - двоичный)
элементы, которые присутствуют в массиве А, но отсутствуют в массиве В алгоритм сортировки:Выбором Алгоритм поиска: двоичный Сделать...

Поиск и сортировка массива!)
Привет всем) Эх, давно здесь не был((( Написал программку, но все не могу понять процедуру сортировки файла методом прямого выбора. ...

Сортировка и поиск элементов массива
в программе нужно разработать алгоритм и программу поиска и сортировки элеменотов массива на языке Паскаль.В программе необходимо...

поиск и сортировка динамич массива
Ребят, хэлп, экзамен!! Реализовать динамический массив на два поля. Одно текст, второе любое. Консируктор, деструктор. Перегрузка,...

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


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru