Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.11.2013, 00:47   #1
Dumbl-D
Пользователь
 
Регистрация: 25.11.2013
Сообщений: 26
По умолчанию Поиск места елемента в одномерном массиве(Паскаль)

Задано массив целых чисел упорядочений за возростанием А[1;n] и число В. Для числа В найти такое место среди елементов массива А, чтоб после вставки числа В на это место упорядоченость массива не нарушалась. Если впоследствии равенства между собою значений елементов массива А число может вставляться на разные места, то следует выяснить самое близкое к началу массива место.

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

Быду признательна, если кто-то откликнется и покажет пример программы или хотя бы фрамент, который выполняет эту самую вставку...)
Dumbl-D вне форума
Старый 26.11.2013, 06:02   #2
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

Бинарные вставки
очень понятно написано да и код присутствует. если нужна помощь,скидывайте свой код(пусть даже с ошибками) и поможем чем сможем)
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!
SaLoKiN вне форума
Старый 28.11.2013, 23:34   #3
Dumbl-D
Пользователь
 
Регистрация: 25.11.2013
Сообщений: 26
По умолчанию

Вот я написала программу. Вроде, все правильно. Не знаю, можете проверить, то ли оно мне выводит в результате? Выкладываю сюда код, может, кому-то пригодиться потом))
Спасибо за ссылочку, там все очень понятно, помогли)
Код:
program z2;

const
  n = 20;

var
  a: array[1..n + 1] of integer;
  b, d1, d2, buf, i, k: integer;

begin
  randomize;
  writeln('Введіть діапазон масиву');
  read(d1, d2);
  for i := 1 to n do
    A[i] := round((d2 - d1 + 1) * random + d1);      
  for k := n downto 2 do
    for i := 1 to (k - 1) do 
      if a[i] > a[i + 1] then begin
        buf := a[i];
        a[i] := a[i + 1];
        a[i + 1] := buf
      end;
  for i := 1 to n do
    writeln('a[', i, ']=', a[i]);
  writeln('Введіть число для масиву');
  readln(b);
  for i := 1 to n do
    if a[i] >= b then begin
      buf := a[i];
      a[i] := b;
      for k := i to n do 
      begin
        b := a[i + 1];
        a[i + 1] := buf;
        buf := b
      end;     
    end;            
  for i := 1 to n + 1 do
    writeln('a[', i, ']=', a[i])
end.

Последний раз редактировалось Stilet; 28.11.2013 в 23:42.
Dumbl-D вне форума
Старый 29.11.2013, 09:25   #4
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

не верно. при вводе числа B большего всех чисел массива А косяк.
ВОТ ваша еще одна тема, там я ответил вам.
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!
SaLoKiN вне форума
Старый 29.11.2013, 10:51   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

ЗАКРЫВАЮ ТЕМУ, КАК КРОССПОСТ!

Модератор
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
поиск наибольших чисел в одномерном массиве Alex_Dep Помощь студентам 3 18.11.2013 12:33
Поиск числа дубликатов в одномерном массиве AnnNoob Помощь студентам 3 24.04.2013 18:15
Бинарный(Двоичный) поиск в одномерном массиве bonjovi Паскаль, Turbo Pascal, PascalABC.NET 1 31.01.2012 17:10
[Pascal] Поиск минимума в одномерном массиве merch Паскаль, Turbo Pascal, PascalABC.NET 7 19.05.2011 02:35
Поиск в одномерном массиве Joxter Помощь студентам 6 13.12.2008 14:19