VPF::Программа для решения уравнения

YaZzzz

Дата 20.6.2008, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 17.6.2008

Репутация: нет
Всего: нет

Вот собственно и само задание,

Люди добрые вот такое выложили, что значит не понимаю 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);
плохо, что ряд не знакопеременный, оценивая точность по последнему слагаемому можно ошибиться.

Здесь картинка с заданием

Это сообщение отредактировал(а) YaZzzz - 20.6.2008, 16:50

volvo877

Дата 21.6.2008, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(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.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »