Программирование циклов с условием, Вопрос Опции

[Stas86]

Добрый день. Вот такая задачка.

Program z1;
Uses crt;
Var
s,t,n,E:real;
begin
writeln ('Введите точность');
Readln (E);
s:=1;
t:=1;
n:=1;
while abs (t)>e do
begin
n:=n+1;
t:=t*x/n;
s:=s+t;
end;
write ('S', S:0:4);
Readkey;
End. 

Преподша сказала, что нужно добавить еще три строчки факториала. Вот собственно в этом и вопрос.
Условие задачки на изображении.[code]

[BanneD]

 
Program z1;
Uses crt;
Var y,s,t,x,E:real;
	n,i:integer;
begin
write('x=');
readln(x);
write ('Введите точность e=');
readln(e);
s:=1;
t:=1;
n:=1;
i:=1;
while abs(t)>e do
 begin
y:=exp(i*ln(x)); 
n:=n*i;
t:=x/n;
s:=s+t;
i:=i+1;
end;
write ('S=', S:0:4);
Readln;
End.

y:=exp(i*ln(x)); - это х в кадрате  х в кубе  х в 4-ой степени  и тд

по алгоритму вроде правельно! но выводит 1

Сообщение отредактировано: BanneD - 19.12.2010 12:34

[Lapp]

по алгоритму вроде правельно! но выводит 1

А что ты вводишь?

Пожалуйста, прочти правила. Обрати внимание на п.5 Правил Форума и п.2 правил раздела Задачи.

[BanneD]

А что ты вводишь?

Пожалуйста, прочти правила. Обрати внимание на п.5 Правил Форума и п.2 правил раздела Задачи.

Ввожу х потому как мы же степень числа будем вычитывать!
А е-это точность!
тут как я понял надо найти приближенное значение числа

y:=exp(i*ln(x)); нарашиваем степень икса
n:=n*i; вычисление факториала
t:=x/n; присвойл переменную, иск (в степени н)  деленное на факториал
s:=s+t; 
i:=i+1; 

Давай рассмотрим как должно это работать вводим х=5

				                    2-ой круг
y:=exp(i*ln(x)); 5 в степени 1=5		5 в степени 2=25  
n:=n*i; 1*1=1				        1*2=2
t:=x/n; т:=5/1=5				25/2=12,5
s:=s+t; S:=1+5/1=6		                1+5/1+25/2=18,5
i:=i+1; i:=1+1=2				2+1=3

вроде алгоритм составлен правельно! но где то есть ошибка! так как не должно выводтиь 1
так же не вижу смысла здесь исползовать абс, так как тут полубому положительные числа выводит! но всё же дело не в абс!
ах да Кап прочел правила
{2. Давать заведомо ложную информацию
5. Выкладывать вредоносную информацию и программы.} ты это имел ввиду?

Сообщение отредактировано: BanneD - 19.12.2010 12:45

[Lapp]

Ввожу х потому как мы же степень числа будем вычитывать!

Я спрашивал какие значения ты вводишь.

ах да Кап прочел правила
{2. Давать заведомо ложную информацию
5. Выкладывать вредоносную информацию и программы.} ты это имел ввиду?

Нет.
Я имел в виду то, что я написал, то есть:
- пункт 5 Правил Форума (не п.1.5, а п.5);
- пункт 2 правил раздела Задачи (промотай эту страницу вверх, будь так добр - и увидишь 8 пунктов).

[BanneD]

Я спрашивал какие значения ты вводишь.
Нет.
Я имел в виду то, что я написал, то есть:
- пункт 5 Правил Форума (не п.1.5, а п.5);
- пункт 2 правил раздела Задачи (промотай эту страницу вверх, будь так добр - и увидишь 8 пунктов).

сорри=) прочел, исправил!

Где 1?

мда сам себе перечу вместо вещественных я целые числа вводил=)

Сообщение отредактировано: BanneD - 19.12.2010 12:46