Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 181658
28.12.2010, 11:29
55.00 руб.
0 9 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Даны действительные числа
x, ε (x≠0, ε >0). Вычислить с -3, -4, -5, -6, точностью ε (ε =10, 10, 10, 10) сумма ряда и указать количество учтенных слагаемых.
Результат оформить в виде таблицы:
[table]
[row][col]ε [/col][col]Сумма [/col][col]N[/col][/row]
[row][col] 10-3-(где 3 это степень)[/col][col] [/col][col] [/col][/row]
[row][col] 10-4[/col][col] [/col][col] [/col][/row]
[row][col] 10-5[/col][col] [/col][col] [/col][/row]
[row][col] 10-6 [/col][col] [/col][col] [/col][/row]
[/table]
ε Сумма N

10-3

10-4

10-5

10-6
Ограничимся рассмотрением первых 10-и членов

∞ (-1)К 2(К+1)
5) ∑ ----------------- (х/2)
к=0 ((К+1)!) 2

Спасибо!
SviatovNN@mail.ru

Обсуждение

Неизвестный
28.12.2010, 11:37
общий
в прикреплении покрасивей всё выглядит!
Прикрепленные файлы:
6a0e202b5144ee018fc96acc5354643f.doc
скачать (27.00 кБ)
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
28.12.2010, 13:27
общий
Цитата: 356182
в прикреплении покрасивей всё выглядит!

С формулами тоже:
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
28.12.2010, 14:01
общий
Если не заниматся графическим рисованием таблиц, то результат в таком виде:
Код:
x:=  -3.00000
  0.00100000     1.26004086    6
  0.00010000     1.26005235    7
  0.00001000     1.26005194    8
  0.00000100     1.26005194    8
x:=  -4.00000
  0.00100000     1.39718821    7
  0.00010000     1.39714790    8
  0.00001000     1.39714989    9
  0.00000100     1.39714981   10
x:=  -5.00000
  0.00100000     1.17760334    9
  0.00010000     1.17759643   10
  0.00001000     1.17759643   10
  0.00000100     1.17759679   11
x:=  -6.00000
  0.00100000     0.84933622   10
  0.00010000     0.84935591   11
  0.00001000     0.84935468   12
  0.00000100     0.84935475   13
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Лысков Игорь Витальевич
Посетитель
7438
7205
28.12.2010, 14:32
общий
Можно убрать пару скобочек:

Можно и так:
Код:

   ∞      (-1)К                   
5) ∑ -------------(х/2)2(К+1)
  к=0   ((К+1)!)2
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Неизвестный
28.12.2010, 15:08
общий
это ответ
Здравствуйте!

Код в приложении.
Turbo Pascal 7.0

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



Приложение:
uses crt;
var x, eps, memb {член ряда}, sum {сумма ряда}: real;
i,n: byte;
koef: shortint; {Учёт смены знака члена ряда}
begin
clrscr;
write('X=');
readln(x);
eps:=1e-2;
for i:=1 to 4 do {Для 4-х разных Eps}
begin
eps:=eps/10;
n:=0;
koef:=1;
memb:=sqr(x/2); {Нулевой член ряда (при k=0)}
sum:=0;
while memb>eps do
begin
sum:=sum+koef*memb;
koef:=-koef; {меняем знак, с которым добавляется очередной член ряда}
inc(n);
memb:=memb*sqr(x/2)/sqr(n+1);
end;
writeln(': ',eps:8:6,' :',sum:9:6,' : ',n,' :');
end;
readkey
end.
5
Спасибо большое за рабочий, подробный, быстрый ответ!
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
28.12.2010, 16:20
общий
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
28.12.2010, 16:34
общий
Уважаемые модераторы и остальные участники проекта , я учту ваши замечания по поводу красивого написания формул и обязательно освою весь функционал вашего сайта, это было моё первое появление очень рад что нашел ваш благородный ресурс. Спасибо всем за помощь!
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
28.12.2010, 16:54
общий
Код тоже ТР7, рисующий с помощью псевдо графики:
[code h=200]program q181658;
var
a:real;{промежуточное значение}
s:real;{сумма}
e:real;{точность}
x:real;{начальное значение}
k:integer;{индекс}
z0,z1,z2,z3:string;{строки рисования таблиц}
{функция факториала}
function F(a:integer):real;
begin
if a>0 then F:=F(a-1)*a
else F:=1.0;
end;
{функция степени}
function P(a:real;b:integer):real;
var
c:real;
begin
c:=1;
while b>0 do
begin
c:=c * a;
dec(b);
end;
P:=c;
end;
begin
z0:='';
for k:=1 to 42 do z0:=z0+chr(205);
z1:=z0;
z2:=z0;
z3:=z0;
z0[1]:=chr(201);z0[42]:=chr(187);
z1[1]:=chr(204);z1[16]:=chr(203);z1[34]:=chr(203);z1[42]:=chr(185);
z2[1]:=chr(204);z2[16]:=chr(206);z2[34]:=chr(206);z2[42]:=chr(185);
z3[1]:=chr(200);z3[16]:=chr(202);z3[34]:=chr(202);z3[42]:=chr(188);
x:=-3.0;{начальное значение}
while x>-7.0 do
begin
writeln(z0);
writeln(chr(186),'x:=',x:10:5,chr(186):28);
writeln(z1);
writeln(chr(186),'epsilon':10,chr(186):5,'summa':10,chr(186):8,'N':4,chr(186):4);
writeln(z2);
e:=1E-3;
repeat
k:=0;{clear index summa}
s:=0.0;{clear summa}
repeat
a:=(1-2*(k mod 2))*{считаем знак}
P(x/2,2*(k+1))/{считаем степень}
(F(k+1)*F(k+1));{считаем факториал}
inc(k);{следующий инндекс}
s:=s+a;{суммируем}
until e>abs(a);
writeln(chr(186),e:12:8,chr(186):3,s:15:8,chr(186):3,k:5,chr(186):3);{результат}
e:=e/10;{новая точность}
until e<1E-6;
writeln(z3,chr(13),chr(10));
x:=x-1;{новое значение}
end;
readln;
end.[/code]
Удачи на портале!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Лысков Игорь Витальевич
Посетитель
7438
7205
28.12.2010, 17:04
общий
Оставайтесь с нами!
Об авторе:
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен
Форма ответа