Задача со списками Опции

[AlonZo]

Задача такова: создать список из действительных чисел. Потом сформировать из него два списка - один с положительными числами, другой с отрицательными(числа взяты с главного списка). Собственно как создать главный список я знаю, а как распределить числа на остальные два - нет.

Вот что собственно есть:

Код

uses crt;
type
    pnode=^node;
    node=record
            data:integer;
            next:pnode;
    end;
Procedure Init(var p,u:pnode); {создание главного списка}
          var
             i:integer;
          begin
               new(u);
               u^.next:=nil;
               p:=u;
               Write('Spisok:');
               for i:=1 to 15 do
                   begin
                        new(p^.next);
                        p:=p^.next;
                        p^.next:=nil;
                        p^.data:=random(30)-5;
                   end;
          end;
Procedure Out(p,u:pnode);              {Вывод}
          begin
               p:=u^.next;
               while p<>nil do
                      begin
                           write(p^.data:4);
                           p:=p^.next;
                      end;
               writeln;
          end;
var
   p,u:pnode;
begin
     clrscr;
     Init(p,u);
     Out(p,u);
     readkey;
end.

Сообщение отредактировано: AlonZo - 17.11.2007 10:05

[volvo]

Смотри, что делаем:

uses crt;
type
  pnode = ^node;
  node = record
    data: integer;
    next: pnode;
  end;

{ 1. добавляем элемент в конец списка }
procedure Add(var p: pnode; k: integer);
var pp, new_p: pnode;
begin
  { работаем с копией указателя, чтоб не испортить }
  pp := p;
  { пробегаем по списку до тех пор, пока pp^.next ненулевое - т.о. ищем последний элемент }
  while (pp <> nil) and (pp^.next <> nil) do begin
    pp := pp^.next;
  end;

  { новый элемент и его заполнение }
  new(new_p);
  new_p^.next := nil;
  new_p^.data := k;

  {
    pp = nil может быть только, если p = nil. Тогда просто возвращаем новый элемент,
    иначе - добавляем (поле next последнего элемента теперь указывает на новый)
  }
  if pp = nil then p := new_p
  else pp^.next := new_p;
end;

{ 2. Инициализация исходного списка }
procedure Init(var p: pnode);
var
  i: integer;
begin
  {
    без всяких выкрутасов - просто добавляем 15 новых значений.
    Add сама разберется, какое первое, а какое- последующее
  }
  p := nil;
  for i := 1 to 15 do
    Add(p, integer(Random(30) - 10));
end;

{ 3. Печать списка - тут все просто }
Procedure Print(p: pnode);
begin
  while p <> nil do begin
    write(p^.data:4);
    p:=p^.next;
  end;
  writeln;
end;

var
   p, first, second: pnode;
   pp: pnode;
begin
  clrscr;
  randomize;
  Init(p);
  Print(p);

  {
    Ну, а это - собственно - решение задачи:
    раскидываем положительные и отрицательные по разным спискам
  }
  first := nil; second := nil;

  pp := p;
  while pp <> nil do begin
    if pp^.data >= 0 then Add(first, pp^.data)
    else Add(second, pp^.data);

    pp := pp^.next;
  end;
  Print(first);
  Print(second);

  readkey;
end.

Не забывай по окончании работы удалить теперь уже все 3 списка...