Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
lera-tus
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 9
#1

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

18.11.2013, 23:45. Просмотров 517. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста! Найдите ошибку.
Вычислить сумму ряда с точностью eps=10-4 http://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\propto }\(-1)^{n-1}\left(1+1/n \right){x}^{n-1}
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program sum;
uses crt;
Var x, eps, a, s: real; n,z: integer;
begin
clrscr;
writeln ('vvedite x, eps'); readln(x,eps);
    z:=1; s:=0; n:=1;
while abs(a)>=eps do
begin
a:=z*(1+1/n)*(exp(ln(x)*(n-1)));
s:=s+a;
n:=n+1;
z:=-z;
end;
writeln('summa=',s:8:4);
writeln('chlenov  riada=',n:4);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.11.2013, 23:45
Ответы с готовыми решениями:

Вычислить сумму ряда с заданной точностью
Что-то набросал, но выдает ошибку Вещественное деление на 0 в 15 строке*, да и...

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

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

Вычислить сумму ряда с заданной точностью
var k:integer; s,p:real; Function factorial(n:integer):integer; var...

Вычислить сумму ряда с заданной точностью
Ввести с клавиатуры x и точность вычисления Esp. Вычислить с заданной точностью...

2
Cyborg Drone
Модератор
5287 / 3161 / 2441
Регистрация: 17.08.2012
Сообщений: 10,154
19.11.2013, 03:03 #2
lera-tus, внимание! ряд при |x| >= 1 расходится! Вероятно, сиё есть главный непротык. Так что... Вы верно переписали задание?
Начнём. Работа над ошибками.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program sum;
uses crt; //что, сила привычки? Так необходимо управлять экраном?
Var x, eps, a, s: real; n,z: integer;
begin
clrscr; //экран чистить обязательно?
writeln ('vvedite x, eps'); readln(x,eps);
    z:=1; s:=0; n:=1;
while abs(a)>=eps do //переменная a ещё не определена, но уже используется, некорректно это
                     //и вообще, если переменная не инициализирована, то она равна нулю
begin
a:=z*(1+1/n)*(exp(ln(x)*(n-1))); //не стоит так вычислять x^(n-1), можно ведь рекуррентно
                                 //да, а если x <= 0? Сразу ошибка вычисления логарифма от отрицательного числа
s:=s+a;
n:=n+1;
z:=-z; //лишняя переменная
end;
writeln('summa=',s:8:4);
writeln('chlenov  riada=',n:4); //думаете, 9999 членов всегда достаточно?
end. //программу неплохо было бы приостановить, иначе как увидеть результат?
Теперь подрихтуем. Кувалдой.
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
program sum;
 
var x, eps, a, s: real;
    n: integer;
 
begin
  repeat
    write('x = ');
    readln(x);
    if abs(x) >= 1 then writeln('|x| may be < 1, reenter.')
  until abs(x) < 1;
  write('eps = ');
  readln(eps);
  eps := abs(eps);
  s := 0;
  n := 1;
  a := 1;
  while abs(a * (1 + 1 / n)) > eps do
    begin
      s := s + a * (1 + 1 / n);
      a := (-1) * x * a;
      n := n + 1;
    end;
  writeln('Sum = ', s:8:4);
  writeln('Count = ', n);
  readln
end.
1
lera-tus
0 / 0 / 0
Регистрация: 08.05.2013
Сообщений: 9
19.11.2013, 21:23  [ТС] #3
Спасибо большое и за помощь, и за разъяснение!)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2013, 21:23

Вычислить сумму ряда с заданной точностью
Program lab3; Const eps=5e-5; var h,s,p:real; f,n,n1,st,b:integer;...

Вычислить сумму ряда с заданной точностью
При заданном х=0.3 вычислить сумму N членов ряда с точностью e&lt;=0.0001...

Вычислить сумму ряда с заданной точностью
При заданном х=0.75 вычислить сумму N членов ряда с точностью e&lt;=0.0001...


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

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

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