Линейный двунаправленный список Опции

[daZe1]

Задача такова:
задан массив из 40 случайных элементов, переписать из массива в линейный двунаправленный список чётные элементы массива, добавить в начало списка среднее арифметическое элементов списка и в конец добавить среднее геометрическое элементов списка.

В принципе решить я ее смог...

Program list;
uses crt;

type
TPList= ^TList;

TList= record
Data: real;
Next: TPList;
Prev: TPList;
end;

const
n=40;  {эт так, чтоб проверять легче было ))}

var
Head, Curr, PrevEl: TPList;
i, kol: byte;
SrAr, SrGeom, sum, prod: real;
ElArr: array [1..n] of real;


procedure Add_el; {добавляет очередную запись в список}
begin
  if i=2 then
  begin
	new(Head);
	Head^.Data:= ElArr[i];
	PrevEl:=Head;
  end
  else
  begin
	new(Curr);
	Curr^.Data:=ElArr[i];
	Curr^.Prev:=PrevEl;
	PrevEl^.Next:=Curr;
	PrevEl:=Curr;
  end;
end;

procedure Add_SrAr; {добавляет в начало среднее арифметическое}
begin
  new(Curr);
  Curr^.Data:=SrAr;
  Curr^.Next:=Head;
  Head^.Prev:=Curr;
  Head:=Curr;
end;

procedure Add_SrGeom; {и, соответственно, среднее пропорцианальное}
begin
  new(Curr);
  Curr^.Data:=SrGeom;
  Curr^.Prev:=PrevEl;
  PrevEl^.Next:=Curr;
  PrevEl:=Curr;
end;

procedure Main;
begin
  randomize;
  for i:=1 to n do ElArr[i]:=random;

  sum:=0; prod:=1;
  for i:=1 to n do
  if not odd(i) then
  begin
	Add_el;
	sum:=sum+ElArr[i];
	prod:=prod*ElArr[i];
	inc(kol);
  end;

  SrAr:=sum/kol;
  Add_SrAr;
  SrGeom:=sqrt(prod);
  Add_SrGeom;
end;


begin
clrscr;
Main
end.

проверял...вроде работает... но для меня тема списков, динамических переменных и т.д. новая, поэтому если кто найдет ошибки - напишите, плиз, буду благодарен!!!

[volvo]

переписать из массива в линейный двунаправленный список чётные элементы массива

Ага, и ты описываешь массив вещественных чисел, да? Как определяешь их четность (с учетом того, что Random выдает числа в интервале 0..1)? Или речь об элементах с четными индексами?

проверял...вроде работает.

Как ты проверял? В отладчике? Сделал бы вывод на экран, все стало бы проще...

Кстати, ты память выделил, а освобождать кто будет? При прогоне под FPC имеем:

Heap dump ...
22 memory blocks allocated : 352/352
0 memory blocks freed : 0/0
22 unfreed memory blocks : 352

Сообщение отредактировано: volvo - 5.01.2008 3:07

[daZe1]

Я написал процедуру вывода:

procedure WriteList;
var
List: text;
begin
Assign(List, 'List.list');
rewrite(List);

Curr:= Head;
repeat
write(List, Curr^.Data:0:3, ' ');
Curr:=Curr^.Next;
until Curr=NIL;

close(List);
end;

проверял с ее же использованием....

под четными элементами имеются в виду элементы с четными индексами.

еще нашел свой касяк....среднее геометрическое надо было искать по формуле SrGeom:=exp((1/kol) * ln(prod).

Кстати, ты память выделил, а освобождать кто будет?

А освобождать надо в самом конце???