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).
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы