Указатели в Паскале: Программу, которая удаляет из линейного списка целых чисел первый отрицательный элемент

[Victor1995]

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

[ZX Spectrum-128]

Нахождение написано, а вот удаление...
"Ну не шмогла я"

uses crt;
Type ukazat= ^S;
   S= record
      Inf: integer;
      Next: ukazat;
   End;
var
  dx,x,u:ukazat;
  otr,n,i :integer;
begin
  write('Количество элементов');
  readln(n);
  for i:=1 to n do
    begin
      New(x);
      Read(x^.Inf);
      x^. Next:= u;
      u:= x;
   end;

  x:= u;
  while x<> nil do
    begin
      if x^.inf<0 then
        begin
          otr:=x^.inf;
        end;
      x:= x^.next;
    end;

  writeln;
  writeln('Первый отрицательный элемент = ',otr);

{  x:= u;
  while (x<> nil) and (x^.inf<> otr) do
    begin
      dx:= x;
      x:= x^.next;
    end;
  dx:= x^.next;
  dispose(x);}

//  u:=x;
  Writeln('Вывод списка');
  While u<> nil do
    Begin
      Write (u^.inf,' ');
      u:= u^.next;
   end;
  readln;
end.

[Victor1995]

И на этом большое спасибо!

[Victor1995]

Вот программа вывода первого отрицательного элемента, а что нужно дописать чтобы он удалялся? Подскажите пожалуйста.

program laba8;
Type T=^TABL;
     TABL=record;
      D: integer;
      L:T;
   End;
var
  k,F,W:T;
  M,N,i :integer;
begin
  write('Количество элементов =');
  readln(N);
  for i:=1 to N do
    begin
      New(F);
      Read(F^.D);
      F^. L:= W;
      W:= F;
   end;
  F:= W;
  while F<> nil do
    begin
      if F^.D<0 then
                begin
                M:=F^.D;
                end;
      F:= F^.L;
    end;
   writeln;
  writeln('Первый отрицательный элемент = ',M);
  { F:= W;
   while (F<> nil) and (F^.D<> M) do
    begin
      k:= F;
      F:= F^.L;
    end;
  k:= F^.L;
  dispose(F);}

 // W:=F;
  Writeln('Вывод списка');
  While W<> nil do
    Begin
      Write (W^.D,' ');
      W:= W^.L;
   end;
end.

[Stilet]

Примерно так:

  while F^.L<> nil do
    begin
      if F^.L^.D<0 then
                begin
                 M:=F^.L^.L; F^.L:=M;
                 dispose(F^.L); break;
                end;
      F:= F^.L;
    end;

И еще: Кросспосты у нас не приветствуются. Банить за это будем.

[Serge_Bliznykov]

Victor1995, то, что Вы переименовали идентификаторы в программе, написанной Вам ZX Spectrum-128, ещё не означает, что эта программа стала ваша.
Вы даже комментарии оставили.

Меня другое интересует. Список выводится в обратном порядке (относительно ввода элементов списка), Вас это устраивает? Или это вообще так и должно быть?!

Сообщение от Stilet

И еще: Кросспосты у нас не приветствуются. Банить за это будем.

Коллега, я слил темы в одну, Вы, надеюсь, не возражаете?!

[ZX Spectrum-128]

Примерно так:

Не допетрил
Спасибо!

[Stilet]

не возражаете?!

Нет. Не возражаю.

[Victor1995]

Сообщение от Stilet

Примерно так:

  while F^.L<> nil do
    begin
      if F^.L^.D<0 then
                begin
                 M:=F^.L^.L; F^.L:=M;
                 dispose(F^.L); break;
                end;
      F:= F^.L;
    end;

И еще: Кросспосты у нас не приветствуются. Банить за это будем.

Спасибо. Извините за кросспосты, не знал.