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

[Black_Ak24]

всех с НОВЫМ ГОДОМ!!
ситуация такова
мне задали написать программу на паскале (нужно написать в ближайшие дни)
если не напишу - мне крышка((((
вот задание : задан массив из 40 случайных элементов, переписать из массива в линейный двунаправленный список чётные элементы массива,
добавить в начало списка среднее арифметическое элементов списка и в конец добавить среднее геометрическое элементов списка, програма должна быть оформлена в виде процедур и функций , также она должна иметь меню для выбора режимов её работы.
ОЧЕНЬ ПРОШУ ПОМОЧЬ!!! сам я её не напишу
ПОЖАЛУЙСТА если кто знает как делать то напишите мне пожалуйста
ЗАРАНЕЕ благодарен!!!
Надеюсь что всё-таки найдётся мудрое решение

[Jeni]

С этой просьбой лучше обратиться в раздел Фриланс. Но это уже будет не бесплатно.

[Black_Ak24]

да мне хотя бы знать как переписать из массива в линейный двунаправленный список чётные элементы массива, а также как добавлять в начало и конец списка (если уже известно среднее арифм. и среднее геометр.)
я бы и на фриланс обратился, только вот я с webmoney не дружу((
поэтому помогите пожалуйста
пробую пока что сам написать но ничего не получается(((((((((((

[student_63]

напиши математическим языком что такое линейный двунаправленный список?тебя тоже с НГ! очень хороший праздник

[Black_Ak24]

вот как в разделе type оно должно было бы выглядеть
type
a=array[1..n] of integer; (сам сассив)
p_TList=^TList; (линейный список(двунаправленный, потому что есть next и prev)
TList=record
data:real;
next:^p_TList;
prev:^p_TList;
end;

Но я сам точно не знаю правильно ли это, по крайней мере должно быть примерно так

[Black_Ak24]

всё
написал я сам программу
пришло просветление))))

[Alter]

Интересно будет её увидеть . Для общего развития, это не только мне интересно будет.

[Black_Ak24]

да вот
пожалуйста
процедура самого построения списка
всё остальное - примитив
думаю писать не надо
включил в него также средн. ар.(начало) и средн. геом. (конец)

Procedure List(mas:a; SerA,SerG:integer);
var sList,temp_TList;
begin
clrscr;
new(sList);
sList^.data:=SerA;
sList^.next:=nil;
sList^.prev:=nil;
for i:=1 to n do begin
if (mas[i] mod 2 = 0) then begin
new(temp);
temp^.data:=mas[i];
temp^.next:=nil;
temp^.prev:=sList;
sList^.next:=temp;
sList:=sList^.next; end;
end;
new(temp);
temp^.data:=SerA;
temp^.next:=nil;
temp^.prev:=sList;
sList^.next:=temp;
sList:=sList^.next;
sList^.next:=nil;

while (sList^.prev<>nil) do begin
writeln('Element -> ',sList^.data);
sList:=sList^.prev;
end;
new(temp);
temp^.data:=SerG;
temp^.next:=nil;
temp^.prev:=sList;
writeln('Element -> ',temp^.data);
writeln;
writeln;
while (sList^.next<>nil) do begin
writeln('Element -> ',sList^.data);
sList:=sList^.next; end;
new(temp);
temp^.data:=SerG;
temp^.next:=nil;
temp^.prev:=sList;
writeln('Element -> ',temp^.data);
end;

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

мне кажется что именно так всё должно быть
и всё работает
проверял

[FliPP]

Я кстати тож кой че написал... правда без выбора режима работы (тупо не знаю что имеется ввиду )

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.

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

[Black_Ak24]

незнаю как насчёт самой программы (имею ввиду работает она или нет, и компилируется ли вообще),
но что будет выводиться на экран ??
я здесь не видел ни одного write или writeln

П.С.
среднее геометрическое насколько я знаю ищется не так
если через експоненту то (n - число элементов)
S:=exp((1/n) * ln(a1*a2*a3*...*an)
если нормально то это x^y=e^y*ln(x)
по-моему так должно быть