Для каждой из двух матриц А(3,3) и B(4,4) сформировать вектор из элементов главной и побочной диагоналей - Free Pascal
Формулировка задачи:
Решение задачи: «Для каждой из двух матриц А(3,3) и B(4,4) сформировать вектор из элементов главной и побочной диагоналей»
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 и выводит результаты на экран.