Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Vladislav233
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
#1

Составить программу для вычисления суммы бесконечного ряда с погрешностью ε = 10-3 - Turbo Pascal

06.10.2013, 13:08. Просмотров 707. Ответов 4
Метки нет (Все метки)

Составить программу для вычисления суммы бесконечного ряда с погрешностью ε.
а) Процесс суммирования прекращается, как только выполнится неравенство |Uk|<ε где Uk -текущий член ряда суммирования.
b) Процесс суммирования прекращается, как только выполнится неравенство |Uk-Uk-1|<ε где Uk
текущий член ряда суммирования, а Uk-1 -предыдущий член ряда.
Название: Снимок.JPG
Просмотров: 84

Размер: 9.3 Кб
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 13:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составить программу для вычисления суммы бесконечного ряда с погрешностью ε = 10-3 (Turbo Pascal):

Составить программу для вычисления суммы бесконечного ряда с погрешностью ε - Turbo Pascal
Здравствуйте, помогите пожалуйста решить задачу Составить программу для вычисления суммы бесконечного ряда с погрешностью ε. а)...

Составить программу для вычисления суммы бесконечного ряда с погрешностью ε - Turbo Pascal
Составить программу для вычисления суммы бесконечного ряда с погрешностью ε. а) Процесс суммирования прекращается, как только...

Составить блок-схему алгоритма и программу для вычисления суммы бесконечного сходящегося ряда - Turbo Pascal
Добрый день! Помогите, пожалуйста, решить задачу. Составить блок-схему алгоритма и программу для вычисления суммы бесконечного...

Вычисления суммы бесконечного ряда с заданной погрешностью - Turbo Pascal
:cry:вычисления суммы бесконечного ряда с заданной погрешностью. Значение Х вводится с клавиатуры. На экран вывести значение суммы и число...

Составить программу вычисления суммы ряда с точностью ε - Turbo Pascal
Народ помогите пожалуйста решить задачки на паскале!!! . Сам ни фига не понимаю. Составить программу вычисления суммы ряда с...

Составить программу вычисления суммы/произведения элементов бесконечного ряда - Turbo Pascal
Прошу, помогите пожалуйста составить программу в Pascal ABC, вычисляющую сумму и произведение N элементов бесконечного числового ряда. Где...

4
erl27
890 / 739 / 432
Регистрация: 06.09.2013
Сообщений: 1,561
06.10.2013, 13:38 #2
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
uses
  crt;
const
  epsilon = 0.001;
  
var
  k, koef: integer;
  S, U0, U: real;
 
begin
  clrscr;
  writeln('a)|Uk| < 0.001');
  writeln;
  k := 1;
  koef := -1;
  U := -1;
  S := U;
  repeat
    inc(k);
    koef := - koef;
    U := koef / sqrt(k);
    S += U
  until abs(U) < epsilon;
  writeln('результат: ', S);
  writeln('b)|Uk - Uk-1| < 0.001');
  writeln;
  k := 1;
  koef := -1;
  U := -1;
  S := U;
  repeat
    U0 := U;
    inc(k);
    koef := - koef;
    U := koef / sqrt(k);
    S += U  
  until abs(U - U0) < epsilon;
  writeln('результат: ', S);
end.
1
Vladislav233
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
06.10.2013, 14:04  [ТС] #3
Выдает ошибку 207: Ошибочная операция с плавающей запятой
0
erl27
890 / 739 / 432
Регистрация: 06.09.2013
Сообщений: 1,561
06.10.2013, 15:17 #4
тогда попробуй так:

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
uses
  crt;
  
var
  k, koef: integer;
  epsilon, S, U0, U: real;
 
begin
  clrscr;
  epsilon := 1 / 1000;
  writeln('a)|Uk| < 0.001');
  writeln;
  k := 1;
  koef := -1;
  U := -1;
  S := U;
  repeat
    inc(k);
    koef := - koef;
    U := koef / sqrt(k);
    S += U
  until abs(U) < epsilon;
  writeln('результат: ', S);
  writeln;
  writeln('b)|Uk - Uk-1| < 0.001');
  writeln;
  k := 1;
  koef := -1;
  U := -1;
  S := U;
  repeat
    U0 := U;
    inc(k);
    koef := - koef;
    U := koef / sqrt(k);
    S += U  
  until abs(U - U0) < epsilon;
  writeln('результат: ', S);
end.
1
Vladislav233
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
06.10.2013, 19:09  [ТС] #5
та я уже сам догадался)) спасибо
0
06.10.2013, 19:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 19:09
Привет! Вот еще темы с ответами:

Сумма бесконечного ряда с погрешностью ε. - Turbo Pascal
Составить программу для вычисления суммы бесконечного ряда с погрешностью ε. а) Процесс суммирования прекращается, как только выполнится...

Сумма бесконечного ряда с погрешностью ε. - Turbo Pascal
Составить программу для вычисления суммы бесконечного ряда с погрешностью ε. а) Процесс суммирования прекращается, как только...

Составить программу вычисления корня с погрешностью ε=0,0001 методом половинного деления - Turbo Pascal
Составить программу вычисления корня с погрешностью ε=0,0001 методом половинного деления для ф-ии y=x^2+ln(x)-5 на интервале заранее...

Составить программу для вычисления бесконечного ряда - Turbo Pascal
Составить программу для вычисления бесконечного ряда с погрешностью е. а)Процесс суммирования прекращается, как только выполняется...


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

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

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