Рекуррентная формула - Паскаль, Turbo Pascal, PascalABC.NET

dimka123 · 07.11.2013, 20:43

Помогите плиз!!!

ViktorR · 07.11.2013, 22:41

Первая запись мной не понята.
Для второй:
an+1 = (-sqr(x-1)*n/(n+1))*an

Как-то так, ...

BDA · 08.11.2013, 00:44

Вроде:

Код:

d := 111;
s := 0;
repeat
  s := 1 / (d + s);
  d := d - 2;
until d = 1;
y := s * x * x;

Аватар · 08.11.2013, 13:42

Цитата:

Вроде

Правильно

Код:

until d<1;

BDA · 08.11.2013, 13:53

Цитата:

Сообщение от Аватар

Правильно

Код:

until d<1;

Ага, забыл 1 виток.

dimka123 · 08.11.2013, 15:18

это первая?
d := 111;
s := 0;
repeat
s := 1 / (d + s);
d := d - 2;
until d <1;
y := s * x * x;

Vanta11a · 09.11.2013, 07:03

А подумать? Понять, что программа делает и как? На бумажке в конце концов нарисовать данные?

Вторая
//Бугагашенька

07.11.2013, 20:43	#1
dimka123 Пользователь Регистрация: 25.12.2011 Сообщений: 96	Рекуррентная формула Помогите плиз!!! help1.jpg help2.jpg

07.11.2013, 22:41	#2
ViktorR Старожил Регистрация: 23.10.2010 Сообщений: 2,371	Первая запись мной не понята. Для второй: an+1 = (-sqr(x-1)n/(n+1))an Как-то так, ... Как-то так, ...

08.11.2013, 00:44	#3
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,429	Вроде: Код: `d := 111; s := 0; repeat s := 1 / (d + s); d := d - 2; until d = 1; y := s * x * x;` Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

09.11.2013, 07:03	#7
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	А подумать? Понять, что программа делает и как? На бумажке в конце концов нарисовать данные? Вторая //Бугагашенька Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рекуррентная формула	topside	Помощь студентам	2	29.09.2011 22:07
рекуррентная формула	unbanned	Паскаль, Turbo Pascal, PascalABC.NET	5	18.12.2010 09:23
Рекуррентная формула	Russik	Помощь студентам	1	14.12.2010 09:41
Рекуррентная формула	Максикок	Помощь студентам	3	13.10.2010 15:03
Рекуррентная формула	Paradoxer	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	05.06.2009 20:14

08.11.2013, 15:18	#6
dimka123 Пользователь Регистрация: 25.12.2011 Сообщений: 96	это первая? d := 111; s := 0; repeat s := 1 / (d + s); d := d - 2; until d <1; y := s * x * x;