Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Посчитать сумму ряда
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
flogiston flogiston вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.10.2011
По умолчанию Посчитать сумму ряда - 12.10.2011, 16:15

Помогите пожалуйста. Никак не могу сделать.
Реализовать с помощью итеративного и рекурсивного алгоритмов:
Вложение 416
Изображения
Тип файла: jpg e.jpg (47.8 Кб, 79 просмотров)
Ответить с цитированием
  (#2 (permalink)) Старый
flogiston flogiston вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.10.2011
По умолчанию 12.10.2011, 20:55

Пока сумел сделать чтоб оно считало следующее:
s=sin1+sin2+...+sinN
А вот как с дробью?? Кто поможет?


prolog Код:
predicates
summa(unsigned, real)

clauses
summa(1, 0.841) :- !.
summa(N, S) :-
Y = N-1,
summa (Y, P_summa),
S = sin(N)+P_summa.

goal
N=2,
summa (N,S).
Ответить с цитированием
  (#3 (permalink)) Старый
flogiston flogiston вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.10.2011
По умолчанию 08.11.2011, 15:10

Вот рекурсивный алгоритм. Помогите сделать итеративный пожалуйста в Visual Prolog.
prolog Код:
predicates
    nondeterm p( integer, integer, real, real )
goal
    p( 5, 0, 0.0, S ), write(S), readint(_).
clauses
    p( N, N, _, 0.0 ).
    p( N, M, S, R ):-
        M + 1 = MM,
        TS = S + sin( MM ),
        p( N, MM, TS, RR ),
        R = RR + 1 / TS.
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить сумму членов ряда Renir Visual Basic 1 23.01.2012 14:13
Как вычислить сумму ряда а^(2N-1)/(2N-1) *MELKAYA* Lisp 0 17.05.2011 15:03
найти сумму ряда Naska Prolog 1 16.05.2011 20:45
Как посчитать сумму ряда, 10 в степени n/n Naska Lisp 1 16.05.2011 14:34
Посчитать сумму элементов массива A n d r e y Вопросы начинающих программистов 1 27.12.2010 20:03
вычислить сумму ряда с точностью eps Энж Pascal 0 21.12.2010 21:24
Найти сумму ряда fil328 Prolog 2 19.12.2010 20:13
Посчитать 3 первых члена ряда imported_Prog_r Lisp 0 18.10.2010 21:11
Необходимо посчитать сумму чисел Julijanna Lisp 4 28.05.2010 18:42
Найтии сумму ряда с точностью Е bendrik Lisp 0 27.04.2010 09:13
вычислить частичную сумму ряда kiss-a13 Prolog 2 24.12.2009 12:10
Как посчитать сумму Vil_aka_Mouse SQL 2 23.01.2007 11:33



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