Из 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
