Написать процедуру и функцию, которая вычисляет сумму по формуле

@Тюня · Регистрация: 02.10.2014

Author24 — интернет-сервис помощи студентам

Написать процедуру и функцию, которая вычисляет
$https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x,n,m)=\sum_{i=m}^{n}\frac{{x}^{2i}}{(2i)!}$
В основной программе матрицу из 5 троек x, n, m и проверить работу подпрограмм.

@erl27 · 06.10.2014, 23:51

Здесь без матрицы, только пример вычисления функции:

Pascal

function F(x: real; n, m: word): real;
var
  i: word;
  a, R: real;
begin
  a := 1;
  R := 0;
  for i := 1 to 2 * m - 2 do
    a := a * x / i;
  for i := m to n do begin
    a := a * x * x / ((2 * i - 1) * 2 * i);
    R := R + a
  end
end;
 
var
  x: real;
  n, m: word;
  
begin
  writeln('Введите x, n, m:');
  readln(x, n, m);
  writeln('Результат: ', f(x, n, m):0:5);
  readln
end.

Добавлено через 6 часов 29 минут
Забыл изменить: в конце цикла функции нужно написать f := R, иначе выйдет 0.

@Тюня 0 / 0 / 0 Регистрация: 02.10.2014 Сообщений: 22
		1
	Написать процедуру и функцию, которая вычисляет сумму по формуле 05.10.2014, 13:01. Показов 1209. Ответов 1 Метки нет (Все метки) Написать процедуру и функцию, которая вычисляет $https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x,n,m)=\sum_{i=m}^{n}\frac{{x}^{2i}}{(2i)!}$ В основной программе матрицу из 5 троек x, n, m и проверить работу подпрограмм. 0

	06.10.2014, 23:51

Написать процедуру и функцию, которая вычисляет сумму по формуле

Решение