задача на списки

[Антонина_]

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

Скоро контрольная с темой не разобралась. помогите пожалуйста.

[VIK_aka_TOR]

в конец списка:
с учетом того что L (указатель) стоит на последнем элементе на данный момент (двусвязный список)

new(E);
E^.next := nil;
E^.prev := L;
L^.next := E;

остальные данные в зависимости от вашей структуры списка....

удаление второго с учетом того что всего элементов больше двух...

L^.next := E^.next;// L  - первый элемент, Е - второй. изменяем указатель первого со второго на третий
L := E^.Next; // указатель на третем элементе
L^.prev := E^.prev; // изменяем предшествующий третьему со второго на первый
Dispose(E); // вроде так пишеься....

[Антонина_]

program Project23;
type
 pSpisok= ^Spisok;
 Spisok=record
 inf: integer;
 next: pSpisok;
 end;
 const
 a:array [0..4] of integer= (4,6,13,10,2);
 function addst (top : pSpisok; val : integer) : pSpisok;
var p : pSpisok;
begin new (p);
 p^. inf:= val;
 p^. next:= top;
 top:= p;
 result:= top;
end;
function WrSt (top:pSpisok): integer;
var k: integer;
    begin
    k:=0;
      while top<>nil do
	begin
	  write(top^.inf);
	 top:=top^.next;
result:=k;
	end;
    end;
var
 top: pSpisok;
  i: integer;

begin
top:=nil;
 for i:= 0 to 4 do top:= addst (top , a [i]);
WrSt(top);
writeln;
writeln;
readln;
end.

[VIK_aka_TOR]

нажмите правка... и оформите свой код через тэги... которые появятся по нажатии на #... заодно с отступами разберитесь...иначе код не читабелен... да и смайл проскочил... тогда и посмотрим что у вас да как...

[Антонина_]

я не поняла,в АВС это делать или на самом сайте

[VIK_aka_TOR]

код у вас в принципе верный.. вот только добавляете не в конец списка... а в начало... тобишь то что было первым... в итоге становится последним...

[Антонина_]

Не подскажите как это исправить?

[Stilet]

Примерно так:

function addst (top : pSpisok; val : integer) : pSpisok;
var l,p : pSpisok;
begin 
  new (p);
  p^. inf:= val;
 l:=top; 
 if l<>nil then  begin
  while (l^.next<>nil) do l:=l^.next;
  l^. next:= p;
  l:= p;
  result:= top;
 end else begin
  result:=p;
 end;
end;

[Антонина_]

begin
top:=nil;
for i:= 4 to 0 downto top:= addst (top , a [i]);
WrSt(top);
writeln;
writeln;
readln;
end.