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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.12.2019, 14:31   #1
Rixoz
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 12
По умолчанию Найти сумму ряда PASCAL TURBO

Пример кода
Код:
program prim5;
Var
n:integer;
s,s1,a,eps:Real;
BEGIN
Write('Vvedite eps=');
Read(eps);
n:=0;
a:=1;
s:=a;
repeat
s1:=s;
a:=(-1)*a*(1+n*n*n)/(1+(n+1)*(n+1)*(n+1));
s:=s+a;
n:=n+1;
WriteLn('s=',s:8:4, ' |s-s1|=', abs(s-s1):7:3);
until abs(s-s1)<eps;
ReadLn;
ReadLn
END.
Изображения
Тип файла: png 66666.png (7.1 Кб, 10 просмотров)
Тип файла: png 6666666.png (1.0 Кб, 10 просмотров)
Rixoz вне форума Ответить с цитированием
Старый 08.12.2019, 15:24   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var eps,s,s1:real;
    n,_2n,znak:integer;
begin
   Write('Vvedite eps = '); Readln(eps);
   n:=1;
   s:=-0.5;
   _2n:=2;
   znak:=-1;
   Repeat
      Inc(n);
      znak:=-znak;
      _2n:=_2n*2;
      s1:=znak/_2n/n;
      s:=s+s1;
   Until Abs(s1)<eps;
   Writeln(s:0:5);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 08.12.2019, 15:24   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var eps,s,s1:real;
    n,_2n,znak:integer;
begin
   Write('Vvedite eps = '); Readln(eps);
   n:=1;
   s:=-0.5;
   _2n:=2;
   znak:=-1;
   Repeat
      Inc(n);
      znak:=-znak;
      _2n:=_2n*2;
      s1:=znak/_2n/n;
      s:=s+s1;
   Until Abs(s1)<eps;
   Writeln(s:0:5);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 08.12.2019, 15:36   #4
Rixoz
Пользователь
 
Регистрация: 08.12.2019
Сообщений: 12
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
Код:
var eps,s,s1:real;
    n,_2n,znak:integer;
begin
   Write('Vvedite eps = '); Readln(eps);
   n:=1;
   s:=-0.5;
   _2n:=2;
   znak:=-1;
   Repeat
      Inc(n);
      znak:=-znak;
      _2n:=_2n*2;
      s1:=znak/_2n/n;
      s:=s+s1;
   Until Abs(s1)<eps;
   Writeln(s:0:5);
   Readln;
end.
_2n - почему такое значение?
Rixoz вне форума Ответить с цитированием
Старый 08.12.2019, 15:44   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Так я захотел переменную назвать
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти частичную сумму ряда(Pascal) Marta_Marta Помощь студентам 2 27.10.2019 18:33
(Pascal) Дан ряд, найти частичную сумму ряда(Ряд сходится к значению 1) MooonyCat Помощь студентам 4 20.11.2016 20:08
Найти сумму ряда (pascal) loctar Помощь студентам 3 05.06.2014 00:38
Найти сумму ряда (Pascal) pitak Помощь студентам 1 17.12.2013 18:19
Найти сумму ряда чисел(Pascal) xhatex Помощь студентам 1 19.01.2013 21:09