работа с массивом., посчитать ср.арифм. для предыдущих эл. Опции

[Drow]

Уважаемые мастера,прощу помощи с написанием программы из курсовой...вот:
Заменить каждый элемент массива средним арифметичекским всех предшествующих ему элементов.Число элементов N>=100.Итоговый массив записываеться в файл с контролем на экране монитора.Исходный массив сформировать из случайныйх действительныйх чисел и хранить на МД.
Буду очень благодарен если хотя бы укажете примерный алгоритм решения.

название темы!

1. Заголовок темы должен быть  информативным В противном случае тема удаляется

Сообщение отредактировано: Oleg_Z - 11.09.2005 16:55

[klem4]

помойму среднее арифметической от 1 до i-1 будет так :

type

  Tarr = array [1..100] of single;

var
  mass : Tarr;

  n,j : integer;

function Sr(var x : Tarr; size, p : integer) : single;
var
   i:integer;
   s:single;
begin

   s := 0;

   for i := 1 to p do
    s := s+x[i];

   s :=  s/(p);

   Sr := s;

end;

// в основном блоке после ввода массива : 

 for j := n downto 2 do
    mass[j] := Sr(mass, n, j-1);

из массив 1,2,3,4,5 => 1, 1, 1.5, 2.0, 2.5 т.е

mass[5] = (4+3+2+1)/4
mass[4] = (3+2+1)/3
и т.д.

поправьте если я не прав.

Сообщение отредактировано: klem4 - 11.09.2005 17:26

[Guest]

помойму среднее арифметической от 1 до i-1 будет так :

я сделал так :

program z1n1;
uses crt;
type
tarr=array[1..100] of single;
var
mass:Tarr;
n,j,k:integer;
function Sr(var x:Tarr;size,p:integer):single;
var
i:integer;
s:single;
begin
 s:=0;
 for i:=1 to p do
 s:= s+x[i];
 s:=s/(p);
 Sr:=s;
end;
begin
clrscr;
writeln('ISHODNIY MASSIV :');
for k:=1 to 100 do begin
mass[k]:=random(100)+1;
write(' * ',mass[k]:3:0);
end;
writeln;
writeln('POLUCHENIY MASSIV :');
for j:=n downto 2 do
mass[j] :=Sr(mass,n,j-1);
for k:=1 to 100 do begin
write('  ',mass[k]:3:1);
end;
readln;
end.

но у меня получаеться что исходный и полученный массивы одинаковы.
Тегами пользуйся...

Сообщение отредактировано: volvo - 11.09.2005 19:17