однонаправленный линейный список, удалить из списка строки с n-ой по k-ую. Опции

[Тёмный Эльф]

uses crt;
Type
next=^elem;
Elem=RECORD
     EL:string;
     Sled:next;
     END;
VAR
Uk1:next;
Qp,N,K,Int:Integer;

Procedure VVOD(var p:next); {формирование однонаправленного линейного списка, подсчет количества строк в исходном файле, чтение списка в файл RES.OUT}
var
m:next;
F1:text;
BEGIN
  Assign(F1,'DAN.inp');
  Reset(f1);
  Assign(output,'res.out');
  rewrite(output);
 Writeln('Дано: ');
 New(m);
 New(m^.sled);
 p:=m;
 Readln(f1, m^.el);
 m^.sled:=nil;
 Int:=1;
 while not EOF(f1) do
 begin
 New(m^.sled);
 m:=m^.sled;
 Int:=Int+1;
 Readln(f1, m^.el);
 m^.sled:=nil;
 End;
 Close(f1);
 m:=p;
 While m<>NIL do
 Begin
 Writeln(m^.el);
 m:=m^.sled;
 End;
end;

procedure Cleaning(var uk:next); {процедура удаления из списка с N-ой по K-ую строки}
var pp,q,r:next;
D:integer;
Begin
writeln('ВСЕГО СТРОК в исходном файле: ',Int);
 If (N>Int) or (K>Int) then 
Begin
 Writeln ('Запрашиваемых Вами строк нет, исходные данные не изменились');
 exit; {выход из процедуры в случае ошибки пользователя}
end;
D:=1;
While (D>=N) and (D<=K) do BEGIN
If D=K then Begin    {удаляем конечную строку}
	     pp:=uk;
	     q:=uk;
	     while pp^.sled<>NIL do
	     Begin
	     q:=pp;
	     pp:=pp^.sled;
	     End;
	     q^.Sled:=NiL;
	     Dispose(pp);
	     end;

If D=N then Begin {удаляем начальную строку}

	     pp:=uk;
	     uk:=uk^.sled;
	     Dispose(pp);
	    end;
      D:=D+1;
      pp:=pp^.sled; {указатель смещается на одну позицию, счетчик увеличивается}

   While (D>=N) and (D<=K)  do 
     Begin
      q:=pp;
      pp:=q^.sled;
      dispose(q); {компилятор выдаёт ERROR 204}
      pp:=pp^.sled;
      D:=D+1;
     end;

end;
END;

procedure vivod(var dr:next); {вывод отредактированного списка в файл RES.OUT}
var dt:next;
Begin
writeln('=======REZULTAT=======');
dt:=dr;
 While dt<>NIL do
 Begin
 Writeln(dt^.el);
 dt:=dt^.sled;
 End;
 close(output);
end;

BEGIN
clrscr;
Writeln('Введите номер начальной и конечной строки');
readln(N,K);
VVOD(Uk1);
Cleaning(Uk1);
vivod(Uk1);
END.
 

Сообщение отредактировано: Тёмный Эльф - 17.12.2006 15:25

[Bokul]

Заключи код в теги, тогда посмотрим...

[Bokul]

И что ты считаешь, что при появлении горизонтальной прокрутки читабельность кода увеличивается?

[Тёмный Эльф]

Заключи код в теги, тогда посмотрим...

ща исправим!

[Bokul]

Во-первых следующий раз не отформатированный код я читать не буду. Если хочешь помощью, то уважай людей, от которых ты хочешь ее получить.

Во-вторых приведи полный исходник.

Вот, что я имею ввиду под словом "форматирования":

uses crt;
Type
    next=^elem;
    Elem=RECORD
      EL:string;
      Sled:next;
    END;

VAR Uk1:next;
procedure Cleaning(var uk:next);
var pp,q:next;
    D:integer;
Begin
  D:=1;
  While (D>=N) and (D<=K) do
        BEGIN
          If D=K then
             Begin
               pp:=uk;
               q:=uk;
               while pp^.sled<>NIL do
                     Begin
                       q:=pp;
                       pp:=pp^.sled;
                     End;
               q^.Sled:=NiL;
               Dispose(pp);
             end;
           If D=N then
              Begin
                pp:=uk;
                uk:=uk^.sled;
                Dispose(pp);
              end;
           D:=D+1;
           pp:=pp^.sled;
           While (D>=N) and (D<=K)  do
                 Begin
                   q:=pp;
                   pp:=q^.sled;
                   dispose(q);
                   pp:=pp^.sled;
                   D:=D+1;
                 end;
       end; 
END

Сообщение отредактировано: Bokul - 17.12.2006 7:58

[Michael_Rybak]

ща исправим!

Честное слово, читать нереально с такой табуляцией

Если хочешь помощью, то уважай людей, от которых ты хочешь ее получить.

2 Тёмный Эльф

Если надо удалить с N по K, то просто идем до N-1-го, и потом удаляем K-N+1 штук. Для удобства (чтобы не учитывать отдельно случай N=1) вставляем в начало списка дополнительный элемент. Типа такого:

...
var add, cur, t: next;
begin
  New(add);
  add^.sled := uk;
  cur := add;
  for i := 1 to n - 1 do
    cur := cur^.sled;
  for i := 1 to k - n + 1 do begin
    t := cur^.sled^.sled;
    Dispose(cur^.sled);
    cur^.sled := t;    
  end;
  uk := add^.sled;
  Dispose(add);
end;

[Тёмный Эльф]

Если надо удалить с N по K, то просто идем до N-1-го, и потом удаляем K-N+1 штук. 

Michael_Rybak !Спасибо! Так на самом деле удобнее. А я то мучался..

Сообщение отредактировано: Тёмный Эльф - 17.12.2006 16:09