Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Динамические массивы https://www.cyberforum.ru/ pascalabc-net/ thread2154533.html
Даны данные - Машина, Город, Дата, Стоимость. Нужно написать задачу используя динамические массивы. И вывести в виде таблицы. Решил написать задачу через Запись. Type reasons=record auto,city:string; date,cost:integer; End; var A: array of reasons;
PascalABC.NET Древо. Печать левых потомков всех узлов
Нужно написать процедуру, которая выполняет печать левых потомков всех узлов дерева. То есть узлы без левых потомков вообще не нужно трогать. Худо бедно само древо написать удалось, а вот с процедурой косяки получаются. Очень надеюсь на вашу помощь. type PTree = ^TTree; // указатель на узел дерева TTree = record // узел дерева data,depth : integer; Left,Right : PTree;...
PascalABC.NET Как в System.Windows.Forms сделать отступ слева и справа? Что написать чтобы было как на втором скрине? (в Paint переместил кнопку) https://www.cyberforum.ru/ pascalabc-net/ thread2154112.html PascalABC.NET Найти сумму абсолютных значений всех элементов массива 2.В матрице T(m, n), 1<(m, n)<10, найти сумму абсолютных значений всех элементов массива. Переставить строки по убыванию значений последних элементов строк. https://www.cyberforum.ru/ pascalabc-net/ thread2154038.html
Сформировать вектор М из элементов А[i], значения которых кратны 5 и не кратны 7 PascalABC.NET
1.Дан целый массив А(n), nЈ 12. Сформировать вектор М из элементов А, значения которых кратны 5 и не кратны 7. Выполнить сдвиг полученного массива влево на одну позицию.
PascalABC.NET Вывести в алфавитном порядке: все звонкие согласные буквы, которые входят хотя бы в одно слово Дана непустая последовательность слов из малых русских букв; между соседними словами - запятая, за последним словом - точка. Вывести в алфавитном порядке: все звонкие согласные буквы, которые входят хотя бы в одно слово. program z1438; const zvsoglasn = ; var soglasn: set of char; c: char; https://www.cyberforum.ru/ pascalabc-net/ thread2154034.html
PascalABC.NET Вычислить сумму ряда https://www.cyberforum.ru/ pascalabc-net/ thread2154027.html
Даны комплексное число z (пара вещественных чисел) и вещественное число E>0. Вычислить с точностью E значение следующей комплексной функции: chz = 1 + z^2/2! + ... + z^2n/(2n)! + ... Заранее благодарен, если поможете. Очень нужно...
PascalABC.NET Найти произведение сумм цифр чисел последовательности
Вводится последовательность целых чисел, 0-конец последовательности. Найти произведение сумм цифр. Необходимо решить рекурсивно, помогите пожалуйста.
PascalABC.NET Определить количество птиц, которое сможет посчитать охранник https://www.cyberforum.ru/ pascalabc-net/ thread2153987.html
Всеволод Юрьевич устроился работать охранником на склад. Работа монотонная, и от скуки Всеволод Юрьевич считает ворон и других птиц, пролетающих мимо будки охраны. За годы работы он обнаружил следующую закономерность. Вороны летают поодиночке, начиная с 8:00 утра с периодичностью P1 минут, а после 8:00 вечера летать перестают. Утки пролетают стайками по N штук, начиная с 10:00 утра, с...
PascalABC.NET Запуск формы из другого Unit-а https://www.cyberforum.ru/ pascalabc-net/ thread2153953.html
Здравствуйте. Есть проект типа "Приложение Windows Forms". Код прикрепляю ниже. Project.pas uses Unit1; begin System.Windows.Forms.Application.EnableVisualStyles(); System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(false); System.Windows.Forms.Application.Run(new Form1) end.
PascalABC.NET Множества: есть ли в классе человек, который побывал в гостях у всех?
Помогите пожалуйста с задачей. Заранее спасибо. Имеется список класса (все имена различны). Определить, есть ли в классе человек, который побывал в гостях у всех.( Для каждого ученика составить множество побывавших у него в гостях друзей, сам ученик в это множество не входит)
PascalABC.NET Найти собственное значение матрицы А, вектора Найти 1)собственное значение матрицы А 2) собственное значение вектора 3) число Тодда Можно это оформить в одну программу через меню, либо по кускам хотя бы. Заранее спасибо! https://www.cyberforum.ru/ pascalabc-net/ thread2153922.html
Модератор
9656 / 4976 / 3265
Регистрация: 17.08.2012
Сообщений: 15,476
13.12.2017, 22:04 0

Рекуррентная формула - PascalABC.NET - Ответ 11943209

13.12.2017, 22:04. Показов 1848. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено SkyLark_71 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var x, p: real;
    k: integer;
begin
  x := ReadlnReal('x = ');
  k := ReadlnInteger('k = ');
  p := 1;
  for var i := 1 to k do p := p * x * x / (2 * i - 1) / 2 / i;
  writeln('p = ', p / 2 / k)
end;


Вернуться к обсуждению:
Рекуррентная формула PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2017, 22:04
Готовые ответы и решения:

Рекуррентные соотношения. Рекуррентная формула
Здравствуйте, Написал код, но почему-то не сходится с ответом, буду благодарен за любую помощь....

Рекуррентная формула - вычислить выражение
Помогите вывести рекуррентную формулу, пожалуйста....

Рекуррентная процедура: вывод на экран заданной последовательности чисел
Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей...

Рекуррентная формула
нужно написать программу с этой формулой,написал что-то,но это не правильно ,условие s=1/3^n e=0.001

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2017, 22:04
Помогаю со студенческими работами здесь

Рекуррентная формула
Вот бесконечный ряд f(x)=1-x2/2!+x4/4!-.....+(-1)nx2n/(2n!)+.... надо вывести рекуррентную...

Рекуррентная формула
Добрый вечер! В задании есть рекуррентная формула...

Рекуррентная формула
Доброго времени суток всем! Найти сумму ряда: ...

Рекуррентная формула
Записать рекуррентную формулу для вычесления факториала uk=1/k! Добавлено через 38 минут...

Рекуррентная формула
Постройте последовательность чисел по рекуррентной формуле: не нашёл дробных аналогов, буду...

Рекуррентная формула
Помогите пожалуйста вывести рекуррентную формулу для этого!!И если не трудно саму формулу как...

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