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

@Шархан · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

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

@Puporev · 27.10.2012, 08:57

Pascal

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.

26.11.2012, 02:26

cos и sin в квадрате, а не 21
а где b - там степени

@Puporev · 26.11.2012, 08:55

Сообщение от Fabregas_

cos и sin в квадрате, а не 21
а где b - там степени

Ну и засунь это себе куда-нибудь, впредь будешь думать как правильно написать.

@Шархан · 27.11.2012, 00:29 **[ТС]**

вообще то правельно написали и не надо
Спасибо

HighPredator · 27.11.2012, 17:16

Сообщение от Шархан

вообще то правельно написали и не надо

Вы где тут видите квадраты?

Сообщение от Шархан

b0=cos21;

Сообщение от Шархан

b1=sin21;

То же самое по степеням. Как условие записали, такой и ответ. А телепаты все на Юпитере. Были.

@Шархан · 30.11.2012, 12:36 **[ТС]**

Я просто хз как правельно написать ворд могу кинуть и там будет написано

@Puporev · 30.11.2012, 12:41

Может так
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));

неужели так трудно самому?

@Шархан · 30.11.2012, 12:58 **[ТС]**

там во так написано
b в нулевой степени снизу=cos во второй степени 1
b в первой степени снизу =sin во второй степени 1
b в степени =2 k-1 снизу + b k-2 в степени снизу
а k=2,3,4.......n

@Puporev · 30.11.2012, 13:10

Шархан, Уйди от греха...

@Шархан · 01.12.2012, 23:44 **[ТС]**

нет я не уйду

@Шархан 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 145
		1
	Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности 26.10.2012, 23:47. Показов 1018. Ответов 10 Метки нет (Все метки) Составить пользовательскую процедуру или функцию для вычисления н-ого члена последовательности: b0=cos21; b1=sin21; bk=2 bk-1+ bk-2, где k=2,3,4, ••• n. 0

Fabregas_
	26.11.2012, 02:26	3
	cos и sin в квадрате, а не 21 а где b - там степени

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.11.2012, 08:55	4
	Сообщение от Fabregas_ cos и sin в квадрате, а не 21 а где b - там степени Ну и засунь это себе куда-нибудь, впредь будешь думать как правильно написать. 0

@Шархан 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 145
	27.11.2012, 00:29 [ТС]	5
	вообще то правельно написали и не надо Спасибо 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	27.11.2012, 17:16	6
	Сообщение от Шархан вообще то правельно написали и не надо Вы где тут видите квадраты? Сообщение от Шархан b0=cos21; Сообщение от Шархан b1=sin21; То же самое по степеням. Как условие записали, такой и ответ. А телепаты все на Юпитере. Были. 0

@Шархан 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 145
	30.11.2012, 12:36 [ТС]	7
	Я просто хз как правельно написать ворд могу кинуть и там будет написано 0

@Шархан 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 145
	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 Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	30.11.2012, 13:10	10
	Шархан, Уйди от греха... 0

@Шархан 0 / 0 / 0 Регистрация: 18.10.2012 Сообщений: 145
	01.12.2012, 23:44 [ТС]	11
	нет я не уйду 0

Опции темы