Вопрос по информатике:
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Найдите сумму элементов последовательности с точностью 0,001.
1) S=1+2/(2*3)-4/(3*9) +6/(5*27)-8/(8*81)+10/(13*243)-...
Ответ: S=1.220
Нужно решение
само решение!!!
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Пожаловаться
- 27.08.2018 22:51
- Информатика
- remove_red_eye 10397
- thumb_up 19
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var eps := 0.001;
var (s,tmp):= (1.0,0.0);
var i := 1; var k := 2.0;
var (a, fib):= (1,2);
while (abs(s-tmp) > eps)do
begin
tmp:= s;
s+= k / (fib * 3**i );
inc(i); k:= (abs(k) + 2)*k/abs(k); k *= -1;
(a,fib) := (fib, a + fib);
end;
Writeln(S);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var eps := 0.001;
var (s,tmp):= (1.0,0.0);
var i := 1; var k := 2.0;
var (a, fib):= (1,2);
while (abs(s-tmp) > eps)do
begin
tmp:= s;
s+= k / (fib * 3**i );
inc(i); k:= (abs(k) + 2)*k/abs(k); k *= -1;
(a,fib) := (fib, a + fib);
end;
Writeln(S);
end.
Пожаловаться
- 28.08.2018 13:31
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы