Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Шархан
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 148
#1

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

26.10.2012, 23:47. Просмотров 595. Ответов 10
Метки нет (Все метки)

Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности: b0=cos21; b1=sin21; bk=2 bk-1+ bk-2, где k=2,3,4, ••• n.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2012, 23:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности (Turbo Pascal):

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: b0=cos21; b1=sin21; bk=2 bk-1+ bk-2, где...

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: b0=cos21; b1=sin21; bk=2 bk-1+ bk-2, где...

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

Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности - Turbo Pascal
Составить пользовательскую процедуру или функцию для вычисления n-ого члена последовательности: b0=cos21; b1=sin21; bk=2 bk-1+ bk-2, где...

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

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

10
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
27.10.2012, 08:57 #2
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
uses crt;
function Bn(k:integer):real;
var i:integer;
    b,b0,b1:real;
begin
b0:=cos(21);
b1:=sin(21);
for i:=2 to k do
 begin
  b:=2*b1+b0;
  b0:=b1;
  b1:=b;
 end;
Bn:=b;
end;
var k:integer;
begin
clrscr;
repeat
write('Введите целое число k>1 k=');
readln(k);
until(k>1);
write('Значение функции=',Bn(k):0:3);
readln
end.
0
Fabregas_
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 2
26.11.2012, 02:26 #3
cos и sin в квадрате, а не 21
а где b - там степени
0
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
26.11.2012, 08:55 #4
Цитата Сообщение от Fabregas_ Посмотреть сообщение
cos и sin в квадрате, а не 21
а где b - там степени
Ну и засунь это себе куда-нибудь, впредь будешь думать как правильно написать.
0
Шархан
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 148
27.11.2012, 00:29  [ТС] #5
вообще то правельно написали и не надо
Спасибо
0
HighPredator
5554 / 1867 / 348
Регистрация: 10.12.2010
Сообщений: 5,472
Записей в блоге: 3
27.11.2012, 17:16 #6
Цитата Сообщение от Шархан Посмотреть сообщение
вообще то правельно написали и не надо
Вы где тут видите квадраты?
Цитата Сообщение от Шархан Посмотреть сообщение
b0=cos21;
Цитата Сообщение от Шархан Посмотреть сообщение
b1=sin21;
То же самое по степеням. Как условие записали, такой и ответ. А телепаты все на Юпитере. Были.
0
Шархан
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 148
30.11.2012, 12:36  [ТС] #7
Я просто хз как правельно написать ворд могу кинуть и там будет написано
0
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
30.11.2012, 12:41 #8
Может так
b0=cos^2(1); b1=sin^2(1); bk=2 bk-1+ bk-2, где k=2,3,4, ••• n.

Добавлено через 2 минуты
Тогда просто переписать в функции
Pascal
1
2
b0:=sqr(cos(1));
b1:=sqr(sin(2));
неужели так трудно самому?
0
Шархан
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 148
30.11.2012, 12:58  [ТС] #9
там во так написано
b в нулевой степени снизу=cos во второй степени 1
b в первой степени снизу =sin во второй степени 1
b в степени =2 k-1 снизу + b k-2 в степени снизу
а k=2,3,4.......n
0
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
30.11.2012, 13:10 #10
Шархан, Уйди от греха...
0
Шархан
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 148
01.12.2012, 23:44  [ТС] #11
нет я не уйду
0
01.12.2012, 23:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2012, 23:44
Привет! Вот еще темы с ответами:

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

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

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

Написать рекурсивную функцию для вычисления k-ого члена последовательности Фибоначчи - Turbo Pascal
Написать рекурсивную функцию для вычисления k-ого члена последовательности Фибоначчи. Последовательность Фибоначчи f1,f2,… образуется по...


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

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

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