Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сумма бесконечного ряда

Автор: groteur 10.10.2006 21:46

Здравствуйте, уважаемые :-)
Есть вот такой вот попросик...
Имеется ряд E= (-1)^N * X^2N / (2N)!
N=1
Так вот, надо определить с заданной точностью, а именно, с точностью cos(X) сумму бесконечного ряда.
Сам то алгоритм вычисленния данной суммы мне понятен, но вот с синтаксисом,а может и не только, есть проблемы

Код

program sum_besc_ryad;
uses
    crt;
const
    pi=3.14;
    lim=cos(x);
var
    n:integer;
    x:integer;
    sum:real;
    eps:real;
begin
    repeat
    ClrScr;
    Writeln ('Please, enter epsilon:');
    Readln (eps);
    Writeln ('Eps = ', Eps:8:6);
    Writeln;
    If (Eps<=0) or (Eps>=1)
    then
        begin
            Writeln ('bad epsilon (eps>1 or eps<0)');
            Readln;
        end;
    until (Eps>0) and (Eps<1);

    n:=0;
    x:=?;
    sum:=0;

    n:=n+1;

Это небольшие наброски. Как мне установить в const моё значение точности cos(x) ?И вообще, если не сложно, помогите доработать программу.
Надеюсь, вы мне поможете :-)

Автор: volvo 10.10.2006 21:49

Цитата

И вообще, если не сложно, помогите доработать программу.

Ты сначала программу полностью приведи. Как же можно дорабатывать то, чего нет?

Цитата

Как мне установить в const моё значение точности cos(x)

Что такое X? Где ты его задаешь?

Автор: groteur 10.10.2006 22:02

Цитата(volvo @ 10.10.2006 18:49)

Ты сначала программу полностью приведи. Как же можно дорабатывать то, чего нет?

Что такое X? Где ты его задаешь?

извините, но программы, как таковой, еще нет - есть только наброски , которые я привел выше.

а полностью задача выглядит так:

Определить с заданной точность сумму членов бесконечного ряда :

E(эпсилон)(-1)^N*X^2N/(2N)!=1-X^2/2!+X^4/4!-X6/6!+...
N=0
Предусмотреть ввод точности и значения аргумента Х, печать колличества просуммированных элементов, суммы, разности суммы и точного значения, которое равно: cos(X)

Автор: volvo 10.10.2006 22:06

Посмотри, как сделано здесь:
http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=44175
разложение в степенной ряд (в бесконечное произведение - не твой случай...)

Автор: groteur 10.10.2006 22:47

Посмотреть то посомтрел, но вот что-то не очень то разобрался, так как я до этой работы делал похожую задачу, но только более простого вида E=1/(4*n-1)*(4*n+1), где N=1 ( и без проблем справился ),а в FAQ'e, что Вы мне кинули не очень понятно мне, как человеку, только начинающему изучения паскаля
уважаемый volvo, не могли бы Вы мне помочь в данном случае с назначением переменных, так как в этом месте я и запутался...

Автор: volvo 10.10.2006 22:57

Цитата

я до этой работы делал похожую задачу, но только более простого вида E=1/(4*n-1)*(4*n+1)

Вот и объясни мне, ЧЕМ кардинально твое старое задание отличается от нового? Если ты справился без проблем, должен точно так же справиться и с этим заданием...

Или ввести с клавиатуры X - непосильная задача ?