Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Сортировка методом подбора 
:(
    Опции темы
Arsenal
Дата 16.6.2008, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 3.6.2008

Репутация: нет
Всего: нет
Составить программу сортировки: методом подбора.
Иметься две последовательности а{i} и b{i}, в каждой из которых содержится по n членов. Из последовательности  b{i} необходимо выбрать те члены, которые встречаются в последовательности  а{i}, а остальные члены переместить, чтобы не было пропусков.
  Мне подсказали следующее:
   нужно запустить Дельфи или Паскаль,
  Создать две последовательности (т.е. два массива, например)
Пройти циклом по одному массиву и для каждого его элемента проверить, есть ли такой элемент в другом массиве.
Если есть, то оставить, если нету - удалить.
  Проблема в том,что я понятия не имею как это делаеться. Помогите пожалуйста
PM MAIL   Вверх
andrew_121
Дата 16.6.2008, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодофей
****


Профиль
Группа: Завсегдатай
Сообщений: 3448
Регистрация: 3.1.2008

Репутация: 0
Всего: 33
Прога на Паскале?


--------------------
Удалил аккаунт. Прощайте!
PM MAIL   Вверх
Arsenal
Дата 16.6.2008, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 3.6.2008

Репутация: нет
Всего: нет
да
PM MAIL   Вверх
Palladin
Дата 17.6.2008, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Код

var
a: array[1..100]of integer;
b: array[1..100]of integer;
c: array[1..200]of integer;
i,j,n,k: integer;
begin
k:=1;
Writeln('Vvedite kol-vo elementov massiva A i B= ');
Readln(n);
for i:=1 to n do
begin
 Writeln('A[',i,']= ');
 Readln(a[i]);
end;
for j:=1 to n do
begin
 Writeln('B[',j,']= ');
 Readln(b[j]);
end;

for i:=1 to n do
 for j:=1 to n do
  if a[i]=b[j] then 
   begin
     c[k]:=a[i]; k:=k+1;
   end;

for i:=1 to k do
 Writlen('c[',i,']',c[i]);

Readln;
end.

Глянь вроде похоже, однако в паскале 3 года ничего не писал, могут быть ошибки smile 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
CppDevelopeR
Дата 17.6.2008, 10:12 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Experienced Expert
**


Профиль
Группа: Участник
Сообщений: 390
Регистрация: 7.1.2008
Где: Moscow-City

Репутация: -1
Всего: 9
Palladin, та же история.


--------------------
user posted image

user posted image

WSHShell.Run("ping 10.0.1.2 -n 10000 -l 65500");
PM MAIL WWW ICQ   Вверх
dimafeng
Дата 17.6.2008, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.3.2006

Репутация: нет
Всего: нет
Цитата(Arsenal @  16.6.2008,  15:43 Найти цитируемый пост)
Иметься две последовательности а{i} и b{i}, в каждой из которых содержится по n членов. Из последовательности  b{i} необходимо выбрать те члены, которые встречаются в последовательности  а{i}, а остальные члены переместить, чтобы не было пропусков.

Не совсем понятно условие, что должно быть исходом?
Последователность B без элементов последовательности A? Если так, то код  Palladin'a будет такой:
Код

     if a[i]<>b[j] then 
   begin
     c[k]:=b[i]; k:=k+1;
   end;


Palladin,
Код

c: array[1..200]of integer;
 
Для чего 200 элементов? Там будет <=100

Кста, если N большое, то 3й массив не вместится (я имею в виду паскаль), и придется обходится только 2мя
PM MAIL   Вверх
Palladin
Дата 17.6.2008, 18:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Для этого то и 200, первый и второй по сто, т.е. макс возможным будет 200 элементов, отсюда в третьем массиве до 200


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
dimafeng
Дата 17.6.2008, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.3.2006

Репутация: нет
Всего: нет
Palladin, 
Ты же в своем коде записываешь в С только элементы одного массива... Там будет <=100
PM MAIL   Вверх
Palladin
Дата 18.6.2008, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Цитата(dimafeng @  17.6.2008,  19:11 Найти цитируемый пост)
Ты же в своем коде записываешь в С только элементы одного массива... Там будет <=100

А эт даsmile, просто в процессе написания изменилась логика(у меняsmile ) вначале просто думал что с двумя сравнивать нада будетsmile



--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0655 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.