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

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

30.10.2010, 01:13. Показов 1129. Ответов 1
Метки нет (Все метки)

Уважаемые учёные помогите с програмкой ( есле можно то с коментариями) Заранее огромное спасибо!! Составить пользовательскую процедуру или функцию для вычисления 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
30.10.2010, 01:13
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
30.10.2010, 10:14 2
Лучший ответ Сообщение было отмечено Rubal как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
function Bn(n:integer):real;//функция
var b0,b1,b:real;
    i:integer;
begin
b0:=cos(21);//нулевой
b1:=sin(21);//первый
for i:=2 to n do//от 2 и дальше
 begin
  b:=2*b1+b0;//по формуле
  b0:=b1;//первый станет нулевым
  b1:=b;//второй-первым и все повторяем
 end;
Bn:=b;//значение функции
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write('b[',n,']=',Bn(n):0:3);
readln
end.
Считает все в радианах, так что если захочешь сверить с калькулятором, то там тоже считай в радианах
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2010, 10:14

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

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

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

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


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

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

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