В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
sobennikovaox
sobennikovaox
08.06.2022 07:00 •  Информатика

Использовать список при следующем его описании: type adrcel=^element; element=record info: integer; next: adrcel; end; составить процедуру, которая удаляет из списка второй элемент, если такой есть. хэлп ми

Показать ответ
Ответ:
Alina2007271
Alina2007271
23.05.2020 22:27

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 then
start:=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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота