Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Вычисление приближенное значение функции; и точное значение функции
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Awatar Awatar вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.03.2010
По умолчанию 29.03.2010, 16:08

Здравствуйте!!Очень нужна Ваша помощь в написаний рекурсивной программы
Создать программу расчета функции.
Программа должна запрашивать у пользователя:
- N – количество членов ряда;
- X – значение переменной (если в формуле есть X).
Результат работы:
- приближенное значение функции;
- точное значение функции.

y=ch(x)=1+x^2/2!+X^4/4!+X^6/6!-....

Имеется код,помогите ,пожалуйста, переделать под вышенаписанную функцию..
Код:
predicates
pribl(integer,integer,real,real,real,real)
clauses
pribl(N,Nomer,X,Stepen,Summa,Rezultat):- Nomer<N,!,
    Nomer1=Nomer+1,Stepen1=-Stepen*X*X,
    Summa1=Summa+Stepen1/(2*Nomer1-1),
    pribl(N,Nomer1,X,Stepen1,Summa1,Rezultat).
pribl(_,_,_,_,Summa,Summa).
goal
write("kolichestvo: "),readint(N),N>0,
write("X = "),readreal(X),
pribl(N,1,X,X,X,Pri),Tochno= ch(X),Eps=abs(Pri-Tochno),
write("Priblij: ",Pri,". Tochnoо: ",Tochno,".Pogresh: ",Eps),nl.




Заранее Спасибо!!
Ответить с цитированием
  (#2 (permalink)) Старый
pavelr pavelr вне форума
Member
 
Сообщений: 207
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.03.2010
По умолчанию 29.03.2010, 21:22

У вас у всех одни и те же задачи,что ли?Какой ВУЗ,если не секрет?
Код:
domains
i=integer
r=real
predicates
a(i,r,r)
s(i,r,r,r)
clauses
a(0,_,1):-!.
a(N,X,A):-N1=N-1,a(N1,X,A1),A=A1*X*X/((2*N-1)*(2*N)).
s(0,X,1,Y):-Y=(exp(X)+exp(-X))/2,!.
s(N,X,R,Y):-N1=N-1,s(N1,X,R1,Y),a(N,X,A),R=R1+A,Y=(exp(X)+exp(-X))/2.
goal
write("VVEDITE N"),nl,readint(N),nl,write("VVEDITE X"),nl,readreal(X),
s(N,X,Sum,Y),E=Y-Sum,write("Pogresn=",E),nl.
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выччислить значение функции используя процедуры imported_bert94 Pascal 1 15.06.2011 17:37
найти точное, приближенное значение интеграла методом трапеций и относительную погреш alex- Pascal 0 17.04.2011 19:02
Вычислить значение функции :y(x) в точках X1 и X2 BeLai Программирование под Windows 1 29.10.2010 19:05
Значение функции SetString в Delphi 7 Ta2i4 Delphi 0 06.06.2008 15:38
вычислить значение функции Seraf_47 Prolog 1 16.04.2008 22:52
как array_walk() возвращает значение из функции в массив :? Ghostep PHP 4 15.08.2007 15:15
Значение функции Storme Prolog 0 08.11.2006 18:15
Приближ. значение функции Andrewmx Prolog 7 15.05.2005 15:41
Приближённое значение функции eka Prolog 1 23.04.2005 10:37
Значение функции GetForegroundWindow imported_andruxa Visual C++ 9 31.01.2005 19:55
Значение функции NetSessionEnum imported___alex Visual C++ 0 28.01.2005 23:14
При компиляции программы пропадает значение функции Sieman C++ Builder 3 09.03.2004 13:46



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