Вычислить значение функции трёх переменных, напечатать таблицы функций

@QwertyASD13 · Регистрация: 14.11.2019

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

Здравствуйте, помогите найти ошибку. Суть задания в том,что даны три функции, надо вычислить значение функции трёх переменных, вычислить и напечатать таблицы функций. Заранее Спасибо.

Pascal

function A(n:integer;x:real):real;
begin
if n=1 then A:=x
else if n=2 then A:=1/2*(3*x*x-1)
else A:=A(n-1,x)*((2*n+1)/(n-1)*x)-A(n-2,x)*n/(n+1);
end;
function H(n:integer;x:real):real;
begin
if n=1 then H:=x
else if n=2 then H:=x*x-1
else H:=H(n-1,x)*2*x-H(n-2,x)*n*x*x;
end;
function J(n:integer;x:real):real;
begin
if n=1 then J:=1
else if n=2 then J:=x+1
else J:=J(n-1,x)*x*(n/n+1)-J(n-2,x);
end;
const x=0.4;
      y=0.5;
      z=0.3;
var f:real;
begin
f:=H(5,x)*J(4,A(2,y))+A(4,z);
writeln('F=',f:0:5);
end.

Вот сами условия:

Вычислить значение выражения

$https://www.cyberforum.ru/cgi-bin/latex.cgi? F(x,\,y,\,z)=H_5(x)J_4\left( A_2(y)+A_4(z)\right) $

где

$https://www.cyberforum.ru/cgi-bin/latex.cgi? A_{n+1}(x)=\frac{2n+1}{n+1}xA_n(x)-\frac{n}{n+1}A_{n-1}(x),\\\\A_1(x)=x,\ \ A_2(x)=\frac{1}{2}(3x^2-1) $

$https://www.cyberforum.ru/cgi-bin/latex.cgi? J_{n+1}(x)=x\frac{n}{n+1}J_n(x)-J_{n-1}(x),\\\\J_1(x)=x^2,\ \ J_2(x)=x^3-1 $

$https://www.cyberforum.ru/cgi-bin/latex.cgi? H_{n+1}(x)=2xH_n(x)-nx^2H_{n-1}(x),\\\\H_1(x)=x,\ \ H_2(x)=x^2-1 $

При x = 0.4, y = 0.5, z = 0.3 значение F(z, y, z) = 0.32220

@QwertyASD13 · 26.11.2019, 16:49 **[ТС]**

нашел пару ошибок, но ответ все равно не верный

Pascal

function A(n:integer;x:real):real;
begin
if n=1 then A:=x
else if n=2 then A:=1/2*(3*x*x-1)
else A:=A(n-1,x)*((2*n+1)/(n-1)*x)-A(n-2,x)*n/(n*n+1);
end;
function H(n:integer;x:real):real;
begin
if n=1 then H:=x
else if n=2 then H:=x*x-1
else H:=H(n-1,x)*2*x-H(n-2,x)*n*x*x;
end;
function J(n:integer;x:real):real;
begin
if n=1 then J:=x*x
else if n=2 then J:=x*x*x-1
else J:=J(n-1,x)*x*(n/n+1)-J(n-2,x);
end;
const x=0.4;
      y=0.5;
      z=0.3;
var f:real;
begin
f:=H(5,x)*J(4,A(2,y))+A(4,z);
writeln('F=',f:0:5);
end.

@Cyborg Drone · 27.11.2019, 04:00

Вы в рекурсивных функциях сделали замену n+1 на n, только почему-то не везде. Это главная ошибка. Ещё и в функции F неверно скобки расставили. И функцию A неверно записали. Вот так правильно:

Pascal

function A(n: integer; x: real): real;
begin
 if n = 1 then A := x
 else if n = 2 then A := (3 * x * x - 1) / 2
 else A := A(n - 1, x) * (2 * n - 1) / n * x - A(n - 2, x) * (n - 1) / n
end;
 
function J(n:integer;x:real):real;
begin
  if n = 1 then J := x * x
  else if n = 2 then J := x * x * x - 1
  else J := J(n - 1, x) * x * (n - 1) / n - J(n - 2, x)
end;
 
function H(n: integer; x: real): real;
begin
  if n = 1 then H := x
  else if n = 2 then H := x * x - 1
  else H := H(n - 1, x) * 2 * x - H(n - 2, x) * (n - 1) * x * x
end;
 
const
  x = 0.4;
  y = 0.5;
  z = 0.3;
 
var
  f: real;
 
begin
  f := H(5, x) * J(4, A(2, y) + A(4, z));
  writeln('F = ', f:0:5);
  readln
end.

@QwertyASD13 · 27.11.2019, 17:30 **[ТС]**

А еще вопрос, как написать, что бы выполнялось второе условие задания "вычисляет и распечатывает в виде таблиц значения функций, указанных в варианте, для значений аргумента 0, 0.1, …, 0.9, 1 и заданного порядка функции n ."

Функции: A₆, H₄, J₃.

@Cyborg Drone · 27.11.2019, 18:44

Замените, начиная с 22 строки и до конца:

Pascal

const
  x = 0.4;
  y = 0.5;
  z = 0.3;
  hor = '+---+-------------+-------------+-------------+';
 
var
  f, t: real;
  i: integer;
 
begin
  f := H(5, x) * J(4, A(2, y) + A(4, z));
  writeln('F = ', f:0:5);
  writeln;
  writeln(hor);
  writeln('| x |   A(6, x)   |   H(4, x)   |   J(3, x)   |');
  writeln(hor);
  for i := 0 to 10 do
    begin
      t := 0.1 * i;
      writeln('|', t:3:1, '|', A(6, t):13:10, '|', H(4, t):13:10, '|', J(3, t):13:10, '|')
    end;
  writeln(hor);
  readln
end.

Вычислить значение функции трёх переменных, напечатать таблицы функций

Решение

Решение

@QwertyASD13 0 / 0 / 0 Регистрация: 14.11.2019 Сообщений: 77
	27.11.2019, 17:30 [ТС]	4
	А еще вопрос, как написать, что бы выполнялось второе условие задания "вычисляет и распечатывает в виде таблиц значения функций, указанных в варианте, для значений аргумента 0, 0.1, …, 0.9, 1 и заданного порядка функции n ." Функции: A₆, H₄, J₃. 0

	27.11.2019, 18:44