Помогите разобраться с лабораторной по динамическим структурам данных

[TiK_Tak]

Ребята, вообщем есть следующее задание:

Разделить заданный список на два списка, в первый список включить элементы с четными значениями, а во второй с нечетными.

Это надо сделать на Pascal.

Помогите разобраться, что и как делать???

[Денис_Рассветный]

По-конкретней, что не понятно?

[IvaniuS]

короче я понял чо он хочет, ему нада что бы из динамического массива прогой выдер оттуда четные и нечотные числа. набросаю побыстрому:

var
ar : array of integer;
i:integer;
const
n:=50;
begin
for i:=1 to n do begin
 readln(ar[i]);
if odd(ar[i]) then
writeln(ar[i],' нечотное');
end;
end.

[TiK_Tak]

как создать динамический массив???

[dr.Chas]

Мб где криво написано не знаю, тему когда проходили болел

program Project1;

{$APPTYPE CONSOLE}

type  Pe=^TypElem;
      TypElem=record
        t: integer;
        p: pe;
      end;

      TypChet=record
        t: integer;
        p: pe;
      end;

      TypNeChet=record
        t2: integer;
        p2: pe;
      end;

var Elem, nach1, che, nach2, nechet, nach3: Pe;
    ch: char;

begin
  New(Elem);
  nach1:=Elem;
  Elem^.p:=elem;
  while elem <> nil do
  begin
    writeln('Vvedite chislo: ');
    readln(elem^.t);
    write('povtorit vvod? (y/n) ');
    readln(ch);
    if (ch='n')or(ch='N') then elem:=nil
    else begin
      new(elem^.p);
      elem:=elem^.p;
    end;
  end;

  writeln('dannie spiska: ');
  elem:=nach1;

  New(che);  nach2:=che;

  New(nechet);  nach3:=nechet;
  //repeat
  while elem<>nil do
  begin

    if (elem^.t mod 2=0) then
    begin
      che^.t:=elem^.t;
      New(che^.p);
      che:=che^.p;
    end else
    begin
      nechet^.t:=elem^.t;
      New(nechet^.p);
      nechet:=nechet^.p;
    end;

    write({n,': ', }Elem^.t:5);
    elem:=elem^.p;

  end;
  //until elem=nil;

  che:=nil;    nechet:=nil;

  writeln;
  writeln('----------------------');
  Writeln('Chetnii spisok: ');
  che:=nach2;

  repeat
    Write(che^.t:5);
    che:=che^.p;
  until che=nil;

  writeln;
  writeln('----------------------');
  writeln('ne chetnii spisok: ');
  nechet:=nach3;
  while nechet<>nil do
  begin
    Write(nechet^.t:5);
    nechet:=nechet^.p;
  end;
  //until nechet=nil;

  readln;
end.

И так, в этом коде есть недочёт, он создаёт одну лишнею ячейку памяти, во втором Che и в третьем NeChet списках. Исправляйте сами.

[TiK_Tak]

спасибо!!!

[Stilet]

Мб где криво написано не знаю,

Ой! Это линейный список а не массив
Динмассив в Паскале через указатели с помошью GetMem создавался (по крайней мере я так всегда делал)
А вот легкий примерчик:

var p,e:^integer;i:integer;
begin
 getmem(p,Sizeof(integer)*10); {10 элементов динамического массива}
 e:=p;
 for i := 0 to 9 do begin
  e^:=i;
  e:=pointer(integer(e)+Sizeof(integer));
 end;
 e:=p;
 for i := 0 to 9 do begin
  write(e^:5);
  e:=pointer(integer(e)+Sizeof(integer));
 end;
 FreeMemory(p);
 readln;
end.

[dr.Chas]

Ой! Это линейный список а не массив

Ну мб я и ошибаюсь, но по-моему в задании ни чего не сказано про массив, а вот про списки написано.

[Serge_Bliznykov]

Сообщение от dr.Chas

а вот про списки написано.

+1
мне тоже решение через Списки кажется и более логичным и более подходящим по тексту задания из пост #1