Developing.ru

Код: Выделить всё

function summ(Node:TNode):real;
var r:real;
    p:^Node;
begin
     r:=Node.Data;
     p:=Node.Next;
     while p<>NILL do
     begin
          r:=r+p^.Data;
          p:=p^.Next;
     end;
     summ:=r;
end;