Паскаль-рекурсия - Помощь студентам

tanyhaftv · 24.03.2010, 09:08

Для х=0.8 вычислить значения первых 6 полиномов Эрмита: Н0(х)=1, Н1(х)=2х,Нn(х)=2[xНn-1(x)-(n-1)Нn-2(x)]/n

начинающий кодер · 24.03.2010, 10:33

Код:

function E(var n:integer;x:real):real;
begin
if n =0 then e:=1 else
if n=1 then e:=2*x else
e:=2*(e(n-1,x)-(n-1)*e(n-2,x))/n;
end;

24.03.2010, 09:08	#1
tanyhaftv Пользователь Регистрация: 03.03.2010 Сообщений: 21	Паскаль-рекурсия Для х=0.8 вычислить значения первых 6 полиномов Эрмита: Н0(х)=1, Н1(х)=2х,Нn(х)=2[xНn-1(x)-(n-1)Нn-2(x)]/n

24.03.2010, 10:33	#2
начинающий кодер только учусь! Форумчанин Регистрация: 08.02.2009 Сообщений: 124	Код: `function E(var n:integer;x:real):real; begin if n =0 then e:=1 else if n=1 then e:=2x else e:=2(e(n-1,x)-(n-1)*e(n-2,x))/n; end;` «Я знаю, что ничего не знаю, но многие не знают и этого».