Из Pascal в Prolog - Prolog

Формулировка задачи:

Напишите решение предложенной задачи на Прологе.
program upr;
       var i,n:integer;
           s:real;
       begin
         read(n);
         i:=1;
         while i<=n do begin
                       s:=s+1/i; i:=i+1;
                       end;
         write(s);
       end.

Код к задаче: «Из Pascal в Prolog - Prolog»

textual
sum_recipr(0,0).
sum_recipr(N,S):-N1 is N-1,
                        sum_recipr(N1,S1),
                        S is S1+1.0/N.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.857 из 5


СДЕЛАЙТЕ РЕПОСТ