Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Табулирование функций на заданном промежутке https://www.cyberforum.ru/ turbo-pascal/ thread254169.html
составить программу для вычисления значений функции f(x) на отрезке с шагом h. Результат представить в виде таблицы, первый столбец которой - значения аргумента, второй - соотвестующие значения фукции. в коде обязательное присутсвие комментариев. f(x)=sin(1/x) + 2. заранее спасибо.
Нарисовать смайлик Turbo Pascal
Доброе время суток дорогие форумчани и знатоки! Помогите пожалуйста написать одну прогу! Условия программы: С помощью Турбо паскаля 7.0 нарисовать 2D смайлик ( x0=0; y0=0; r=3(указаны начальные координаты и радиус данного смайлика)) и при нажатии клавиш (стрелочки лево, верх, право и низ) изображение смещалось в нужную сторону на 10 P.S. Если можно то сделайте весь смайлик как единый объект...
Turbo Pascal Циклический сдвиг Осуществите циклический сдвиг компонент заданного вектора A(N) вправо на две позиции, то есть получите вектор A = (aN-1 , aN , a1 , a2 , ... , aN-2 ). помогите :o https://www.cyberforum.ru/ turbo-pascal/ thread254156.html Turbo Pascal дописать слово «рубль» в правильной форме к данному числу https://www.cyberforum.ru/ turbo-pascal/ thread254153.html
А если значений в диапазоне больше? У меня задача такая: Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово «рубль» в правильной форме. Например, 12 рублей, 21 рубль. Нарисовать Блок-схему. Незнаю как указать диапазон значений например от 5 до 20 не указывая каждое значение. и Описать условие...
Блок-схема массива Turbo Pascal
программа такая: дан двумерный массив из N строк и M столбцо, найти сумму положительных элементов массива, сама программа вот: program pologitelnie_chisla; uses crt; var mas:array of integer; n,m,s,i,j:integer; begin clrscr; writeln('vvedite n i m');
Turbo Pascal Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива https://www.cyberforum.ru/ turbo-pascal/ thread254143.html
Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного двумерного массива. Помогите пожалуйста!!! Очень нужно. Все наброски я выложил, а дальше как я не знаю((( Uses CRT; var M:array of byte; t,s:byte; procedure vvodmassiva(var s,t:byte);{procedura vvoda matricy} var i,j:byte;
Turbo Pascal Сколько членов ряда 1/2 + 2/3 + 3/4 + ... нужно сложить, чтобы сумма превысила 9? https://www.cyberforum.ru/ turbo-pascal/ thread254127.html
1. Сколько членов ряда 1/2 + 2/3 + 3/4 + ... нужно сложить, чтобы сумма превысила 9? 2. Составить программу, выдающую по названию дня недели его номер (например, вторник соответствует цифре 2), и по заданному диапазону чисел - соответствующие ему дни недели (например, если задать диапазон от 2 до 4, то должны напечататься вторник, среда и четверг) 3. Написать процедуру нахождения...
Найти число символов 't' в строке S Turbo Pascal
Есть строка S='Bios is Basic Input-Output System(Базовая Система Ввода-вывода)' Заменить заглавные латинские на строчные(Это я сделала). Найти число символов 't' в строке S(В этом и нужна помощь). И вывести в файл. Вот код: program strochki; var s: string; out: text; procedure LowCase(var s: string);
Turbo Pascal работа с файлами и сетью https://www.cyberforum.ru/ turbo-pascal/ thread254121.html
Доброго времени =) Прощу совета в решение задачи: Имеется в конторе машина, с расшаренной папкой, куда работники в течении дня скидывают информацию по сети (.doc и .pdf), машина с расшаренным диском имеет доступ в инет. Работаю с ней удаленно (забираю информацию через ФТП). Появилось желание написать прогу, которая будет через определенный промежуток времени искать файлы в папке с...
Turbo Pascal Найти сумму элементов главной диагонали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread254093.html
1. Дана квадратная матрица порядка M. Найти сумму элементов ее главной диагонали. 2. Дана матрица порядка M*N. Поменять местами две строки, одна из которых содержит минимальный элемент матрицы, а вторая - максимальный. Если оба элемента матрицы находятся на одной строке, поменять места эту строку и следующую за ней. 3. Дана матрица порядка M*N. Вставить в данную матрицу столбец с номером
Нахождение количества нулей в массиве Turbo Pascal
Разработать модуль программиста, содержащий следующие процедуры и функции работы с одномерным числовым массивом: ввод массива, вывод массива, нахождение количества нулей в массиве, нахождение позиции первого нуля, удаление из массива N элементов, начиная с позиции M. Используя процедуры и функции модуля программиста, разработайте программу: даны два одномерных числовых массива одинаковой...
Turbo Pascal Нарисовать пульсирующий круг Нарисовать пульсирующий круг (увеличивающийся и уменьшающийся), который меняет цвет при увеличении и уменьшении. Программа завершается по нажатию любой клавиши. Указания: Разработать подпрограмму, которая рисует заданную фигуру с некоторыми координатами, определенного цвета (цвет фигуры задается в виде параметра), а затем еще раз рисует ее на том же месте цветом фона (стирает). Между... https://www.cyberforum.ru/ turbo-pascal/ thread254068.html
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
09.03.2011, 12:38 0

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

09.03.2011, 12:38. Показов 1208. Ответов 1
Метки (Все метки)

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

Решение

Для n<=15, дальше очень большие числа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
function Rec(n:integer):longint;
begin
if n<=4 then Rec:=1
else Rec:=(n+3)*(Rec(n-1)-1)+(n+4)*Rec(n-2);
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write(Rec(n));
readln
end.


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

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

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

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

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

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

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

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

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

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

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