Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Составить словесное (математическое) описание и блок-схему следующей задаче https://www.cyberforum.ru/ turbo-pascal/ thread255465.html
Составить словесное (математическое) описание и блок-схему следующей задаче: трапеция с вершинами A A(0,0), B(x1,0), C(x1,y3) и D(0,y4), вращается вокруг стороны АD. Найти полную поверхность полученной фигуры. Учесть, что y3<y4. При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные. Результат отобразить на экране.
Turbo Pascal Как избавиться от ошибки 202.
uses crt; function vich(n:integer):real; begin if n=1 then vich:=1 else vich:=vich(n-1)+vich(n-2); end; var n:integer; begin clrscr; write('Vvedite n= '); readln(n);
Turbo Pascal Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi =i* аi-1 + аi-2 https://www.cyberforum.ru/ turbo-pascal/ thread255453.html
27. Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi =i* аi-1 + аi-2 , где а1 = а2 = 1, i=3,4,5, …
Turbo Pascal Вычислить сумму введённых чисел Пожалуйста помогите составить программу, которая будет запрашивать число до тех пор, пока не будет введено первое число, кратное 7 или количество чисел превысит 10, и вычислить сумму введённых чисел. https://www.cyberforum.ru/ turbo-pascal/ thread255442.html
Turbo Pascal Оставить в файле только фразы, в которых нет запятых
Дан текстовый файл, фразы в котором отделены друг от друга точками, а слова – пробелами и знаками препинания. Оставить в этом файле только фразы, в которых нет запятых.
Turbo Pascal Нарисовать два графика на экране Построить график. https://www.cyberforum.ru/ turbo-pascal/ thread255432.html
Turbo Pascal Определить сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера В коллекции нумизмата не более чем 90 монет всех возможных достоинств.Определить сколько монет достоинством в 20 и 50 рублей и каковы их порядковые номера. Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread255408.html Форматы чисел, циклы Turbo Pascal
Программа запрашивает кол-во чисел у пользователя. Находит сколько пар с одинаковыми знаками он в вел(т.е 7 8 9 8 -4 -5 будет 2 пары положительных и 1 отрицательная) Зарание спасибо
Turbo Pascal Вычисление факториалов числа оформить как рекурсивную функцию. 1. Составьте программу вычисления числа сочетаний по формуле: C(n,m)= n!/m! . Вычисление факториалов числа оформить как рекурсивную функцию. https://www.cyberforum.ru/ turbo-pascal/ thread255386.html Turbo Pascal Определить длину содержащейся в тексте максимальной серии символов, отличных от латинских букв https://www.cyberforum.ru/ turbo-pascal/ thread255383.html
Для заданного текста определить длину содержащейся в нем максимальной серии символов, отличных от латинских букв (использовать множество). uses crt; const z=; var i,l,n,k,dl:integer; st,sb,max:string; begin clrscr;
Turbo Pascal Найдите количество чисел кратных К, встречающееся во всех массивах
Даны два целочисленных массива B(M) и C(L). Найдите количество чисел кратных К, встречающееся во всех массивах. Если таких чисел нет, выдайте соответствующее сообщение.
Turbo Pascal Сортировка выбором Поможіть:" Розробити програму, що забезпечує сортування вхідного файлу методом вибору з підрахунком кількості порівнянь і перестановок. Вхідний файл текстовий, по одному числу в рядку. Максимальна кількість чисел – 1000. Діапазон допустимих значень від 0 до 65000. Результуючий файл також текстовий. В першому його рядку записується кількість порівнянь, а другому – перестановка , з третього і до... https://www.cyberforum.ru/ turbo-pascal/ thread255372.html
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
11.03.2011, 16:04 0

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле - Turbo Pascal - Ответ 1440203

11.03.2011, 16:04. Показов 1254. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
function Rec(n:integer):real;
begin
if n<1 then exit;
if n=1 then Rec:=0
else if n=2 then Rec:=5/8
else Rec:=Rec(n-1)/2+Rec(n-2)*0.75;
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write(Rec(n):0:2);
readln
end.


Вернуться к обсуждению:
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2011, 16:04
Готовые ответы и решения:

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

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле:
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

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

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi =i* аi-1 + аi-2
27. Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной...

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