Вычислить с заданной точностью сумму ряда

@stewart · Регистрация: 03.04.2012

Author24 — интернет-сервис помощи студентам

а сможешь помочь вот с этим:
вычислить с заданной точностью сумму ряда (сумма от i=1 до бесконечности выражения (x*sin^2(x))/i

@igor_kz · 28.06.2012, 18:37

Pascal

CONST EPS = 1e-4;
 
Var x , i , s : real;
 
Begin
    Write('x = '); read(x);
    i := 1;
    s := 0;
    while (x * sqr(sin(x)) / i) > EPS do begin
        s := s + (x * sqr(sin(x))) / i;
        i := i + 1;
    end;
    WriteLn(s : 0 : 8);
End.

@stewart · 29.06.2012, 11:40 **[ТС]**

и у меня опять вопросы...))) нужно вычислить с заданной точностью сумму ряда. я сделал без точности, а как туда точность воткнуть не понимаю... нужно сделать так, чтоб точность тоже в ручную вводилась... щас скину код...

Добавлено через 3 минуты

Pascal

CONST EPS = 1e-4;
                {описание переменных}
Var x , i , s : real;
 
Begin
writeln('‹лаба №5.');
writeln('вычислить с заданной точностью сумму ряда');
writeln ( '.' );
{ввод исходных данных}
    Write('x = '); read(x);
    i := 1;
    s := 0;
    {проведение вычислений}
    while (x * sqr(sin(x)) / i) > EPS do begin
        s := s + (x * sqr(sin(x))) / i;
        i := i + 1;
    end;
    {вывод результатов}
    WriteLn(s : 0 : 8);
End.

@igor_kz · 29.06.2012, 11:48

Знакомый код

Просто, после Write('x = '); read(x);
Добавьте Write('EPS = '); read(EPS);
и удалите раздел констант

@stewart · 29.06.2012, 11:49 **[ТС]**

можно сказать слямзенный

@stewart 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 20
		1
	Вычислить с заданной точностью сумму ряда 28.06.2012, 18:32. Показов 11333. Ответов 4 Метки нет (Все метки) а сможешь помочь вот с этим: вычислить с заданной точностью сумму ряда (сумма от i=1 до бесконечности выражения (x*sin^2(x))/i 0

@igor_kz 154 / 154 / 81 Регистрация: 16.06.2012 Сообщений: 314
	29.06.2012, 11:48	4
	Знакомый код Просто, после Write('x = '); read(x); Добавьте Write('EPS = '); read(EPS); и удалите раздел констант 1

@stewart 0 / 0 / 0 Регистрация: 03.04.2012 Сообщений: 20
	29.06.2012, 11:49 [ТС]	5
	можно сказать слямзенный 0

Опции темы