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

@belanovskii · Регистрация: 22.10.2013

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

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:
Название: Снимок.PNG
Просмотров: 38

Размер: 2.1 Кб

Название: Снимок.PNG
Просмотров: 38

Размер: 2.1 Кб

Новичок · 09.03.2014, 16:45

Pascal

function x(const n:Integer):Real;
begin
if n=1 then x:=0 else
if n=2 then x:=5/8 else x:=x(n-1)/2+3*x(n-2)/4;
end;

@belanovskii · 11.03.2014, 21:34 **[ТС]**

у меня как-то так у самого получилось

Pascal

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.

@Антон1985 · 11.03.2014, 21:43

Похожая тема в этомже разделе.
Ссылка

@belanovskii 11 / 2 / 0 Регистрация: 22.10.2013 Сообщений: 61
		1
	Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: 08.03.2014, 23:52. Показов 519. Ответов 3 Метки нет (Все метки) Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: 0

@Антон1985 138 / 101 / 102 Регистрация: 03.02.2014 Сообщений: 425
	11.03.2014, 21:43	4
	Похожая тема в этомже разделе. Ссылка 1

Опции темы