Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле

@ProgrammerOnDel · Регистрация: 04.02.2011

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

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:
Xi=(Xi-1/2)+(3/4)*Xi-2, где x1=0; x2=5/8; i=3,4…

P.S. Xi -- Икс итое

@Puporev · 11.03.2011, 16:04

Pascal

uses crt;
function Rec(n:integer):real;
begin
if n<1 then exit;
if n=1 then Rec:=0
else if n=2 then Rec:=5/8
else Rec:=Rec(n-1)/2+Rec(n-2)*0.75;
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write(Rec(n):0:2);
readln
end.

@ProgrammerOnDel 16 / 16 / 0 Регистрация: 04.02.2011 Сообщений: 62
		1
	Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле 11.03.2011, 15:38. Показов 1248. Ответов 1 Метки нет (Все метки) Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: Xi=(Xi-1/2)+(3/4)*Xi-2, где x1=0; x2=5/8; i=3,4… P.S. Xi -- Икс итое 1

Опции темы

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле

Решение