Сделать рекурсию

@OmegaProgrammer · Регистрация: 24.02.2018

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

Сделать рекурсию.

Имеется двумерное рекуррентное соотношение:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \begin{cases}x_{n+1}= x_n+y_n\\\\ y_{n+1}=y_n-x_n \end{cases}<br />$

Начальные условия: x₁ = 1, у₁ = 1.

Напишите программу для нахождения элементов последовательностей по номеру.

Pascal

var
x,y,a:integer;
procedure AVR(z:integer);
var a,b:integer;
 begin
 while z>1 do
  begin
   a:=x;
   x:=x+y;
   y:=y-a;
   z:=z-1;
  end;
  writeln('X = "',x,'" ','Y = "',y,'"');
 end;
 
begin
x:=1;
y:=1;
write('Какой номер? --> ');
readln(a);
AVR(a);
end.

@Puporev · 15.04.2018, 11:48

Pascal

var x,y:integer;
function F2(n:integer):integer;forward;
function F1(n:integer):integer;
begin
if n=1 then F1:=1
else F1:=F1(n-1)+F2(n-1);
end;
function F2(n:integer):integer;
begin
if n=1 then F2:=1
else F2:=F2(n-1)+F1(n-1);
end;
var n,i:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
writeln(i:2,' F(',i,')=',F1(i));
end.

@OmegaProgrammer · 15.04.2018, 15:23 **[ТС]**

Товарищ Puporev, вы уверены в правильности своего кода?

Просто если запустить программу дать Н значение 2 то получиться, что Х =2 и У=2, а ведь если высчитать эти значения руками получиться Х=2 У=0.

@volvo · 15.04.2018, 15:31

в 11 строке надо поменять знак с "+" на "-":

Pascal

11	else F2:=F2(n-1)-F1(n-1);

@Puporev · 15.04.2018, 16:43

Сообщение от OmegaProgrammer

Товарищ Puporev, вы уверены в правильности своего кода?

Конечно нет, Вам же тоже чего-то поделать нужно.

@OmegaProgrammer · 17.04.2018, 16:33 **[ТС]**

Всем спасибо за участие, рекурсию я составил.

@OmegaProgrammer 0 / 0 / 0 Регистрация: 24.02.2018 Сообщений: 84
	15.04.2018, 15:23 [ТС]	3
	Товарищ Puporev, вы уверены в правильности своего кода? Просто если запустить программу дать Н значение 2 то получиться, что Х =2 и У=2, а ведь если высчитать эти значения руками получиться Х=2 У=0. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.04.2018, 16:43	5
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Сообщение от OmegaProgrammer Товарищ Puporev, вы уверены в правильности своего кода? Конечно нет, Вам же тоже чего-то поделать нужно. 0

@OmegaProgrammer 0 / 0 / 0 Регистрация: 24.02.2018 Сообщений: 84
	17.04.2018, 16:33 [ТС]	6
	Всем спасибо за участие, рекурсию я составил. 0

Опции темы

Сделать рекурсию

Решение