Вычислить приближенное значение суммы бесконечного ряда

@pascal9812 · Регистрация: 11.10.2017

Вычислить приближенное значение суммы бесконечного ряда , до тех пор , пока очередное слагаемое не станет <E (наименьшее число).Для решения данной задачи воспользуйтесь операторами Repeat или While , найти формулу i-члена ряда (последовательности), проверить его на условие <E

вот пример
1-(1/3)+(1/5)-(1/7)+...

@Puporev · 19.10.2017, 16:19

Pascal

var i:integer;
    e,s:real;
begin
i:=1;
s:=1;
e:=0.00001;
while abs(1/(2*i-1))>e do
 begin
  i:=i+1;
  if odd(i) then  s:=s+1/(2*i-1)
  else s:=s-1/(2*i-1)
 end;
write('s=',s:0:5)
end.

@pascal9812 · 19.10.2017, 18:44 **[ТС]**

exitcode = 201 Free Pascal что делать?

Добавлено через 1 минуту
компиляция успешна , а вот запуск exitode 201

@Puporev · 19.10.2017, 18:52

Уменьшите точность

Pascal

1	e:=0.0001;

@pascal9812 · 19.10.2017, 18:57 **[ТС]**

уменьшил теперь как сказать, командная строка быстро открывается и закрывается.

@pascal9812 · 19.10.2017, 19:00 **[ТС]**

вот скрин

@pascal9812 · 19.10.2017, 19:02 **[ТС]**

вот скрин 2

@Puporev · 19.10.2017, 19:03

Сообщение от pascal9812

командная строка быстро открывается и закрывается

Так Вам же влом было создать тему в разделе Free Pascal, а я не телепат.
Вставьте перед последним end.

Pascal

readln

Или нажимайте Alt+F5.

@pascal9812 0 / 0 / 0 Регистрация: 11.10.2017 Сообщений: 18
		1
	Вычислить приближенное значение суммы бесконечного ряда 19.10.2017, 15:33. Показов 1122. Ответов 7 Метки нет (Все метки) Вычислить приближенное значение суммы бесконечного ряда , до тех пор , пока очередное слагаемое не станет <E (наименьшее число).Для решения данной задачи воспользуйтесь операторами Repeat или While , найти формулу i-члена ряда (последовательности), проверить его на условие <E вот пример 1-(1/3)+(1/5)-(1/7)+... 0

@pascal9812 0 / 0 / 0 Регистрация: 11.10.2017 Сообщений: 18
	19.10.2017, 18:44 [ТС]	3
	exitcode = 201 Free Pascal что делать? Добавлено через 1 минуту компиляция успешна , а вот запуск exitode 201 0

@pascal9812 0 / 0 / 0 Регистрация: 11.10.2017 Сообщений: 18
	19.10.2017, 18:57 [ТС]	5
	уменьшил теперь как сказать, командная строка быстро открывается и закрывается. 0

@pascal9812 0 / 0 / 0 Регистрация: 11.10.2017 Сообщений: 18
	19.10.2017, 19:00 [ТС]	6
	вот скрин Миниатюры 0

@pascal9812 0 / 0 / 0 Регистрация: 11.10.2017 Сообщений: 18
	19.10.2017, 19:02 [ТС]	7
	вот скрин 2 Миниатюры 0

Опции темы