Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Нужно решить задачу на TURBO-PROLOG
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Надюшка Надюшка вне форума
Member
 
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2006
По умолчанию 11.10.2006, 10:55

Найти сумму N первых членов последовательности заданной формулой Xn=N/(N-1)
Ответить с цитированием
  (#2 (permalink)) Старый
Надюшка Надюшка вне форума
Member
 
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2006
Unhappy 11.10.2006, 14:19

Кто-нить знает как написать этот пример или есть ли на форуме - такой пример - ПОДСКАЖИТЕ!! ПЛИЗ!!!
Ответить с цитированием
  (#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).
Ответить с цитированием
  (#4 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,862
Сказал(а) спасибо: 2
Поблагодарили 287 раз(а) в 287 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 11.10.2006, 23:42

Как вариант (Турба):
Код:
predicates 
sum(integer,real)
goal sum(3,Z).
clauses
sum(2,2.0):-!.
sum(N,S):-N1=N-1,sum(N1,S1),S=S1+N/(N-1).
Ответить с цитированием
  (#5 (permalink)) Старый
Надюшка Надюшка вне форума
Member
 
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2006
По умолчанию 12.10.2006, 10:25

Цитата:
Как вариант (Турба):
Код:
predicates 
sum(integer,real)
goal sum(3,Z).
clauses
sum(2,2.0):-!.
sum(N,S):-N1=N-1,sum(N1,S1),S=S1+N/(N-1).
Не получается...
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,862
Сказал(а) спасибо: 2
Поблагодарили 287 раз(а) в 287 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 12.10.2006, 17:41

Что не получается?
Если не умеете выводить ответ, то напишите цель так:
Код:
goal sum(3,Z), write(Z).
Ответить с цитированием
  (#7 (permalink)) Старый
Надюшка Надюшка вне форума
Member
 
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.10.2006
Lightbulb 12.10.2006, 22:28

я переделала с внутренней целью... :-P
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите решить задачу в prolog!!! outdreams Вопросы начинающих программистов 2 31.01.2014 00:46
крестики нолики на Visual Prolog 7.2 Помогите пожалуйста решить задачу! Дмитрий) Prolog 4 06.06.2011 17:52
помогите решить задачу на Visual Prolog 7.2 ПОЖАЛУЙСТА!!! Валёк Prolog 13 02.06.2011 01:24
Помогите пожалуйста решить задачу очень нужно ваня1205 Pascal 1 19.05.2011 00:59
Помогите переделать задачу из Turbo Prolog в Visual Prolog 5 imported_Anneta Prolog 3 23.12.2010 22:59
Решить задачу (платно) - Turbo Prolog 2.0 imported_Axon Prolog 16 24.12.2009 23:44
Помогите решить задачу "После соревнований" на Strawberry Prolog 777Smash777 Prolog 3 13.12.2009 22:34
Кто возьмется переписать маленькую программу с Turbo Prolog на Visual Prolog 5.0 (за плату) Игоревна Задания за деньги 16 04.01.2008 17:20
Нужно решить задачу по ассемблеру. Lenita Задания за деньги 3 07.04.2006 14:01
Как решить задачу на Visual Prolog Alexdouble Prolog 1 04.12.2004 09:33
Как решить задачу на Prolog Gappik Prolog 0 19.11.2004 11:01
Как решить задачу на Prolog Anonymous Prolog 1 02.12.2002 13:48



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов