Списки в Паскаль

[Vali_T]

Здравствуйте, помогите пожалуйста разобраться в задаче:

Задача: Составить программу которая удаляет из списка L все отрицательные элементы.

Даже не знаю с чего начать(

[Sm1Le]

Начни с поиска по форуму ... или посмотри в Низ ЭТОЙ странички !!!!

[Vali_T]

ну спасибо большое, помог разобрать((

[alex_fcsm]

Понимаете эти задачи не уникальны поэтому посмотрите примеры
например

[capta1n]

как я соскучился по динамике

[capta1n]

program capta1n;
type

  link = ^linelink; {Формирование списка}
  linelink = record
              number : integer;
              next : link
             end;

var
  start,last : link; {Начальный и конечный указатели соответственно}
  c : integer;
  f1 : text;

  procedure list ( var top, last : link; n1 : integer ); {Процедура формирования списка на основе входных данных в виде целого числа}
  begin

    if top=nil then {Если записываем первый элемент - записываем его в следующий за головой элемент, а в голове делаем буфер из нуля (его использовать не надо)}
    begin
      new(top);
      top^.number:=0;
      last:=start;
      new(last^.next);
      last:=last^.next;
      last^.number:=n1;
      last^.next:=nil
    end
    else {Если элемент не первый, то добавляем в конец}
    begin
      new(last^.next);
      last:=last^.next;
      last^.number:=n1;
      last^.next:=nil
    end

  end;

  procedure delete1 ( var top : link ); {Процедура удаления из списка отрицательных элементов}
  var
   last,uk : link;
  begin

    if top<>nil then {Если список не пуст}
    begin
      last:=top; {Указатель делаем на голову, в которой буфер, чтобы сравнивать последующие элементы}
      while last^.next<>nil do {Пока не дойдем до последнего элемента, проверяем на отрицательность}
      begin
        if last^.next^.number < 0 then
        begin
          uk:=last^.next; {Запоминаем адрес удаляемого элемента}
          last^.next:=last^.next^.next; {Связываем предыдущий и последующий элементы этого удаляемого элемента}
          dispose (uk) {Очищаем память под удаляемый элемент}
        end
        else last:=last^.next {Если удаление не было произведено - мотаем список}
      end
    end
  end;

  procedure conclusion ( var top : link ); {Процедура вывода списка}
  var
   last : link;
  begin
    if top<>nil then {Если список не пуст}
    begin
      last:=top^.next; {Начинаем вывод с самого списка - буфер в голове нам не нужен}
      while last<>nil do {Пока не достигнем конца списка - выводим содержимое и мотаем}
      begin
        writeln (last^.number);
        last:=last^.next
      end
    end
  end;
  
begin
  start:=nil; {Указатели ни на что не указывают пока}
  last:=nil;
  readln (c);
  while c<>0 do {Ввод продолжать до первого нуля}
  begin
    list (start,last,c); {формирование}
    readln (c)
  end;
  writeln ('------------');

  delete1 (start); {удаление}
  conclusion (start); {вывод}

  readln
end.

{В данной программе были использованы очереди со структурой FIFO - First In - First Out}

[Vali_T]

capta1n спасибо за подробное разъяснение!!