Дана последовательность, заданная формулой общего члена и известно значение x0:

@Lizzka228 · Регистрация: 25.01.2020

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

11. Дана последовательность, заданная формулой общего члена и известно значение x0:
Название: Снимок.PNG
Просмотров: 35

Размер: 3.2 Кб

n=1,2,3…. Для следующих значений параметра а, написать рекурсивную функцию нахождения 11-ого члена последовательности:
a) a=-7
b) a=-3
c) a=11.

@Lizzka228 · 18.02.2020, 07:26 **[ТС]**

Вот на delphi

Кликните здесь для просмотра всего текста

Function FindTerm(A:Extended;FindNum:Integer):Ext ended;
begin
If FindNum=0 Then
Begin //Если ищем 0-й член...
If A<(-5) Then Result:=1/Sin(A+1) Else
If ((A>=(-5)) And (A<0)) Then Result:=1/Cos(A+2) Else
Result:=Cos(A)+Sin(A);
Exit;
End;
Result:=FindTerm(A,FindNum-1);
Result:=5/Sqr(Cos(Result)+Sin(Result));
End;

Добавлено через 3 минуты
Для проверки результата работы рекурсивной функции, создайте нерекурсивную версию функции. В основной программе продемонстрируйте работу обеих функций

@Kuzia domovenok · 18.02.2020, 11:24

и где тут вообще последовательность? Нулевой член вижу, где пресловутая "формула общего члена"?

@FFPowerMan · 18.02.2020, 11:51

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Function FindTerm(A:Extended;FindNum:Integer):Extended;
begin
If FindNum=0 Then
Begin //Если ищем 0-й член...
    If A<(-5) Then Result:=1/Sin(A+1) Else
        If ((A>=(-5)) And (A<0)) Then Result:=1/Cos(A+2) Else
            Result:=Cos(A)+Sin(A);
    Exit;
End;
Result:=FindTerm(A,FindNum-1);
Result:=5/Sqr(Cos(Result)+Sin(Result));
End;

@Lizzka228 · 18.02.2020, 15:46 **[ТС]**

Ай до но

@Kuzia domovenok · 18.02.2020, 18:19

Lizzka228, о чём тогда этот тред?

@_developer_ · 19.02.2020, 01:24

после этого я понял что си-подоб. синтаксис не спасет...

@Lizzka228 · 19.02.2020, 07:43 **[ТС]**

Так будет помощь с кодом?

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Lizzka228 1 / 1 / 0 Регистрация: 25.01.2020 Сообщений: 27

	Дана последовательность, заданная формулой общего члена и известно значение x0: 18.02.2020, 06:49. Показов 2410. Ответов 7 Метки нет (Все метки) 11. Дана последовательность, заданная формулой общего члена и известно значение x0: n=1,2,3…. Для следующих значений параметра а, написать рекурсивную функцию нахождения 11-ого члена последовательности: a) a=-7 b) a=-3 c) a=11. 0

@Lizzka228 1 / 1 / 0 Регистрация: 25.01.2020 Сообщений: 27
	18.02.2020, 07:26 [ТС]
	Вот на delphi Кликните здесь для просмотра всего текста Function FindTerm(A:Extended;FindNum:Integer):Ext ended; begin If FindNum=0 Then Begin //Если ищем 0-й член... If A<(-5) Then Result:=1/Sin(A+1) Else If ((A>=(-5)) And (A<0)) Then Result:=1/Cos(A+2) Else Result:=Cos(A)+Sin(A); Exit; End; Result:=FindTerm(A,FindNum-1); Result:=5/Sqr(Cos(Result)+Sin(Result)); End; Добавлено через 3 минуты Для проверки результата работы рекурсивной функции, создайте нерекурсивную версию функции. В основной программе продемонстрируйте работу обеих функций 0

@Kuzia domovenok 4268 / 3327 / 926 Регистрация: 25.03.2012 Сообщений: 12,536 Записей в блоге: 1
	18.02.2020, 11:24
	и где тут вообще последовательность? Нулевой член вижу, где пресловутая "формула общего члена"? 0

@Lizzka228 1 / 1 / 0 Регистрация: 25.01.2020 Сообщений: 27
	18.02.2020, 15:46 [ТС]
	Ай до но 0

@Kuzia domovenok 4268 / 3327 / 926 Регистрация: 25.03.2012 Сообщений: 12,536 Записей в блоге: 1
	18.02.2020, 18:19
	Lizzka228, о чём тогда этот тред? 0

@_developer_ 2 / 2 / 1 Регистрация: 13.04.2019 Сообщений: 35
	19.02.2020, 01:24
	после этого я понял что си-подоб. синтаксис не спасет... 0

@Lizzka228 1 / 1 / 0 Регистрация: 25.01.2020 Сообщений: 27
	19.02.2020, 07:43 [ТС]
	Так будет помощь с кодом? 0