Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Kamikadze1604
0 / 0 / 0
Регистрация: 03.10.2017
Сообщений: 10
1

Разработать алгоритм и программу вычисления и вывода первых 12-ти членов последовательности

24.10.2017, 19:26. Просмотров 1039. Ответов 2

Разработать алгоритм и программу вычисления и вывода первых 12-ти членов последовательности, заданной рекуррентной формулой an+2=(1-an+1)/(1+an) и условиями a1=1, a2=2.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2017, 19:26
Ответы с готовыми решениями:

Разработать алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы
Последовательность задана рекуррентной формой {a}_{n+1}=sin\left(\frac{\pi...

Составить программу вычисления суммы первых n членов последовательности (k=1,2,3.,n)
Составить программу вычисления суммы первых n членов последовательности...

Составьте программу вычисления первых десяти членов последовательности, заданной формулами
Пожааалуйста помогите 1. Составьте программу вычисления первых десяти членов...

Составьте программу вычисления первых шести членов последовательности {An} с общим членом An=n^3
Составьте программу вычисления первых шести членов последовательности {An} с...

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

2
Puporev
Модератор
55479 / 42580 / 29429
Регистрация: 18.05.2008
Сообщений: 100,730
24.10.2017, 19:44 2
Лучший ответ Сообщение было отмечено Kamikadze1604 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a1,a2,a:real;
    i:byte;
begin
a1:=1;
a2:=2;
write(a1:0:2,' ',a2:0:2);
for i:=1 to 10 do
 begin
  a:=(1-a2)/(1+a1);
  write(' ',a:0:2);
  a1:=a2;
  a2:=a;
 end;
readln
end.
Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a1,a2,a:real;
    i:byte;
begin
a1:=1;
a2:=2;
write(a1:0:2,' ',a2:0:2);
for i:=1 to 10 do
 begin
  a:=(1-a2)/(1+a1);
  write(' ',a:0:2);
  a1:=a2;
  a2:=a;
 end;
readln
end.
1
Kamikadze1604
0 / 0 / 0
Регистрация: 03.10.2017
Сообщений: 10
24.10.2017, 20:26  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2017, 20:26

Разработать алгоритм и составить программу вычисления и вывода на дисплей таблицы значений функции
Разработать алгоритм и составить программу вычисления и вывода на дисплей...

Составить программу вычисления первых 10 членов последовательности
помогите решить 1- составить программу вычисления значения функций y=Xкв/2...

Вычисления суммы первых n членов последовательности
Как написать программу вычисления суммы первых n членов последовательности...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru