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

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

[Unconnected]

Типа вычислить сумму ряда с заданной точностью? Если да, то на форуме уже было много раз, ищи.

[Stas86]

Да, да, с заданной точностью.

[volvo]

Преподша сказала, что нужно добавить еще три строчки факториала.

Не нужен здесь факториал. Что ж за преподаватели теперь? Как только задачу начинаешь решать правильным способом - надо обязательно все испортить и учить решению неправильному???

[TarasBer]

А где в этом коде описан икс?


Добавлено через 3 мин.
И если строго по-математически, то надо не

 while abs (t)>e do
 ...

, а как-то так:

while (x<n) and (abs(t)*n < e*(n-x)) do

это для оценки хвоста.

Сообщение отредактировано: TarasBer - 19.11.2010 15:54

[Stas86]

да, да, x пропустил.

[Stas86]

Дак что, факториал действительно не нужен?

[Гость]

Факториал не нужен, у тебя и так общий член нормально считается (то есть используется то, что он больше предыдущего в x/n раз). Училку не слушай.

[Stas86]

Добрый день, посмотрите еще раз задачку. Не знаю, может это и правильно, но я так не думаю. Если запустить и ввести число, программа выдает одно и тоже значение.

[Lapp]

программа выдает одно и тоже значение.

И какое, если не секрет?

[Stas86]

S=1.0000 вот так и считает

Сообщение отредактировано: Stas86 - 9.12.2010 17:04

[Lapp]

а у тебя x случайно не равен 0?

[Stas86]

Я не знаю, я не очень хорошо разбираюсь в паскале. Поэтому и спрашиваю.

[Lapp]

Описать-то ты x, видимо описал. Но вот дать ему нужное значение - это, конечно, задача трудновыполнимая.. Да?

Вот и считаешь для x=0 ..

Добавлено через 1 мин.

Я не знаю, я не очень хорошо разбираюсь в паскале. Поэтому и спрашиваю.

Вставь ввод значения x.

[Stas86]

Описать-то ты x, видимо описал. Но вот дать ему нужное значение - это, конечно, задача трудновыполнимая.. Да?

Вот и считаешь для x=0 ..

Добавлено через 1 мин.

Вставь ввод значения x.

Всмысле описать его в разделе переменных? Описал, считает так же.

Сообщение отредактировано: Stas86 - 9.12.2010 17:24

[TarasBer]

ReadLn(x) вставь перед расчётом

[Stas86]

ReadLn(x) вставь перед расчётом

Вставил, считает также.
Давайте немного по-другому.

Program z1;
Uses crt;
Var
s,t,n,x,E:real;
begin
writeln ('Введите точность');
Readln (E);
Readln (x);
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. 

Просмотрите еще раз код, что-то все равно не то, я это не вижу. А вот опытный может рассмотреть.

Вот такое задание: Разработать алгоритм и программу для вычисления суммы с
заданной точностью. Получить результат.
Эту задачу уже 2 недели сдать не могу, не принимает преподша.

Сообщение отредактировано: Stas86 - 9.12.2010 17:38

[TarasBer]

Какие числа ты вводишь в качестве e и x?

[Stas86]

Какие числа ты вводишь в качестве e и x?

В коде программы, как я понял ввода этих значений нет. Тогда подскажите, какие присвоить значения? Блин, помогите в написании, очень слабо понимаю паскаль, а сдавать надо уже завтра.

[volvo]

В коде программы, как я понял ввода этих значений нет.

С такими познаниями, как ты завтра что-то сдавать собираешься? У тебя программа запрашивает

Readln (E);
Readln (x);

, тебя спросили, что ты вводишь в ответ на запрос?