Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Object Pascal: кроссплатформенные технологии > Программа для решения уравнения


Автор: YaZzzz 20.6.2008, 16:46
Вот собственно и само задание,

Люди добрые вот такое выложили, что значит не понимаю smile

Цитата

Так эта формула не решается, она и должна вычисляться в программе
Если погрешность Пи должна быть 10^-5, то погрешность Пи^4 / 96 должна быть 4*Пи^3 / 96 * 10^(-5), что (оцениваем снизу, чтобы не ошибиться больше чем нужно) примерно составляет 1*10^-5 (совпало, повезло)

i=0;
x=1;
s=0;
k=1;
while (x >= eps)
{
x=1/k^4;
s=s+x;
k=k+2;
}
p=pow(96*s,0.25);
плохо, что ряд не знакопеременный, оценивая точность по последнему слагаемому можно ошибиться.
 

http://foto.mail.ru/bk/yazzzz/_answers/46.html

Автор: volvo877 21.6.2008, 11:52
Цитата(YaZzzz @  20.6.2008,  16:46 Найти цитируемый пост)
что значит не понимаю

Что именно не понятно? Тебе привели решение в виде псевдокода... Переводим на Паскаль:
Код
const eps = 1E-5;
var
  k: integer;
  s, p: real;

begin
  s := 0;
  k := 1;
  repeat
    p := 1 / sqr(sqr(k));
    s := s + p;
    k := k + 2;
  until p < eps;

  writeln(sqrt(sqrt(96*s)):10:6);
end.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)