Найти сумму 10 членов ряда, в котором An=(n!)/n^2

[Наталья111]

программа в Delphi:
Найти сумму 10 членов ряда, в котором An=(n!)/n^2.
Пожалуйста помогите решить после завтра у меня сессия. А я не могу понять как ее решить! ПОЖАЛУЙСТА!

[KORN]

в чем возникает проблема7 создай массив от 0 до 9 заполни его числами и далее берешь N'ный элемент из массива и далее по формуле... для возведения во 2ю степерь пиши так: a[n]:=a[n]*a[n];

[Наталья111]

Проблема возникает когда я начинаю писать код. Незнаю с чего начать. :-(
Помогите ПОЖАЛУЙСТА :-)

[Наталья111]

ПОМОГИТЕ ПОЖАЛУЙСТА!
Это последняя задача которую мне осталось решить.
А ТО МЕНЯ ЗАВТРА НЕ ДОПУСТЯТ К СЕССИИ. :-(((

[KORN]

ну покажи что написала сама7 и будем отталкиваться от этого.. а то это побольше похоже не на помогите а сделайте за меня

[KORN]

у тебя же во всех 3х заданиях одно по одному:
1) заполнение массива числами
2) возведение в степень
3) сложение элементов массива
4) работа с формулами

все элементарно и просто... нужно всего лишь немного подумать... я конечно могу сделать но что это тебе даст7 тебя все равно завалят на сессии т.к. ты не сможешь объяснить как работает программа...

P. S. я ж еще в своем первом посту объяснил как че делать

[Наталья111]

Я ее разберу хорошо. Напиши пожалуйста?

[KORN]

var
a: array [0..9] of real;
i: integer;
r: real;
begin
for i:=0 to 9 do
begin
randomize;
a[i]:=random(100);
end;

for i:=0 to 9 do
A[i]:=(n!)/(i*i); // несовсем понял формулу... т.к. в Delphi ( ! ) не используется, так что подставь сама как и че тебе надо

for i:=0 to 9 do
r:=r+a[i];
end;

выводишь результат и теоретически все... осталось дело за малым... тут ты уже сама должна справиться...

[s.Creator]

Лови может поможет

[Наталья111]

ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ!