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

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

А в какой части конкретно не понятно что делать ? У нас просто не очень приветствуется решать задачу полностью.

Drow,

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

1 создать массив из случайныйх действительныйх чисел
2 посчитать среднее арифметическое
с 1 уже справился а 2ое теоретически знаю как делать а вот программно не могу реализовать.=(

random используй.


соеднее арифм с i по j

summ:=0;
for c:=i to j do summ:=summ+a[c];
summ:=summ div (j-i);

помойму среднее арифметической от 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, а не лишнее это, КАЖДЫЙ раз пересчитывать сумму стольких элементов? Может, вот так будет проще:

{ ввод массива }
s := 0;
for i := 1 to n do
  s := s + mass[i];

{ и теперь: }
for i := n downto 2 do begin
  s := s - mass[i];
  mass[i] := s / (i - 1)
end;

?

Да, точно, не допер :D

средним арифметичекским всех предшествующих ему элементов,а не всех элементов.

я сделал так :

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.

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

Пост №7 внимательно перечитай ...

а чему должно быть равно n?

))) n - количество элементов в твоем массиве

а как теперь сохранить в файл?

goto FAQ Файлы