Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2017, 15:10   #1
Marinaaaa
Новичок
Джуниор
 
Регистрация: 17.10.2017
Сообщений: 1
По умолчанию задача сумма бесконечно убывающего ряда. прога на паскаль

Нахождение суммы бесконечно убывающего ряда. Написать программу суммирования ряда, приведенного в таблице, при одном и том же значении аргумента и 2-х значениях точности, отличающихся друг от друга более чем на порядок. Сравнить полученные результаты с точным значением и сделать вывод о схождении ряда. Вычисления заканчивать при достижении заданной степени точности (т.е. когда очередной член ряда становится по модулю меньше введенного значения точности ɛ).

названия столбцов: ряд. ограничение. точное значение.

объясните, пожалуйста, как решать. я вообще задания не поняла....
Изображения
Тип файла: jpg DHTc4bOgR7U.jpg (5.1 Кб, 70 просмотров)

Последний раз редактировалось Marinaaaa; 17.10.2017 в 15:17.
Marinaaaa вне форума Ответить с цитированием
Старый 17.10.2017, 15:18   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,706
По умолчанию

Код:
повторять
  новый_член_ряда = ...
  игрек = игрек + новый_член_ряда
пока модуль(новы_член_ряда) больше точности
p51x вне форума Ответить с цитированием
Старый 23.10.2017, 16:17   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const e=0.0000001;
var x,y,yi,st:real;
    i:integer;
begin
   Write('x = '); Readln(x);
   y:=1;
   st:=1;
   i:=0;
   Repeat
      Inc(i);
      st:=st*x;
      yi:=st/i;
      y:=y+yi;
   Until Abs(yi)<e;
   Writeln(y:5:8);
   y:=1-Ln(1-x);
   Writeln(y:5:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение суммы бесконечно убывающего ряда. PascalABC alex-y Паскаль, Turbo Pascal, PascalABC.NET 2 14.11.2016 22:07
Сумма бесконечно сходящегося ряда Анастасия93 Помощь студентам 10 28.11.2012 00:53
сумма ряда в Паскаль Витя007 Помощь студентам 8 31.10.2012 16:29