Для каждой из двух матриц А(3,3) и B(4,4) сформировать вектор из элементов главной и побочной диагоналей - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Задачи, не подвергающаяся моему восприятию реальности: 1) Описать функцию f(x)=1+x+(x*x)/2!+ (x*x*x)/3!+ (x*x*x)\4!+...+x^n/n! (параметры x, eps — вещественные, eps > 0), находящую приближенное значение функции e^x. В сумме учитывать все слагаемые, большие eps. С помощью этой функции найти приближенное значение экспоненты для данного x при шести данных значениях eps. (если не ошибаюсь EPS - эпсилан, который задается с клавиатуры и сравнивать с ним нужно кажддое слагаемое) 2) Для каждой из двух матриц А(3,3) и B(4,4) сформировать вектор из элементов главной и побочной диагоналей. Матрицы вводятся. Тут нужно использовать процедуру... вот только как?

Решение задачи: «Для каждой из двух матриц А(3,3) и B(4,4) сформировать вектор из элементов главной и побочной диагоналей»

textual
Листинг программы
function e(y, ep: real): real;
var a, s: real;
    n: integer;
begin
  a := 1;
  s := 0;
  n := 0;
  while abs(a) >= ep do
    begin
      s := s + a;
      inc(n);
      a := a * y / n
    end;
  e := s
end;
 
var x, eps: real;
    i: integer;
begin
  write('x = ');
  readln(x);
  for i := 1 to 6 do
    begin
      write('eps[', i, '] = ');
      readln(eps);
      writeln('exp(x) = ', e(x, eps))
    end;
  readln
end.

Объяснение кода листинга программы

В этом коде функция e вычисляет экспоненту x с точностью eps. Код начинается с определения функции e с двумя параметрами, y и ep, и с тремя локальными переменными, a, s и n, которые инициализируются начальными значениями. Затем следует цикл while, который выполняется до тех пор, пока абсолютное значение a не станет меньше или равным ep. Внутри цикла переменная s суммирует значения a, переменная n увеличивается на единицу, а значение a обновляется как произведение текущего значения a на y, деленное на n. После окончания цикла, значение переменной s присваивается переменной e. Затем в основной части программы пользователю предлагается ввести значение x, а затем значения eps для шести итераций. Для каждой итерации вычисляется значение exp(x) с помощью функции e и выводится на экран. В итоге, код выполняет вычисления для шести различных значений eps и выводит результаты на экран.

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы