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

[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]

[TarasBer]

> Но преподша все равно говорит, что задача решена неверно.

Может, дело не в том, что код якобы неверный, а в том, что ты не можешь объяснить его работу?

> Сказала, что нужен факториал, так как в формуле присутствуют восклицательные знаки. А также, она не видит здесь степеней, которые находятся в формуле.

Ну тогда преподша слепая дура, шли её нах.
Хотя скорее всего, она специально так говорит, чтобы проверить а видишь ли факториал ты? Я-то вижу, но ты, судя по уровню задаваемых вопросов, этот код сам не понимаешь. А код-то правильный, из FAQ взял?
На её провокации изговнякать код не ведись, если что.

Добавлено через 2 мин.
стоп.

s:=1;
t:=1;
n:=1;
while abs(t)>e do
begin
n:=n+1;
t:=t*x/n;
s:=s+t;
end;

отладчиком пользоваться умеешь? Я применю свой, встроенный в мозг

инициализация
s=1
t=1
n=1
начало цикла
n=2
t=x/2
s=1+x/2
ошибка!

надо s=1+x/1 после первого прохода
перенеси n:=n+1 в конец цикла.
Либо инициализируй его нулём, а не единицей.

[Lapp]

инициализируй его нулём, а не единицей.

Логично
Вместо
n:=1;
сделай:
n:=0;

[TarasBer]

Вместо
n:=1;
сделай:
n:=0;

Капитан Очевидность в подробностях раскрывает тайный смысл моего совета!

[Lapp]

Капитан Очевидность в подробностях раскрывает тайный смысл моего совета!

Вольно, боцман Инитегонулем. Сегодня по лишнему половнику баланды матросам.
я добрый..