VPF::[Pascal] Программа суммы ряда - Форум программистов

Oriander

Дата 16.12.2009, 22:23 (ссылка)

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

Загрузка ...

Шустрый

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

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

Уважаемые знатоки, помогите написать 2 программы
нахождения суммы ряда с указанной точностью.
1-я программа - с передусловием, а 2-я - с послеусловием.

(сигма)Е от n=1 до бесконечности =
= exp(ln(0.5)*n)*cos(2*n)

Я лекцию пропустил, гугл не помог.
Пытался что-то сделать - так в обеих
программах разные ответы получались.
Не могу понять саму логику этой самой "точности".
Как находить сумму ряда на заданном интервале
(не до бесконечности) я знаю. Помогите разобраться.
smile

mr.Anderson

Дата 17.12.2009, 00:30 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

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

Добавлено через 3 минуты и 57 секунд
ЗЫ с пред- и постусловием программа реализуется практически одинаково.

--------------------

Oriander

Дата 17.12.2009, 17:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо. Посмотрите что у меня получилось.
Ответы разные. В передусловии 0 выходит,
а в послеусловии -2.5

Код


program ss;
uses crt;
const E=0.01;
var s,tek:real; n:integer;
begin
     clrscr;
     s:=0; n:=1;
     while tek>E do
     begin
                tek:=exp(ln(0.5)*n)*cos(2*n);
                s:=s+tek;
                n:=n+1;
     end;
     writeln('s=',s:8:5);
     writeln('kilkist dodankiv=',n);
     readln
end.

Код


program ss;
uses crt;
const E=0.01;
var s,tek:real; n:integer;
begin
     clrscr;
     s:=0; n:=0;
     repeat
                n:=n+1;
                tek:=exp(ln(0.5)*n)*cos(2*n);
                s:=s+tek;

     until E<tek;
     writeln('s=',s:8:5);
     writeln('kilkist dodankiv=',n);
     readln
end.

mr.Anderson

Дата 17.12.2009, 19:03 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Во втором коде постусловие неправильное.

Код

until E<tek;

Заменить на

Код

until tek < E;

А так на первый взгляд все вроде бы правильно.

--------------------

Oriander

Дата 17.12.2009, 19:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

- 0.2 выходит во второй после советуемых вами корректировок,
а это не совпадает с ответом
первой программы, где ответ = 0.

Уже об стену бьюсь ничего понять не могу...

mr.Anderson

Дата 17.12.2009, 20:48 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Дай точный код обеих программ (подправленных) и попробуй уменьшить точность до 0.001... Не вижу ошибки в коде.

--------------------

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