Question

function F(n: integer): integer;

function G(n: integer): integer;

определены с помощью операционной семантики равенствами:

F(0)=1,

G(0)=2,

F(n)=G(n-1),

G(n)=F(n-1) + G(n-1).

Найти значения F(3) и G(3).

Answer 1

program Project1;

function G(n: Integer): Integer;
begin
  if n = 0 then
    Result:=2
  else
    Result:=F(n - 1) + G(n - 1);
end;


function F(n: Integer): Integer;
begin
  if n = 0 then
    Result:=1
  else
    Result:=G(n - 1);
end;

begin
  WriteLn('G(3) = ', G(3);
  WriteLn('F(3) = ', F(3);
end.