Из Pascal в Prolog

Узнай цену своей работы

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

Напишите решение предложенной задачи на Прологе.
Листинг программы
  1. program upr;
  2. var i,n:integer;
  3. s:real;
  4. begin
  5. read(n);
  6. i:=1;
  7. while i<=n do begin
  8. s:=s+1/i; i:=i+1;
  9. end;
  10. write(s);
  11. end.

Решение задачи: «Из Pascal в Prolog»

textual
Листинг программы
  1. sum_recipr(0,0).
  2. sum_recipr(N,S):-N1 is N-1,
  3.                         sum_recipr(N1,S1),
  4.                         S is S1+1.0/N.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут