Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 08.12.2019, 14:31   #1
Rixoz
 
Регистрация: 08.12.2019
Сообщений: 4
По умолчанию Найти сумму ряда 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,806
По умолчанию

Код:
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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 08.12.2019, 15:24   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,806
По умолчанию

Код:
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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 08.12.2019, 15:36   #4
Rixoz
 
Регистрация: 08.12.2019
Сообщений: 4
По умолчанию

Цитата:
Сообщение от 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,806
По умолчанию

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840