Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 30.05.2011
Сообщений: 7

Бинарный поиск

30.05.2011, 10:21. Показов 1647. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
а если надо будет бинарно искать число А в упорядоченном массиве, то я всего лишь буду изменить v на A или как? ....
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.05.2011, 10:21
Ответы с готовыми решениями:

Бинарный поиск
Program massiv; uses crt; var a: array of integer; b: array of integer; c: array of integer; i,j,n: integer; max :...

бинарный поиск
есть ли у кого-нибудь информация о бинарном поиске в Паскале?

бинарный поиск
В массиве C(L)элементы, кратные трем, заменить на «три».Через бинарный поиск

3
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
30.05.2011, 10:58
Katya-19, Вы о чем? В контексте той темы не понятно к кому Вы обращаетесь. Опишите полностью суть проблемы.

Добавлено через 4 минуты
А вообще на эту тему всего написано......
http://www.google.ru/search?hl... E8%F1%EA&g
0
0 / 0 / 0
Регистрация: 30.05.2011
Сообщений: 7
30.05.2011, 11:04  [ТС]
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
var
   n,v,i,r:integer;
   a:array[1..1000] of integer;
   
procedure binsearch(left,right:integer);
begin
    if left=right then
    begin
       r:=right;
       exit;
    end;
      
   r:=(right+left) div 2;
   if a[r]<v then
   begin
      left:=r+1;
      binsearch(left,right)
   end
   else
   begin
      right:=r;
      binsearch(left,right);
   end;
end;
 
begin
   readln(n);
   for i:=1 to n do
      read(a[i]);
   readln(v);
   binsearch(1,n);
   if a[r]=v then
      writeln(r)
   else
      writeln('Absent');
end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
30.05.2011, 11:07
Да, напишете так
Pascal
1
2
3
var
   n,a,i,r:integer;
   mas:array[1..1000] of integer;
и везде в программе заменить v на а, а на mas
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.05.2011, 11:07
Помогаю со студенческими работами здесь

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

Бинарный поиск
В заданном массиве A(N),найти наибольший элемент из отрицательных значений

Бинарный поиск
В заданном массиве A(N) найти наибольший элемент из отрицательных значений методом бинарного поиска.

бинарный поиск в массиве записей
Товари програмисты хел плиз! вот задача- В памяти ЭВМ хранятся списки номеров телефонов и фамилий абонентов, упорядоченные по номерам...

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru