Работа со списками (паскаль)

[ge4r]

нужна помощь
из исходного списка путем копирования создать 2 списка,в 1должны быть те слова которые начинаются на заданную комбинацию букв,во 2ом-которые заканчиваюца на эту комбинацию. исходный список и искомая комбинация вводится с клавиатуры

[Serge_Bliznykov]

нужна помощь?... или "сделайте за меня"? если второе, то в разделе фриланс Вам с огромной радостью сделают (правда, за деньги)...

а если нужна помощь - то давайте Ваши наработки:
описание списка, как Вы его заполняете, как проверяете совпадение слов с заданной комбинацией букв...
что не получается, с чём проблемы?...

[ge4r]

type PList=^First;
    First=record
	info:string;
	next,last: PList;
ListB,ListE:Plist;
end;
procedure add (var L:PList);
var s:string;
newElem:Plist;
M:set of char;
N,i,count:integer;
begin

M:=['A'..'Z','a'..'z'];
repeat
count:=0;
writeln ('input element');
readln (s);
N:=length(s);
for i:=1 to N do begin
	if s[i] in M then inc(count);
	end;
	if count <> n then writeln('{not added}');
	if count = n  then begin

	writeln ('{added}');
	new(newElem);
	newElem^.next:=nil;
	newElem^.info:=s;
	 if L=nil then L:=newElem
	  else L^.last^.next:=newElem;
	L^.last:=newElem;
	end;
until s='';
end;
var L:Plist;
begin
add (L);
end.

для начала нужна помощь с реализацией заполнения исходного списка,вот код

[Stilet]

Так, предлагаю так вводить:

type 
 PItem=^TItem
 TItem=record
   s:string;
   Next,Prev:pitem
 end;
var first,Curent,NewI:PItem;
begin
 repeat
  readln(s);
  new(NewI);
 if First=nil then First:=NewI;
 NewI^.s:=s;
 NewI^.Prev:=Curent;
 if Curent<>nil then Curent^.Next:=New
 Curent:=NewI;
 until s='';
end.

[ge4r]

спасиб,буду дальше писать...

[ge4r]

у меня еще вопрос...как двигаца по списку?
while"ом?

далее будет просто

if pos(<нужная комбинация>,curent.s)=1 then <1ый список>:= curent;
if pos(<нужная комбинация>,curent.s)=length(слова из списка)-length (комбинации) then <2ой список>:= curent;

?

[capta1n]

двигаться так: если ListB - это голова списка-очереди, а ListE - Это указатель на последний элемент, то:

ListE:=ListB;
while ListE<>nil do
begin
....
ListE:=ListE^.Plist
end.

[ge4r]

а в дебаге нельзя просматривать списки,которые получаюца?

[ge4r]

посмотрите плз код:

type
PList=^TList;
TList=record
 s:string;
 Next,Prev:PList;
end;

procedure print (z:PList);
begin
while z<>nil do begin
 write(z^.s,' ');
 z:=z^.next;
 end;
end;

var list1,list2,first,Curent,NewI:PList;
k,s:string;
begin
writeln('input combination');
readln(k);
repeat {тут идет заполнение списка словами}
writeln ('input word to add');
readln(s);
new(NewI);
if First=nil then First:=NewI;
NewI^.s:=s;
NewI^.Prev:=Curent;
if Curent<>nil then Curent^.Next:=NewI;
Curent:=NewI;
until s='';
{тут List1-список,в который кидаем слова начинающиеся на комбинацию,List2-закнчивающиеся}
curent:=first;
while curent<>nil do begin {тут проверяем позом все слова из исходного списка и раскидываем по 2ум спискам,ошибка кажется где то тут}
if pos(k,curent^.s)=1 then begin
new(List1);
List1:=curent;
end;
if pos(k,curent^.s)=length(curent^.s)-length (k)+1 then begin
new(List2);
List2:=curent;
end;

curent:=curent^.next;
end;
print (List1);{тут идет вывод конечных списков}
writeln(' ');
print (List2);

end.

косяк вот в чем...тест:
na (искомая комбинация);
naaa
ababa
klkls
aaana

мой код выводит как 1ый список naaa ababa klkls а как 2ой aaana
с чего он запихивает туда ababa klkls не пойму...

[ge4r]

вот,для будущих поколений

type
  PList=^TList;
  TList=record
    s: string;
    Next, Prev: PList;
  end;

procedure print(z: PList);
begin
  while z<>nil do begin
    write(z^.s,' ');
    z:=z^.next;
  end;
end;

function add_item(st: string;
		  const p_next, p_prev: PList): Plist;
var p:PList;
begin
  new (p);
  with p^ do begin
    s:=st;
    next:=P_next;
    prev:=P_prev;
  end;
  add_item:=p;
end;

procedure append_list (var ps,pf:Plist;s:string);
var p:PList;
begin
  P := add_item(s,nil,pf);
  if ps=nil then ps:=p
  else pf^.next:=p;
  pf:=p;
end;

var
  List1, Listf1, List2, Listf2, first,Curent,NewI:PList;
  k, st:string;
  len:integer;
begin
  first := nil; curent := nil;
  readln(k);
  repeat
    readln(st);
    append_list(first,curent,st);
  until st='';
  Len := length(k);

  List1 := nil; Listf1 := nil; List2 := nil; Listf2 := nil;
  curent := first;
  while curent <> nil do begin
    with curent^ do begin
      if copy(s, 1, Len) = k then
	append_list(List1, Listf1, s);
      if copy(s, length(s) - Len + 1, Len) = k then
	append_list(List2, Listf2, s);
    end;
    curent := curent^.next;
    end;
  print (list1);
  writeln;
  print (List2);
end.