Функция f(I,J) задана следующим образом: f(0,J)=J-1,f(I,0)=I-1, f(I,J)=f(J,I-1)+f(J-1,I)-1 для I,J <> 0. Определитепредикат для вычисления этой функции.

%Функция f(I,J) задана следующим образом: f(0,J)=J-1, f(I,0)=I-1, f(I,J)=f(J,I-1)+f(J-1,I)-1 для     I,J <> 0.  Определите предикат для вычисления этой функции.
% Bilet18
% Patched 14.01.13
% To start type: jstart.
f(0,J,F):-F is J-1,!.
f(I,0,F):-F is I-1,!.
f(I,J,F):-J1 is J-1, I1 is I-1, f(J,I1,F1),f(J1,I,F2), F is F1+F2-1.
jstart:- write(' Vvedite I: '),nl,read(IJAM1),nl,
write(' Vvedite J: '),nl,read(IJAM2),nl,
f(IJAM1,IJAM2,F),
write(F).

Друзья! Приглашаем вас к обсуждению. Если у вас есть своё мнение, напишите нам в комментарии.