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

[Yorui4i]

Над проблемой маюсь уже 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

Comments

[fess2007]

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

[Yorui4i]

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.

[ДихлофосЪ]

Yorui4i
А что вы хотите от программы? Каким образом она будет работать, если у вас N ничему не равно? Да и Е нигде не используется. Как программа по вашему определит, что достигнута нужная точность? Телепатически?)

[Malabary Takemura]

К тому же здесь вовсе N не нужно. Достаточно использовать while или repeat. А в условии как раз и будете сравнивать с E

[ДихлофосЪ]

Malabary Takemura
Я как бы на это и намекал)

[[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).

[Yorui4i]

Для допуска к экзамену нужна именно эта программа и именно на паскале

[[revolver]]

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

[ДихлофосЪ]

[revolver]
Паскаль неплох для понимания структурного программирования. В общем для начала можно его немного поизучать.
А что это у вас за язык такой?

[Yorui4i]

[revolver] Ладно. Спасибо большое за помощь)

[O]

Yorui4i Я бы написал так:

function Exp1(x,E :real):real;
var
   S {очередное слагаемое} : real;
   k {счётчик итераций}: integer;
begin
   Exp1:=0;
   S:=1;
   k=0;
   while S>E do
      begin
	 Exp1:=exp+S;
	 k:=k+1;
	 S:=S*x/k;
      end;
end;

[Yorui4i]

O Спасибо) Кое-что дописала,и получилось то, что нужно)

[[revolver]]

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