Паскаль.Массивы

[Дарья Книга]

Помогите пожалуйста,я на зачёте
Дано натуральное число M<=10000 и вещественное 0<x<=100.Построить и вывести на экран массив,длиной M,каждый элемент которого вычисляется по формуле: А[n]=sin*n*x/n!,n=1,M(изменяется от 1 до М). Вычислить его сумму.Использовать только арифметические операции +,-,*,/.

[Дарья Книга]

Ну я вас умоляяяяююююю!!!!!!

[Serge_Bliznykov]

расстрою Вас. задание у Вас безумное.
n! при n>~100 - требует наличия длинной арифметики
100! = 9.33262154439441e+157 (число со 157 десятичными знаками)

[Valio]

И вообще формула выглядит непонятно:

sin*n*x - ?

Синус без аргумента...

[Дарья Книга]

ну кааак таааак (((((
задание на зачёте,10 класс,не профиль,учусь вообще на гуманитарном((((

[Дарья Книга]

Сообщение от Valio

И вообще формула выглядит непонятно:

sin*n*x - ?

Синус без аргумента...

ой
мой косяк: sin(n*x) так надо

[BDA]

uses
  crt;

var
  a: array[1..10000] of real;
  n, s: real;
  i, m: integer;
  x: real;

begin
  readln(m, x);
  s := 0;
  n := 1;
  for i := 1 to m do
  begin
    n := n * i;
    a[i] := sin(i * x) / n;
    write(a[i]:0:3, ' ');
    s := s + a[i];
  end;
  writeln;
  write(s:0:3);
  readln;
end.

Замечания о сверхбыстром росте факториала в силе.