Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Сортировка методом подбора

Автор: Arsenal 16.6.2008, 15:43

Составить программу сортировки: методом подбора.
Иметься две последовательности а{i} и b{i}, в каждой из которых содержится по n членов. Из последовательности  b{i} необходимо выбрать те члены, которые встречаются в последовательности  а{i}, а остальные члены переместить, чтобы не было пропусков.
  Мне подсказали следующее:
   нужно запустить Дельфи или Паскаль,
  Создать две последовательности (т.е. два массива, например)
Пройти циклом по одному массиву и для каждого его элемента проверить, есть ли такой элемент в другом массиве.
Если есть, то оставить, если нету - удалить.
  Проблема в том,что я понятия не имею как это делаеться. Помогите пожалуйста

Автор: andrew_121 16.6.2008, 16:45

Прога на Паскале?

Автор: Arsenal 16.6.2008, 17:05

да

Автор: Palladin 17.6.2008, 09:13

Код


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

Автор: CppDevelopeR 17.6.2008, 10:12

Palladin, та же история.

Автор: dimafeng 17.6.2008, 17:21

Цитата(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мя

Автор: Palladin 17.6.2008, 18:32

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

Автор: dimafeng 17.6.2008, 19:11

Palladin,
Ты же в своем коде записываешь в С только элементы одного массива... Там будет <=100

Автор: Palladin 18.6.2008, 14:06

Цитата(dimafeng @ 17.6.2008, 19:11

)

Ты же в своем коде записываешь в С только элементы одного массива... Там будет <=100

А эт да

, просто в процессе написания изменилась логика(у меня smile

) вначале просто думал что с двумя сравнивать нада будет smile