суббота, 14 мая 2011
19:53

Здравствуйте, участники соо

все записи пользователя в сообществе Yorui4i
Вария была в шоке, Занзас был в отчаянии, Тсунаеши был в коридоре. (c)
Над проблемой маюсь уже 3-ю неделю. Решила обратиться за помощью к Вам.

В Паскале описать функцию Exp(x,E) вещественного типа (параметры x,E- вещественные, Е>0)находящую приближенное
значение функции exp(x):
exp(x)=1+x+x^x\(2!)+x^x^x\(3!)+...x^n\(n!)+...
(n!=1*2*...n). В сумме учитывать все слагаемые, большие Е.
С помощью Exp найти приближеннон значения экспоненты для данного x при 6 данных E.

@темы: Pascal

URL
Комментарии
14.05.2011 в 21:13

fess2007
а в чем собственно проблема ? покажите хотя бы что у вас за неделю получилось
URL
14.05.2011 в 21:43

Yorui4i
Вария была в шоке, Занзас был в отчаянии, Тсунаеши был в коридоре. (c)
var x,E,a,b:real;
function Exp1(x,E :real):real;
var
y,z,exp: real;
i,N:integer;
begin
exp:=1+x;
z:= x;
for i:=2 to N do begin
z:=x*z/n;
exp:=exp+z;
end;
BEGIN


END.

Не знаю почему,но не получается С помощью Exp найти приближеннон значения экспоненты для данного x при 6 данных E.
:upset:
URL
15.05.2011 в 00:15

ДихлофосЪ
I wait Caturday. I wait Catnarok.
Yorui4i
А что вы хотите от программы? Каким образом она будет работать, если у вас N ничему не равно? Да и Е нигде не используется. Как программа по вашему определит, что достигнута нужная точность? Телепатически?)
URL
15.05.2011 в 10:56

Malabary Takemura
Всегда живи в своё удовольствие
К тому же здесь вовсе N не нужно. Достаточно использовать while или repeat. А в условии как раз и будете сравнивать с E
URL
15.05.2011 в 12:47

ДихлофосЪ
I wait Caturday. I wait Catnarok.
Malabary Takemura
Я как бы на это и намекал)
URL
15.05.2011 в 15:45

[revolver]
Люди никогда не достигнут совершенства, пока будут оставаться людьми...
Предлагаю выкинуть паскаль нахер. учите нормальные языки программирования.

solve(X, E, Ans) :- calculate(X, E, 0, 1, 1, Ans).

calculate(X, E, Ind, Summ, Xnf, Summ) :-
	Xnf < E,
	Ans = Summ.

calculate(X, E, Ind, Summ, Xnf, Ans) :-
	Xnf >= E,
	Ind1 is Ind + 1,
	Xnf1 is Xnf * X / Ind1,
	Summ1 is Summ + Xnf1,
	calculate(X, E, Ind1, Summ1, Xnf1, Ans).

URL
15.05.2011 в 16:42

Yorui4i
Вария была в шоке, Занзас был в отчаянии, Тсунаеши был в коридоре. (c)
Для допуска к экзамену нужна именно эта программа и именно на паскале
URL
15.05.2011 в 17:24

[revolver]
Люди никогда не достигнут совершенства, пока будут оставаться людьми...
Yorui4i, принесите на допуск мою. Ваш преподаватель Вам сразу поставит автомат. Я, думаю, он только за выбор языка программирования поставит. И скажет, чтобы вы больше не приходили) Этот язык, как чёрная магия: вокруг все делают как ты хочешь и просят больше не приходить.
URL
15.05.2011 в 17:29

ДихлофосЪ
I wait Caturday. I wait Catnarok.
[revolver]
Паскаль неплох для понимания структурного программирования. В общем для начала можно его немного поизучать.
А что это у вас за язык такой?
URL
15.05.2011 в 17:40

Yorui4i
Вария была в шоке, Занзас был в отчаянии, Тсунаеши был в коридоре. (c)
[revolver] Ладно. Спасибо большое за помощь)
URL
15.05.2011 в 18:10

O
Пау-чок
Yorui4i Я бы написал так:

URL
15.05.2011 в 20:13

Yorui4i
Вария была в шоке, Занзас был в отчаянии, Тсунаеши был в коридоре. (c)
O Спасибо) Кое-что дописала,и получилось то, что нужно)
URL
16.05.2011 в 02:07

[revolver]
Люди никогда не достигнут совершенства, пока будут оставаться людьми...
ДихлофосЪ, это был программистический юмор) Всё я знаю и про Паскаль и про студенов-летняев и всё мне понятно. ;-)
Это? Prolog) Можете прочитать про него официаьно здесь, и немного с юмором тут
URL