Developing.ru • среднее арифметическое элементов непустого списка L

Страница 1 из 1

среднее арифметическое элементов непустого списка L

Добавлено: 28 мар 2014, 21:12

Chowder

Описать функцию или процедуру, которая находит среднее арифметическое элементов непустого списка L (TypeElem — real);

Re: среднее арифметическое элементов непустого списка L

Добавлено: 31 мар 2014, 13:51

Хыиуду

Функция или процедура суммирует значения всех элементов списка, пока не дойдет до последнего, потом делит полученную сумму на количество элементов.

Re: среднее арифметическое элементов непустого списка L

Добавлено: 08 апр 2014, 07:49

Сионист

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

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;