Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 01.02.2014, 20:07   #1 (permalink)
Kimster
Новичок
 
Регистрация: 24.01.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal. Динамические списки

Добрый вечер. Никак не получается выполнить вставку в список L за первым вхождением элемента Е все элементы списка L1, если Е входит в список L. Буду благодарен за помощь.
Код:
Uses crt;
type tinf=integer;
     uk=^rec;
     rec=record
      x:integer;
      adr:uk;
     end;
Var first, p1, p2, p3, l, q:uk;
    f:text;

procedure SOZD_SPIS ;
begin
assign(f,'dinspis.txt');
reset(f);
first:=nil;
while not seekeof(f) do begin
new(p1); read(f,p1^.x);
if first=nil then first:=p1
else p2^.adr:=p1;
p2:=p1;
end;
p2^.adr:=nil;
close(f);
end;

Procedure VIVOD(t:string) ;
begin
writeln(t);
p1:=first;
while p1<>nil do begin
write (p1^.x, ' ');
p1:=p1^.adr;
end;
writeln;
end;

procedure AddElem(var spis1:uk;znach1:tinf);
var
  p,t:uk;
begin
  new(t);
  t^.x := znach1;
  p:=spis1;
  if (p = nil) or (p^.adr = nil) then
  begin
    t^.adr:=spis1;
    spis1:=t;
  end
  else
  begin
    while p^.adr^.adr <> nil do p:=p^.adr;
    t^.adr := p^.adr;
    p^.adr := t;
  end;
end;

Begin
SOZD_SPIS;
VIVOD('исходн');
  l:=nil;
  addelem(l, 1);
  q:=l;
  while q<>nil do
  begin
    write(q^.x:4);
    q:=q^.adr;
  end;
  writeln;
  readln;
VIVOD('после вставки');
readkey;
End.
Kimster вне форума   Ответить с цитированием

Старый 01.02.2014, 20:07
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую обратить особое внимание на похожи темы

Динамические головки НЧ 50 ZT-1
Динамические переменные. Free Pascal
Динамические структуры данных
Pascal,ссылки, списки

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:21.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.