Эээххх(((

[Надюха]

Понимаю, задолбала...))) Нигде не могу найти приличной литературы для таких идиотов, как я))) Посоветуйте что-то хорошее... Буду оч благодарна, и вот еще... Меня препод обосрал с высоты птичьего полета, у меня не та погрешность получалась, что нуно
program R9d;
const
n0: shortint=0;
d: real =1e-5;
var
x, a, F, S: real;
n: byte;
BEGIN
writeln (‘Vvedit6 zna4enn9 argymenty x’);
readln (x);
a:=1; S:=0; n:=n0;
repeat
S:=S+a;
n:=n+1; a:=a*x;
writeln (n:4, a:12:5, S:12:5);
until abs(a)<d;
F:=1/(1-x);
writeln (‘Syma r9dy’, S:12:5, ‘Fynkci9’:15, F:12:5);
writeln (‘Poxubku: Zadana’, d:8);
writeln (‘Dos9gnyta’:15, abs(F-S):8);
END.
x=0.72
Вроде все должно быть, а тут... Я препода чуть не убила... Обьяснить норм. не может, а орет так, будто не спал с женой года два... Сволочь

[Aristarh Dark]

Скорее всего погрешность нужно считать не по последнему члену ряда, а по разнице последнего и предпоследнего.

[Stilet]

Надюша привет, выложи сюда абсолютно дословно задачу.

[Alex21]

Надюша, не надо паники. Приведи условие задачи.
И просьба: оформляй код с использованием кнопочки CODE.
И почитай правила про оформление тем.

[Carbon]

Надюха, жаль, что я не модер этого раздела...Но в будущем пишите нормальные названия тем. И не оскорбляйте участника форума, даже если этот участник - Вы.

[Надюха]

Сообщение от Stilet

Надюша привет, выложи сюда абсолютно дословно задачу.

Задание таково: Значение х=0.72; функция f(x)=1/(1-x); n0=0; An равно х в n-ой степени, заданная погрешность - 1е-5. Нужно вычислить сумму функциональных рядов.

[Надюха]

Сообщение от Carbon

Надюха, жаль, что я не модер этого раздела...Но в будущем пишите нормальные названия тем. И не оскорбляйте участника форума, даже если этот участник - Вы.

Спасибо за совет... О... и еще одно... посоветуйте пожалуйста хорошую литературу по Паскалю, была бы очень благодарна)))

[Надюха]

Сообщение от Aristarh Dark

Скорее всего погрешность нужно считать не по последнему члену ряда, а по разнице последнего и предпоследнего.

спасибо за совет)))

[Stilet]

Нда похоже на то что нуж но в цикле считать разницу между последним и предпоследним, пока эта разница не станет меньше этой погрешности.

[puporev]

Вообще-то погрешности бывают разные, считаются по разным формулам для разных вычислений. При машинной обработке вычислений погрешности также вычисляются программно. Надо бы подучить эту тему.