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

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

 

Type AdrCel=^Element;
Element=record
Info: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 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.

Самые новые вопросы
Julia2101
Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

na2005stud
Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

Оксаночка1233
География - 5 лет назад

Почему япония - лидер по выплавке стали?

Анимешка2
Математика - 5 лет назад

Чему равно: 1*(умножить)х?     0*х?

laraizotova
Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла. 

Информация

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