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

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

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

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2016, 19:35   #1
MooonyCat
 
Регистрация: 16.11.2016
Сообщений: 8
По умолчанию (Pascal) Дан ряд, найти частичную сумму ряда(Ряд сходится к значению 1)

Дан ряд, найти частичную сумму ряда(Ряд сходится к значению 1)

Я не силен в pascal и совсем запутался, прошу помощи...
Что-то напечатал, но запутался.
Код:
Program lab2; 
var i,:Integer;
sum,e,a: real;
begin
ReadLn(e);
sum:=0;
repeat
a:=1/(i*(i*1)(i+2))
writeln('sum=',sum:0:5);
writeln('1=',1:0:5);
readln;
end.
MooonyCat вне форума Ответить с цитированием
Старый 19.11.2016, 20:02   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,474
По умолчанию

Цитата:
Сообщение от MooonyCat Посмотреть сообщение
но запутался.
Я тоже. Непонятно:
- чему равна в начале переменная i, и как она меняется
- где волшебное слово until для repeat, то есть до каких пор будут печататься нули ( ибо sum=0 и никак не изменяется)
- для чего вам переменная e, если вы ее не используете
- и т.д.
type_Oleg вне форума Ответить с цитированием
Старый 19.11.2016, 20:26   #3
MooonyCat
 
Регистрация: 16.11.2016
Сообщений: 8
По умолчанию

Спасибо, так лучше ?
Код:
Program lab2; 
var i,:Integer;
sum a,: real;
begin
write('n=');
readln(n);
sum:=0;
for i:=1 to n do
 begin
a:=1/(i*(i+1)(i+2))
writeln('sum=',sum:0:5);
writeln('1=',1:0:5);
readln;
end.
MooonyCat вне форума Ответить с цитированием
Старый 19.11.2016, 21:37   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Код:
Program lab2;
var i:Integer;
  sum,e,a: real;
begin
  ReadLn(e);
  sum:=0;
  i := 0;
  repeat
      inc(i);
      a:=1/(i*(i+1));
      sum:=sum+a;
  until a<e;
  writeln('sum=',sum:0:5,' iteration ',i);
  readln;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 20.11.2016, 20:08   #5
MooonyCat
 
Регистрация: 16.11.2016
Сообщений: 8
По умолчанию

Огромное спасибо !
MooonyCat вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построить прямоугольники в два ряда по четыре прямоугольника в ряд и заполнить их различными типами штриховки (Pascal ABC) Evgenii_95 Паскаль, Turbo Pascal, PascalABC.NET 2 12.12.2014 08:17
программа, вычисляющую частичную сумму ряда Sn с заданной пользователем точностью alexandrmalov Помощь студентам 1 04.06.2014 17:13
Из заданного целого ряда чисел размерности N получить новый ряд, состоящий из отрицательных членов ряда, кратных 5 ( Паскаль ) ВикторИО Паскаль, Turbo Pascal, PascalABC.NET 9 17.03.2013 17:00
Даны числовой ряд и некоторое число e>0. Найти сумму тех членов ряда, которые по модулю больше или равны e DevilSkyS Помощь студентам 4 04.12.2012 19:19
Найти сумму ряда с точностью e, если дан общий член этого ряда JiLiYa Общие вопросы C/C++ 2 18.02.2009 11:11