Из Pascal в 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»

textual
                            Листинг программы 
                        

                            sum_recipr(0,0).
sum_recipr(N,S):-N1 is N-1,
                        sum_recipr(N1,S1),
                        S is S1+1.0/N.
                        

Оцени полезность:

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

Похожие ответы