VPF::Очереди - Форум программистов

Ilius

Дата 27.5.2007, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Вобщем задача такая:
Даны две непустые очереди; адреса начала и конца первой равны P1 и P2, а второй - P3 и P4. Элементы каждой из очередей упорядочены по возрастанию (в направлении от начала очереди к концу). Объеденить очереди в одну с сохранением упорядочености элементов. Вывести указатели P5 и P6 на начало и конец полученной очереди. Операции выделения и освобождения памяти не использовать, поля data не изменять.
вот что есть:

Код



program ochered_n15;
type    och=^elem;
        elem=record
        data:char;
        next:och
        end;
var p1,p2,p3,p4,p5,p6,q1,q2,t1,t2:och;
    im,i:char;
    j,k:integer;
procedure v(var p:och;i:char);
      begin new(p);
            p^.data:=i;
            p^.next:=nil;
      end;
procedure show(p:och);
      begin while p<>nil do
            begin write(p^.data,' ');
                  p:=p^.next;
            end;
            writeln
      end;
begin j:=1;
      writeln('введите первую очередь, окончание ввода - "?"');
      readln(i);
      v(p1,i);
      p2:=p1;
      repeat readln(i);
             if i<>'?' then
             begin v(p2^.next,i);
                   p2:=p2^.next;
                   j:=j+1;
             end
      until i='?';
      k:=1;
      writeln('введите вторую очередь,',j,'элементов');
      readln(i);
      v(p3,i);
      p4:=p3;
      for k:=2 to j do
      begin readln(i);
            v(p4^.next,i);
            p4:=p4^.next;
      end;
      writeln('первая очередь:');
      show(p1);
      writeln('вторая очередь:');
      show(p3);
      p5:=p1;
      p6:=p4;
      q1:=p1;
      q2:=p3;
      while q1<>nil do
      begin t1:=q1^.next;
            t2:=q2^.next;
            q1^.next:=q2;
            q2^.next:=t1;
            q1:=t1;
            q2:=t2
      end;
      writeln('итоговая очередь:');
      show(p5)
end.

Помогите упорядочить по возрастанию smile

Это сообщение отредактировал(а) Ilius - 27.5.2007, 19:28

valedol

Дата 27.5.2007, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

как-то так:

Код


repeat
flag:=true;
while p^.next<>nil do
  begin
  if p^.next^.data< p^.data then
    begin
    flag:=false;
    меняешь их местами
    end;
  end;
until flag;

компилятора под рукой нет, но должно работать...

Ilius

Дата 27.5.2007, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Почему то не работает, все время зацикливается smile

Это сообщение отредактировал(а) Ilius - 27.5.2007, 21:54

valedol

Дата 28.5.2007, 16:56 (ссылка)

(нет голосов)

Загрузка ...

добавь 2 строчки:
p:=p5 (после repeat, между 1 и 2)
p:=p^.next (в цикле while после условия, между 9 и 10)

и проверь лишний раз как ты переставляешь указатели

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »