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

Формулировка задачи:

Сделать рекурсию. Имеется двумерное рекуррентное соотношение: Начальные условия: x₁ = 1, у₁ = 1. Напишите программу для нахождения элементов последовательностей по номеру.

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.

Решение задачи: «Сделать рекурсию»

textual
                            Листинг программы 
                        
                            else F2:=F2(n-1)-F1(n-1);

Оцени полезность:

13 голосов , оценка 4.308 из 5

Похожие ответы