Показать сообщение отдельно
  (#3 (permalink)) Старый
ZhekaS ZhekaS вне форума
Member
 
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 22.09.2006
По умолчанию 11.10.2006, 19:22

Вот для классического пролога. Для Турбо, думаю, несложно будет преобразовать..

Код:
% Вспомогательное правило с аккумулятором
% formula_sum( N, K, SumK, Sum).
% N - Число N
% K - число-счетчик (от 2 до N)
% SumK - аккумулятор суммы дле первых K элементов
% Sum - конечная сумма
formula_sum( N, N, Sum, Sum).
formula_sum( N , K, SumK, Sum) :-
    N >= K,
    K1 is K +1,
           SumK1 is SumK + K1/(K1-1),
    formula_sum(N, K1, SumK1, Sum).

% Основное правило  - начинаем считать с 2, дабы избежать 
% деления на ноль
formula_sum(N, Sum) :-
    formula_sum(N, 2, 2, Sum).
Ответить с цитированием
Ads