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).

Question

Информатика

Эмилий

8 сентября, 09:34

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).

+2

Ответы (1)

Знаете ответ на вопрос?

Лика · 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.

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).

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).