помоги пожалуста со списками, очень надо Опции

[serega204]

Помогите написать программу. Реализовать два однонаправленных линейных списка, элементы в которых символьного типа. Сформировать список из элементов, которые входят только в один из списков.

[amega]

amega вообщето хотел узнать что именно ты знаеш в области програмирования, от чего мы можем отталкиваться помогая тебе, ибо если ты здаш програму написаную с использованием динамических структур например, а вы их еще не учили, то нетрудно догадаться что тебе скажет преподаватель... мы ведь не знаем что знаеш ты

хехе, может ето обращение не ко мне а к serega204

я так понял список еще должен быть отсортирован?

нут вот тебе начало( маленький толчок)

type
  
 TPRec=^Trec;
 TRec=record
  ch:char;
  next:TPRec;
  end;

var
  start1 : TPRec;
  start2 : TPRec;
  start3 : TPRec;


procedure addtolist(var start:TPRec, newel:TPRec);
begin
{процедру реализует добавление елемента.
 Получает старт по вару, поскольку новый елемент может стать в начало списка, 
и указатель на новый елемент}
end;

procedure newlist(st1:TPRec; st2:TPRec; var st3:TPRec );
begin
{слияние свух списков в 1 по заданому критерию}
end;

ну вот, 2 основные процедуры которые нужно написать

Сообщение отредактировано: amega - 9.10.2009 8:44

[serega204]

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

Добавлено через 7 мин.
я вам добавлю...прогу, а вы посмотрите пожалуйста, что не так....я всё сам писать стараюсь, только мало чего из этого получается


Program Lr1_2; Uses CRT;
Type
Point = ^item;
item = Record
Spisok_1 : Char;
Spisok_2 : Char;
next : Point;
End;
Var r : Point; n : char;
Procedure Form (First:point);
Var p : char;
Begin
First := nil;
While n <> ' ' do Begin
New®;
r^.Next := First;
r^.Spisok_1 := n;
First := r;
exit;
end;
p := n;
end ;
Procedure Print (first:point);
Begin
r := first;
While r<> nil do begin
Writeln ('slovo = ', r^.Spisok_1);
r := r^.next;
end;
end;
Procedure Search (first : point; x : char; var q : point);
var ok : boolean;
begin
r := first;
ok := true;
While (r <> nil) and ok do
if r^.Spisok_1 = x then ok := false
else r := r^.Next;
q := r;
end;
BEGIN clrscr;
Assign (Output, ''); Rewrite (Output);
Writeln ('First Spisok');
Readln;
Form ®;
Writeln ('Second Spisok');
Readln;
Print ®;
Writeln ('Eltmenti, kotorie vhodiat v odin iz spiskov');
{Form ®; }
{ Print ®;}
Search (r, n, r);
{Dispose®; } Close(Output);
END.

и посмотрите пожалуйста что не так