| ← Март 2016 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
13
|
||
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
24
|
25
|
26
|
||
|
28
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Здравствуйте! Прошу помощи в следующем вопросе: Помогите пожалуйста составить программу для нахождения сумму бесконечного ряда с точностью Eps для x = 0.82
Дата отправки: 24.03.2016, 10:25 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, ogm1! Код (Pascal) :: выделить код Program sum;
const x =0.82;
var
eps,a,s: real;
i,n:integer;
begin
repeat
writeln( '0<eps<1 eps='); readln(eps);
until(0<eps)and(eps<1);
a:=x; s:=a;n:=0;
while abs(a)>eps do
begin
n:=n+1;
a:=-a*x*x/(2*n*(2*n+1));
s:=s+a;
end;
s:=4*s;
writeln ('s=', s:0:4);
{}
a:=x; s:=a;n:=0;
repeat
n:=n+1;
a:=-a*x*x/(2*n*(2*n+1));
s:=s+a;
until abs(a)<eps;
s:=4*s;
writeln ('s=', s:0:4);
{}
a:=x; s:=a;n:=0;
for n:=1 to 1000 do
begin
a:=-a*x*x/(2*n*(2*n+1));
s:=s+a;
if abs(a)<eps then break;
end;
s:=4*s;
writeln ('s=', s:0:4);
end.
Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
