Списки. Составить программу которая формирует список L, включив в него по одному разу элементы, которые входят одновременно в оба списа L1 и L2

@лиляля · Регистрация: 03.06.2012

Составить программу которая формирует список L, включив в него по одному разу элементы, которые входят одновременно в оба списа L1 и L2.

@лиляля · 03.06.2012, 20:05 **[ТС]**

Pascal

uses crt;
type
  Tlist=^Rlist;
  Rlist=record
    x:integer;
    y:Tlist;
    end;
var
  a,b,c,d,f,g:Tlist;
  z:integer;
begin
clrscr;
  {ñîçäàåì ñïèñîê}
  a:=nil;
  for z:=1 to 10 do
    begin
      new(b);
      b^.x:=random(20)-5;
      b^.y:=a;
      a:=b;
    end;
 
    c:=nil;
  for z:=1 to 10 do
    begin
      new(d);
      d^.x:=random(20)-5;
      d^.y:=c;
      c:=d;
    end;
  {âûâîäèì åãî}
  while b<>nil do
    begin
      write(b^.x:3);
      b:=b^.y;
    end;
    a:=b;
  writeln;
  while d<>nil do
    begin
      write(d^.x:3);
      d:=d^.y;
    end;
   writeln;
   c:=d;
repeat
while a^.y<>nil do
      begin
       while c^.y<>nil do
        begin
            if a^.x = c^.x then
        new(f);
      f^.x:=a^.x;
      f^.y:=a^.y;
      end;
    end;
 until f=nil;
   while f<>nil do
    begin
      write(f^.x:3);
      f:=f^.y;
    end;
   writeln;
   g:=f;
  readln;
end.

@BumerangSP · 04.06.2012, 00:42

Ну, например, вот:
37 строчка:

Pascal

 a:=b;

До этого у Вас был цикл "пока b<>nil". b стало nil, соответственно a тоже nil. Далее идет цикл:

Pascal

1	while a^.y<>nil do

Хотя я склоняюсь к варианту, что там просто a должно быть, без ^.y. Хотя, в обоих случаях a будет равно nil, и в этот он не зайдет, соответственно цикл будет пропущен и ответа не выйдет.

@лиляля 0 / 0 / 1 Регистрация: 03.06.2012 Сообщений: 3
		1
	Списки. Составить программу которая формирует список L, включив в него по одному разу элементы, которые входят одновременно в оба списа L1 и L2 03.06.2012, 17:00. Просмотров 1948. Ответов 2 Метки нет (Все метки) Составить программу которая формирует список L, включив в него по одному разу элементы, которые входят одновременно в оба списа L1 и L2. 0

Опции темы

Списки. Составить программу которая формирует список L, включив в него по одному разу элементы, которые входят одновременно в оба списа L1 и L2

Решение