Как написать процедуру нахождения sin a, где а — матрица?

Question

[kan3k1k3n]

вот задание:
я написал небольшую программу, которая находит sin a = a - (a^3/3!), только считает почему-то неправильно
код:

const n = 3;
const n1  = 5;
var a, sin_a, f, stepen: real;
factorial,factorial1: longint;
i,i1: byte;
begin
  writeln('введите а: ');
  readln(a);
  factorial:= 1;
  factorial1:= 1;
  for i := 2 to n do
    factorial:= factorial * i;
  for i1:= 2 to n1 do
    factorial1:= factorial1 * i1;
  sin_a:=a-(power(a,n)/factorial);
  writeln(sin_a);
end.

Comments

[Hemul GM]

Где здесь матрица?

[Василий Банников]

sin a = a - (a^3/3!)

Конечно неправильно. Ведь по заданию надо ряд просуммировать.

Вычисление факториала лучше вынеси в функцию, чтобы не захламлять.

[kan3k1k3n]

Василий Банников, а как проссумировать ряд?

[Василий Банников]

kan3k1k3n, циклом

[SagePtr]

kan3k1k3n, притом факториал каждого последующего члена не обязательно считать с самого начала, можно оптимизировать и использовать старый, умножив его только на два множителя. Например, 5! это 3! * 4 * 5