Среднее арифметичекое в списке

[Vitalina69]

Нужно найти среднее арифметическое значение чисел в списке L
Написала код, но он не работает, не пойму где ошибка, подскажите, если не трудно....

unit Unit1;
..................

type
   pEl=^El;
   El=record
   d:Integer;
   next:pEl;
   end;
  TForm1 = class(TForm)
  ......................

var
pBeg,pHelp,pEnd: pEl;
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure CreateSp;// процедура создания списка
begin
New(pBeg);
New(pEnd);
pBeg.d:=-1;
pEnd.d:=-1;
pEnd.next:=nil;
pBeg.next:=pEnd;
end;

Procedure Add(x:Integer);// процедура добавления элемента в список
begin
New(pHelp);
pHelp.d:=-1;
pHelp.next:=nil;
pEnd.d:=x;
pEnd.next:=pHelp;
pEnd:=pHelp;
end;

Procedure ShowSp(Memo1:TMemo);// Процедура вывода списка на экран
begin
Memo1.Clear;
pHelp:=pBeg.next;
while pHelp.next<>nil do
begin
Memo1.Lines.Add(IntToStr(pHelp.d)) ;
pHelp:=pHelp.next;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateSp;
end;

procedure TForm1.Button5Click(Sender: TObject);
var a:integer;
begin
a:=StrToInt(Edit1.Text);
Add(a);
ShowSp(Memo1);
Edit1.Text:='';
end;

procedure TForm1.Button9Click(Sender: TObject);//считаю ср.арифм
var k,s:integer;
d:real;
begin
k:=0;
s:=0;
pHelp:=pBeg;
begin
while pHelp.next<>nil do
Begin
s:=s+pHelp.d;
pHelp:=pHelp.next;
end;
k:=k+1;
end;
d:=s/k;
Edit5.Text:=FloatToStr(d);
end;

end.

вот отдельно процедурка для среднего арифм на всякий случай

procedure TForm1.Button9Click(Sender: TObject);
d:real;
begin
k:=0;
s:=0;
pHelp:=pBeg;
begin
while pHelp.next<>nil do
Begin
s:=s+pHelp.d;
pHelp:=pHelp.next;
end;
k:=k+1;
end;
d:=s/k;
Edit5.Text:=FloatToStr(d);
end;

[ByAlex]

[QUOTE=Vitalina69;769602]Нужно найти среднее арифметическое значение чисел в списке L
Написала код, но он не работает, не пойму где ошибка, подскажите, если не трудно....[CODE]unit Unit1;
..................

Debag'ом то не пользуешься что ли?

[Vitalina69]

ByAlex, если бы я знала как, научишь?)))))

[Stilet]

Нужно найти среднее арифметическое значение чисел в списке L

Procedure ShowSp(Memo1:TMemo);// Процедура вывода списка на экран
var sa:double;i:integer;
begin
Memo1.Clear;i:=0;sa:=0;
pHelp:=pBeg.next;
while pHelp.next<>nil do begin sa:=sa+pHelp.d;inc(i);
 Memo1.Lines.Add(IntToStr(pHelp.d)) ;
 pHelp:=pHelp.next;
end;
if i<>0 then ShowMessage(FloatToStr(sa/i));
end;

Идея понятна?

[Vitalina69]

Да, спасибо огромное! А вывод среднего арифметического обязательно нужно делать одновременно с процедурой вывода списка на экран? или это можно как то сделать в отдельной кнопке?

[Vitalina69]

Все, сделала в отдельной кнопке, и ошибку нашла совою, спасибо еще раз за идею)))))