Односвязные списки

[Anna T]

Не могли бы Вы отправить примеры готовых программ по односвязным спискам, пожалуйста?

[Serge_Bliznykov]

1) на форуме односвязных списков было - завались просто...
Поиском пользовались?

2) а зачем Вам ЧУЖИЕ примеры готовых программ?


3) ну, например, навскидку:

(*
Даны следующие типы данных:

type AdresaCelula=^Celula;
Celula=record
Info:integer;
Urm:AdresaCelula; end;

Нужно написать программу с использованием подпрограмм, которая создаёт
односвязный список и вычисляет сумму положительных значений из полей Info
ячеек созданного списка.

*)

type AdresaCelula=^Celula;
 Celula = record
 Info:integer;
 Urm:AdresaCelula;
 end;

var haid,tail,p:AdresaCelula;
    c:char;

Procedure InstallSpisok (var golova,hvost:AdresaCelula);
begin
 while true do
  begin
    if golova=nil then
     begin
      new(golova);
      hvost:=golova;
      golova^.Urm:=nil;
     end
    else
     begin
      new(hvost^.Urm);
      hvost:=hvost^.Urm;
      hvost^.Urm:=nil;
     end;
      write('Введите целое число: ');
      readln(hvost^.info);
      write('Продолжить ввод чисел? Y/N');
       readln(c);
        if (c='n') or (c='N') then
          break;
    end; {while}
end;

Procedure Summa (golova,hvost,p:AdresaCelula);
var summa:integer;
begin
summa:=0;
 p:=golova;

 if p=hvost then   {Если в списке один элемент}
  if p^.info>0 then
   begin
    summa:=p^.info;
    writeln('Сумма положительных элементов: ',summa);
   end;

  while p<>hvost do
   begin
     if (p^.info>0) then
      summa:=summa+p^.info;
     p:=p^.Urm;

     if p=hvost then
       begin
        if (p^.info>0) then
         summa:=summa+p^.info;
         write('Сумма положительных элементов = ',summa);
        end;
    end;{while}


end;


begin

InstallSpisok(haid,tail);
Summa(haid,tail,p);
readln;
end.

[Anna T]

Cпасибо)))