VPF::Циклы итерационной структуры - Форум программистов

Аликс

Дата 7.5.2006, 23:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте!
Помогите решить задачу.

s=(sqr(x)*x)/5-(sqr(x)*x*x*x)/17+...+(-1)*sqr(n+1)*(x*sqr(2*n+1)/4*sqr(x)+1)+...
Значение 0.15,
точность вычисления 10 в -3 степени.

С уважением Аликс.

VAngeL86

Дата 8.5.2006, 05:18 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 29.4.2006
Где: Хабаровск

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

Цитата(Аликс @ 7.5.2006, 23:27

)

s=(sqr(x)*x)/5-(sqr(x)*x*x*x)/17+...+(-1)*sqr(n+1)*(x*sqr(2*n+1)/4*sqr(x)+1)+...

Ты уверен в правильности раставления скобок? Или у меня параноя или у тебя там ошибка smile

А вообще такие задачи ркшаются просто:
-пишешь функцию считающую слагаемое при произвольном n (что то типа

Код

Function Slag(x: real; n: word): real

)
-у тебя есть глобальная переменная (к примеру S) в которой хранится сумма и переменная (к примеру а) в которой хранится очередное слагаемое.
-пишешь цикл с пост условием

Код


i:=0; {если n начинается с 0}
S:=0;
repeat
a:=Slag(x, i);
S:=S+a;
inc(i);
until a<1E-3

После завершения цикла у тебя в переменной S будет храниться искомый результат!

Это сообщение отредактировал(а) VAngeL86 - 8.5.2006, 05:42

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