Однонаправленный неоднородный (гетерогенный) список с однородными подсписками.

[Chudo4258]

Имеется однонаправленный неоднородный (гетерогенный) список с однородными подсписками.

Для данного списка нужно разработать следующие подпрограммы:
1) Добавление элемента
- в начало списка;
- в конец списка;
- после элемента с заданным номером.
2) Печать списка (вывод на экран дисплея):
- номера элемента;
- содержимое поля данных.
3) Удаление элемента из списка:
- из начала;
- из концаж
- с заданым номером.
5) Запись списка в файл.
6) Уничтожение списка.
Восстановление (чтение) списка из файла.

Пожалуйста помогите кто может.

Можно число К (количества типов в списке) взять определенное (например 3 или 4 и т.д.), тогда задача немного упрощается.

[Serge_Bliznykov]

1) и в чём сложность то? Задача, по сути, - несложная!
и даже при произвольном K
Правда, есть проблемы в оптимальном решении, но, если решать задачу "в лоб", при вставке элемента перебирать весь список, находя начало подсписка с нужным типом, тогда вообще элементарно всё (но не эффективно по быстродействию, конечно. Но кому оно нужно в учебной задаче то ;-)
Либо отдельно заводить список "хвостов" по каждому подтипу... тогда для вставки элемента не прийдётся перебирать весь список..
короче, вариантов реализации алгоритма - вагон!

2) на каком языке реализуете решение?

3) а сами то что-нибудь сделали? Если нет - боюсь, что Вам прямая дорога во фриланс (за Вас всё напишут - только денюжку плати... ;-)

[Chudo4258]

Я сделал только для однородного списка (в списке хранятся элементы типа LongInt), оно все работает. А вот как сделать для неоднородного списка (чтобы в списке были элементы разного пипа) у меня не получается.

Type BT = LongInt;
     U = ^Zveno;
     Zveno = Record
        Inf : BT;
        Next: U
     End;


       Procedure V_Nachalo(Var First : U; X : BT);
       Var Vsp : U;
       Begin
               New(Vsp);
               Vsp^.Inf := X;
               Vsp^.Next := First;
               First := Vsp;
       End;

       Procedure Iz_Nachala(Var First : U; Var X : BT);
       Var Vsp : U;
       Begin
               Vsp := First;
               First := First^.Next;
               X := Vsp^.Inf;
               Dispose(Vsp);
       End;



       Procedure V_Spisok(Pred : U; X : BT); //всатляет элемент в список, сразу позле элемента Pred
       Var Vsp : U;
       Begin
           New(Vsp);
           Vsp^.Inf := X;
           Vsp^.Next := Pred^.Next;
           Pred^.Next := Vsp;
       End;

       Procedure Iz_Spiska(Pred : U; Var X : BT);
       Var Vsp : U;
       Begin
            Vsp := Pred^.Next;
            Pred^.Next := Pred^.Next^.Next;
            X := Vsp^.Inf;
            Dispose(Vsp);
       End;

       Procedure Ochistka(Var First: U);
       Var Vsp : BT;
       Begin
                While Not Pust(First) Do Iz_Nachala(First, Vsp)
       End;

       Function  Pust(First : U) : Boolean;
       Begin
           Pust := First = Nil
       End;

       Procedure Print(First : U);
       Var Vsp : U;
       Begin
            Vsp := First;
            While Vsp <> Nil Do
            Begin
               Write(Vsp^.Inf : 6);
               Vsp := Vsp^.Next
            End; WriteLn
       End;

From Stilet: Оформляй правильно код. Ато ведь и обидится можно, все подчищать за тебя.

[Chudo4258]

Ну подскажите кто-нибудь как из однородного списка сделать неоднородный???

[Stilet]

Chudo4258

А массив Variant не подходит или на Паскале классическом надо?
Или можно еще применить указатели.
Вот например:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 type r=record
  tipe:byte;
  value:pointer;
 end;
 var av:array[1..5] of r;i:integer;
begin
 i:=1;
 av[i].tipe:=1;getmem(av[i].value,sizeof(integer));integer(av[i].value^):=124;inc(i);
 av[i].tipe:=2;getmem(av[i].value,sizeof(double));double(av[i].value^):=124.5;inc(i);
 av[i].tipe:=3;getmem(av[i].value,sizeof(char));char(av[i].value^):='c';inc(i);
 av[i].tipe:=4;getmem(av[i].value,20);pchar(av[i].value^):='123456'#0;inc(i);

 for i:=1 to 5 do begin
  if av[i].tipe=1 then  writeln('Integer ',integer(av[i].value^));
  if av[i].tipe=2 then  writeln('Double ',Double(av[i].value^));
  if av[i].tipe=3 then  writeln('char ',char(av[i].value^));
  if av[i].tipe=4 then  writeln('String ',pchar(av[i].value^));
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Chudo4258]

Stilet, а можешь еще объяснить, что такое pointer и процедура getmem(...)

[Stilet]

хы. А в хелп?
Pointer - это тип указателя. Он содержит адрес на ячейку памяти с которой начинается какой нить блок дайнных.
Getmem - вписывает в Поинтер указатель на блок памяти зарезервированный для тебя с указанным размером.

[Chudo4258]

Что-то ничего не понятно.
А можешь на моих процедурах показать как создается гетерогенный список???

[Stilet]

хм... Чесно говоря по-моему твои процедуры ниразу не годятся для такого.
Тут я бы на твоем месте почитал бы (как бы это банально не звучало) литературу про указатели. А потом я не очень пойму что ты имееш ввиду под неоднородным списком - это обычный массив Variant, займись им коли указатели пока понять сложно.
Если ты на Делфи пишеш то вот пример с Вариантом:

var a:array of variant;
begin
setlength(a,3);
a[0]:='1213';
a[1]:=123;
a[2]:=22.65;
end;

А если на Паскале... ну учи указатели.
Кста твоя прога их активно пользует.

[Chudo4258]

список неоднородный - это значит в нем могут хранится элементы разных типов (напрмер: integer, char ...).