Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
xq
1 / 1 / 0
Регистрация: 14.09.2014
Сообщений: 372
1

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности

06.10.2014, 20:40. Показов 967. Ответов 2
Метки нет (Все метки)

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: b0=cos21; b1=sin21; bk=2 bk-1+ bk-2, где k=2,3,4, ∙∙∙ n.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2014, 20:40
Ответы с готовыми решениями:

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности
Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности: ...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности
Уважаемые учёные помогите с програмкой ( есле можно то с коментариями) Заранее огромное спасибо!! ...

2
xq
1 / 1 / 0
Регистрация: 14.09.2014
Сообщений: 372
07.10.2014, 12:35  [ТС] 2
апп
0
Заблокирован
07.10.2014, 13:42 3
Лучший ответ Сообщение было отмечено xq как решение

Решение

Есть такой вариант ...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses Crt;
var b1,b2,c1,c2: real;
    k: integer;
 
function b(k:integer):real;
begin
   if k=0 then b:= c1
      else
   if k=1 then b:= c2
      else
         begin
            b1:= 2*b(k-1);
            b2:= b(k-2);
            b:= b1 + b2;
         end
end;
 
BEGIN
   c1:= sqr(cos(1));
   c2:= sqr(sin(1));
   clrscr;
   writeln('K=?');
   readln(k);
   writeln('B = ',b(k):0:6);
   readln
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2014, 13:42

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (12/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...

Составить пользовательскую процедуру или функцию для вычисления произведения
Составить пользовательскую процедуру или функцию для вычисления произведения: (1/(1+1)2) * (...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru