VPF::[Pascal]Списки - Форум программистов

roman89

Дата 9.1.2007, 18:34 (ссылка)

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

Загрузка ...

Новичок

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

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

завтро нужно сдать, а блин ничего не получается...=(

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

Igor_St

Дата 9.1.2007, 22:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот один из возможных вариантов решения smile

Код



Type PNode=^TNode;
         TNode=record
           info:integer;
           next:TNode;
         end; 

var Node1,Node2,head1,head2:PNode;
      string1,string2:string;

begin
string1:='';
string2:='';

//создание списков Node1,Node2

head1:=Node1;//Node1,Node2 - указатели на первый элемент списка
head2:=Node2;

while (Head1<>nil)and(head2<>nil)and(Head1^.info=Head2^.info) do
 begin
   Head1:=head1^.next;
   Head2:=head2^.next;
 end;

//вывод первого списка с несовпадающего элемента
while head1<>nil do
 begin
   string1:=string1+inttostr(head1^.info)+'  ';
   head1:=head1^.next;
 end;
                                                                                                    }эти два одинаковых цикла хорошо бы объединить в процедуру,

//вывод второго списка с несовпадающего элемента
while head2<>nil do
 begin
   string2:=string2+inttostr(head2^.info)+'  ';
   head1:=head1^.next;
 end;

writeln(string1);
writeln(string2);

//Удаление списков и всех динамических переменных

end;

Lena88

Дата 9.1.2007, 22:40 (ссылка)

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

Загрузка ...

Новичок

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

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

огромное спасибо)

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