Функции function F(x, y: integer): integer; function
10-11 класс
|
G(x, y: integer): integer;
function R(x, y: integer): integer;
определены с помощью операционной семантики равенствами:
R(x, y) = x*(y – 1),
F(x, y) = R(x + 1, y) - R(x, y - 1),
G(x, y) = F(x, R(x, y)).
Найти значения G(3, 3).
function R(x, y: integer):integer; begin result := x*(y – 1); end;
function F(x, y: integer):integer begin Result := R(x + 1, y) - R(x, y - 1); end;
function G(x, y:integer):integer begin Result := F(x, R(x, y)); end;
begin
writeln( G(3, 3) );
end.
Другие вопросы из категории
Даны
действительные числа х, у, и z. Вычислить
max (x + y + z, xyz).
(только пожалуйста напишите полное решение, а не кусок)
Читайте также
F(4,3.18,’d’); D) F(4,3,’d’) Назовите тип результата
for i:=1 to n do p:=p*i; factorial:=p; end;
числа в обратном порядке .
новый приплод. Сколько кроликов будет через год
program uses crt{Пара кроликов каждый год дает приплод двух (самку и самца)кот.через 2месяца способны давать новый приплод.Ск-ко кроликов будет через год.}
var k : integer
function f(n:integer):integer
begin if n=0
then f=1
elsey if n=1
then f=2
elsey f=f(n-2)+f(n-1)
end
begin for k=10 to 12 do
writeln(f(k))
redln
end.
function nod(x:integer):Longint;
begin
if x=0 then nod:=1
else nod:=nod(x-1)*x
поясните последние две строчки плз