2 / 2 / 2
Регистрация: 12.03.2015
Сообщений: 49
1

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

16.06.2015, 16:01. Показов 676. Ответов 1
Метки нет (Все метки)

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\sum_{i=1}^\infty {e}^{-\sqrt[5]{i}}<br />

При приближенном вычислении суммы ряда расчет выполнять с точностью E. Использовать цикл с предусловием и цикл с постусловием.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
program pr_dv2;
uses crt;
label m1;
var x,y,a,b,h,s,ds,e:real;
k,n,i:integer;
begin
m1:clrscr;
gotoxy(17,1);
writeln('Практическое задание №3. Операторы цикла');
gotoxy(30,2);
write('Вариант № 1');
gotoxy(5,4);
writeln('Программу соcтавил: ');
gotoxy(50,4);
write('студент группы РП-2013 <028>');
gotoxy(50,5);
writeln('Домашенко Виталий');
writeln;
gotoxy(35,7);
Writeln('Меню');
gotoxy(25,9);
writeln('1 - решение первой задачи');
gotoxy(25,10);
writeln('2 - решение второй задачи');
gotoxy(25,11);
writeln('3 - выход');
gotoxy(25,12);
writeln('Сделайте выбор:');
gotoxy(40,12);
readln(k);
case k of
1:begin
clrscr;
gotoxy(27,1);
writeln('Решение первой задачи');
writeln;
writeln('Cчитаем функцию x-sin(x) с помощью цикла с предусловием While ');
writeln('**********************************');
writeln('* № Точки *     x     *    y     *');
writeln('**********************************');
h:=(pi-pi/2)/15;
x:=pi/2;
n:= 1;
writeln('*   ',n:2, '    *  ', x:0:5,'  *',y:9:5,' *');
x:=x+h;
n:=n+1;
while x <= pi do
begin
y:=sin(x)/cos(x)+cos(x);
writeln('*   ',n:2, '    *  ', x:0:5,'  *',y:9:5,' *');
x := x+h;
n:=n+1;
end;
writeln('**********************************');
readln;
writeln('Cчитаем функцию x-sin(x) с помощью цикла с постусловием repeat until');
writeln('************************************');
writeln('* № Точки *     x     *    y     *');
writeln('**********************************');
x:=pi/2;
n:= 1;
writeln('*   ',n:2, '    *  ', x:0:5,'  *',y:9:5,' *');
x:=x+h;
n:=n+1;
repeat
y:=sin(x)/cos(x)+cos(x);
writeln('*   ',n:2, '    *  ', x:0:5,'  *',y:9:5,' *');
x := x + h;
n:=n+1;
until x>pi;
writeln('**********************************');
readln;
goto m1;
end;
2:begin
clrscr;
gotoxy(27,1);
writeln('Решение второй задачи');
writeln;
writeln('Введите точность:');
gotoxy(18,3);
readln(e);
writeln('Cчитаем функцию с помощью цикла с предусловием While ');
i:=1;
 writeln('***********************');
   writeln('*  i *   Значение Y   *');
   writeln('***********************');
   ds:=exp(exp((1/5)*ln(i)));
   s:=ds;
   writeln('* ',i:2,' * ',ds:5:12,' *');
   While Abs(ds)>=e do
   begin
      i:=i+1;
      ds:=exp(exp((1/5)*ln(i)));
      s:=s+ds;
      writeln('* ',i:2,' * ',s:5:12,' *');
   end;
   writeln('***********************');
   Readln;
   writeln;
writeln('Cчитаем функцию с помощью цикла с постусловием repeat until');
   i:=1;
   s:=0;
   ds:=0;
   writeln('***********************');
   writeln('*  i *   Значение Y   *');
   writeln('***********************');
   Repeat
      ds:=exp(exp((1/5)*ln(i)));
      s:=s+ds;
      writeln('* ',i:2,' * ',s:5:12,' *');
i:=i+1;
   Until Abs(ds)<e;
   writeln('***********************');
   Readln;
end;
3: ;
else
writeln('Ошибка ввода');
readln;
goto m1;
end;
end.
2 - не получается посчитать функцию... идет перезаполнение
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2015, 16:01
Ответы с готовыми решениями:

Вычислить сумму ряда с точностью до члена ряда, меньшего заданной точности
Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего Е (заданная...

Вычислить сумму членов ряда с точностью до члена ряда
Помогите выполнить задание. Вычислить сумму членов для следующих рядов с точностью до члена ряда,...

Вычислить сумму членов ряда с точностью до члена ряда
Пожалуйста помогите выполнить задание. Вычислить сумму членов для следующих рядов с точностью до...

Вычислить сумму ряда с точностью E
Для заданного положительного E(эпселан) и заданного x вычислить сумму ряда с точностью E. Вывести...

1
Модератор
8616 / 4293 / 2956
Регистрация: 17.08.2012
Сообщений: 13,649
16.06.2015, 19:00 2
Минус пропустили.
Pascal
ds := exp(-exp(ln(i) / 5));
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2015, 19:00

Вычислить сумму ряда с точностью до E
1. составить программу вычисляющую сумму ряда с точностью до E(очередное слагаемое включается в...

Вычислить сумму ряда с точностью e
Дано положительное вещественное число e&lt;&lt;1. Вычислить сумму ряда с точностью e....

Вычислить сумму ряда с заданной точностью
Даны числовой ряд и некоторое число e.Найти сумму тех членов ряда,модуль которых больше или равен...

Вычислить сумму ряда с точностью эпсилон
Используя оператор цикла с постусловием, вычислить сумму ряда с точностью (эпсилон)=10^(-3)...

Вычислить сумму ряда с заданной точностью
Program Lab; uses crt; var i:Integer; x,y,sum,e,a:real; begin clrscr; Readln(e); Readln(x);...

Вычислить сумму ряда с точностью Eps
Дан такой ряд: Y=1-2*x+3*Sqr(X)-4*(X^3)+5*(X^4), с клавиатуры вводятся только X=(-1;1) и Езы......


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.