794955
Опубликовано 7 лет назад по предмету Информатика от 794955


Использовать список при следующем его описании:

 

Type AdrCel=^Element;Element=recordInfo:integer;Next:AdrCel;End;

 

Составить процедуру, которая удаляет из списка второй элемент, если такой есть.

ХЭЛП МИ

  1. Ответ
    Ответ дан sinbad7

    type adrcel=^Element; Element=record info:integer; next:adrcel; end;var start,last,new_el:adrcel; i:integer;

    procedure del2(var start:adrcel);

    var

    p:adrcel;

    begin

    p:=start^.next;

    if p<>nil then start^.next:=p^.next

    end;

    begin start:=nil; last:=nil; new_el:=nil; repeat new(new_el); write('info='); readln(new_el^.info);

    new_el^.next:=nil; if start=nil thenstart:=new_el;else begin

    last:=start;

    while last^.next<>nil do last:=last^.next;last^.next:=new_el; end; write('Продолжить? (1-Да/0-Нет):'); readln(i); until i=0; writeln('Удалим 2-й элемент');

    del2(start);

    new_el:=start; while new_el<>nil do begin write(new_el^.info:4); new_el:=new_el^.next; end; readln;end.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников