Работа со списками.

[radist]

Помогите написать программу, которая удаляет из списка первый нулевой элемент если он есть.

[Shuraken]

Список чего? TList, StringList?

[radist]

Программу нужно написать в Паскале.
Цель: В ходе работы необходимо написать подпрограмму создания в ОП связанного однонаправленного списка, содержащего целые числа в поле данных. Так же в программе должна быть подпрограмма распечатки списка по адресу его первого элемента. Используя эту подпрограмму необходимо вывести список в наглядной форме после его создания и модификации.

[zetrix]

Держи, писал в прошлом году.
Реализовано:
1) Добавление элемента
2) Удаление элемента
3) Вывод всего списка на экран

P.S.: программа для дробных чисел в поле data, под целые думаю сам переделаешь

[radist]

zetrix спасибо за программу. Я написал, но с косяком, не могу понять как прописать, чтобы удалялся только первый элемент строки (если ноль), а не все нули в этой строке.

Uses Crt;
const y=0;
Type
yk=^dan;
dan=record
dannie:integer; {данные}
next:yk; {указатель}
end;
Var
head:yk;
curr:yk;
buf:integer;
v:integer;
Begin
Clrscr;
v:=0;
Writeln(' Списки');
Writeln(' для завершения ввода чисел введите <<-32768>>');
repeat
write('Введите число - ');
readln(buf);
if buf<>-32768 then
begin
new(curr);
curr^.dannie:=buf;
curr^.next:=head;
head:=curr;
end;
until buf=-32768;

Writeln; Writeln('Введенный список чисел'); Writeln;
curr:=head;
while curr<>NIL do begin
If y <> curr^.dannie then
write(curr^.dannie,' ');
curr:=curr^.next;
end;

readln;
end.