по заданию нужно Написать программу, которая удаляет из линейного списка входной последовательности целых чисел- первый элемент.
начало вроде правильное:
Program Dima;
Type el=^zap;
zap=record
D:real;
L:el
end;
Var F,W:el;
далее построение списка тоже получается:
{postroit spisok}
Procedure GreateFIFO (Var F:el);
Var W:el;
begin
new (F);
read (F^.D);
W:=F;
while not eof do
begin
new (W^.L);
W:=W^.L;
read (W^.D)
end;
W^.L:=nil
end;
вывод того же списка тоже происходит:
{vivod spiska}
Procedure OutList (F:el);
Var W:el;
begin
W:=F;
while W<>nil do
begin
write (W^.D);
W:=W^.L
end
end;
но вот первый элемент не удаляется, подскажите что тут исправить, чтобы удалялся:
{udalenie 1 elementa}
Function Del1 (Var P:el):el;
begin
Del1:=P;
P:=P^.L
end;
begin
GreateFIFO (F);
OutList(F)
end.
Сообщение отредактировано: Dmitriy_Rus -