Вопрос по информатике:
Использовать список при следующем его описании:
Type AdrCel=^Element;
Element=record
Info:integer;
Next:AdrCel;
End;
Составить процедуру, которая удаляет из списка второй элемент, если такой есть.
ХЭЛП МИ
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.07.2018 21:15
- Информатика
- remove_red_eye 1777
- thumb_up 97
Ответы и объяснения 1
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 pnil 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^.nextnil 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_elnil do
begin
write(new_el^.info:4);
new_el:=new_el^.next;
end;
readln;
end.
- 22.07.2018 10:01
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.