Очередь, удалить элементы из очереди через один начиная с первого

@Щелыгин Артём · Регистрация: 28.05.2012

Студворк — интернет-сервис помощи студентам

Помогите где ошибка.
Вот модуль:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
unit delete_1;
interface
uses add_element;
procedure DelElement;
implementation
procedure DelElement;
var p,head,head_2,r:queue;
    i:integer;
    z:real;
begin
     i:=0;
     if head=nil then
             writeln('Пусто.')
     else
         while head <> nil do
               begin
                    i:=i+1;
                    if (i mod 2) = 1 then
                       begin
                            p:=head;
                            head:=p^.link;
                            head_2:=head^.link;
                            r:=head_2;
                            head^.link:=r^.link;
                            dispose(p);
                            dispose(r);
                       end;
               end;
               writeln ('Удалено.');
end;
end.

Добавлено через 15 минут
Головная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt,add_element,delete_1;
type queue=^element;
     element=record;
     link:queue;
     info:real;
end;
var Stk:queue;
    znach:integer;
    c:char;
    b:real;
 
begin
     Stk:=nil;
     repeat
     clrscr;
     Writeln('a) Ввод элемента.');
     Writeln('p) Вывод очереди с конца.');
     Writeln('d) Удалить элементы через один начиная с первого.');
     Writeln('e) Выход.');
     c:=readkey;
     case c of
          'a': begin
                    Add_Element_1(Stk,znach);
               end;
          'p': begin
                    clrscr;
                    Print(Stk);
                    writeln;
                    write('Нажмите любую клавишу.');
                    readkey;
               end;
          'd': begin
                DelElement;
           end;
    end;
  until c='e';
end.

Добавлено через 22 секунды

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit add_element;
interface
type queue=^element;
     element=record;
     link:queue;
     info:real;
end;
procedure Add_Element_1(var stek:queue;znach:integer);
procedure Print(stek:queue);
 
implementation
 
procedure Add_Element_1(var stek:queue;znach:integer);
var a:queue;
begin
     write('Введите: ');
     readln(znach);
     new(a);
     a^.info:=znach;
     a^.link:=stek;
     stek:=a;
end;
 
procedure Print(stek:queue);
begin
     if stek=nil then
     begin
          writeln('Очередь пуста, нажмите любую клавишу.');
          exit;
     end;
     while stek<>nil do
           begin
                write(stek^.info,' ');
                stek:=stek^.link;
           end;
end;
end.

@Щелыгин Артём · 27.06.2012, 11:59 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt,add_element,delete_2;
type queue=^element;
     element=record;
     link:queue;
     info:real;
end;
var c:char;
begin
     head:=nil;
     repeat
     clrscr;
     writeln('a) Ввод элемента.');
     writeln('p) Вывод очереди.');
     writeln('d) Удалить элементы через один начиная с первого.');
     writeln('e) Выход.');
     c:=readkey;
     case c of
          'a': begin
                    clrscr;
                    Add_Element_1(znach);
               end;
          'p': begin
                    clrscr;
                    Print;
                    writeln;
                    write('Нажмите любую клавишу.');
                    readkey;
               end;
          'd': begin
                    destr(head);
                    clrscr;
                    write('Удаление произведено.');
                    readkey;
               end;
    end;
  until c='e';
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit add_element;
interface
type queue=^element;
     element=record;
     link:queue;
     info:real;
end;
var t:queue;
    a:queue;
    head:queue;
    znach:real;
procedure Add_Element_1(znach:real);
procedure Print;
implementation
procedure Add_Element_1(znach:real);
begin
     write('Введите: ');
     read(znach);
     new(a);
     a^.info:=znach;
     a^.link:=nil;
     if head=nil then
        begin
             head:=a;
             t:=head;
        end
     else
         begin
              t^.link:=a;
              t:=a;
         end;
end;
procedure Print;
var p:queue;
begin
     p:=head;
     if head=nil then
     begin
          write('Очередь пуста.');
     end
     else
     while p<>nil do
           begin
                write(p^.info,' ');
                p:=p^.link;
           end;
end;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
unit delete_2;
interface
uses add_element;
procedure destr(head:queue);
implementation
procedure destr(head:queue);
var r,e,g:queue;
begin
     if head<>nil then
        begin
             e:=head;
             head:=head^.link;
             dispose(e);
        end;
     r:=head;
     while r<>nil do     //g - связь, e - удаляемый элемент, r - голова.
           begin
                g:=r;
                e:=r^.link;
                if e<>nil then
                   begin
                        r:=e^.link;
                        g^.link:=g^.link^.link;
                        dispose(e);
                   end
                else
                    begin
                         g^.link:=nil;
                         r:=nil;
                    end;
           end;
end;
 
end.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»