Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Записи https://www.cyberforum.ru/ turbo-pascal/ thread252171.html
Всем привет!!! Помогите плиз написать пару програм на ПАСКАЛЕ!!! Програмування задач з використанням Файлiв Умова завдання!! Програма створює на диску масив записів з даними про програмне забезпечення ЕОМ: код програми, назва програмного продукту, фірма-рохробник, ціна. Вивести список програм визначеного року випуску. Розробити програму створення та обробки записів(структур). Програма...
Turbo Pascal Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности
Составьте рекурсивную подпрограмму вычисления n-ого члена последовательности по рекуррентной формуле: аi = аi-2 - аi-1 , где а1 = а2 = 1, i=3,4,5, …
Turbo Pascal Оформление и подключение модуля https://www.cyberforum.ru/ turbo-pascal/ thread252169.html
Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ).
Turbo Pascal Запишите подряд в массив элементы заданного массива, стоящие на чётных местах https://www.cyberforum.ru/ turbo-pascal/ thread252167.html
Запишите подряд в массив A(N) элементы заданного массива В(2*N), стоящие на чётных местах, а элементы, стоящие на нечетных местах, запишите в массив С(N).
Turbo Pascal Преобразовать файл
В файле целых чисел хранятся последовательности натуральных чисел. Ноль – разделитель последовательностей. Преобразовать файл, удалив из каждой последовательности члены, равные минимальному значению этой последовательности
Turbo Pascal змея. https://www.cyberforum.ru/ turbo-pascal/ thread252151.html
всем привет! написал рекорды к игре, но они выводятся на экран и почему то не видно чисел, они закращиваются, как это исправить ? Да, можите объяснить след строки плз: function menu_my : integer; const ss : array of string = ('1.IGRAT','2.Pomoch','3.Vixod'); var m : integer; cf,cb : byte; x,y : integer; c : char;
Turbo Pascal Создать типизированный файл и записать в него 4 вещественных числа Создать типизированный файл и записать в него 4 вещественных числа https://www.cyberforum.ru/ turbo-pascal/ thread252112.html Составить полную цепочку команд текстового файла Turbo Pascal
Составить полную цепочку команд текстового файла. Имя вводится с клавиатуры.
Turbo Pascal Определить число положительных элементов до первого отрицательного в массивах Помогите решить задание. Определить число положительных элементов до первого отрицательного в массивах X(40), Y(50), Z(N) Добавлено через 5 минут Люди посмотрите может кто нибудь знает как решить, или может кто нибудь подскажет) https://www.cyberforum.ru/ turbo-pascal/ thread252096.html Turbo Pascal система линейное уравнение pascal с алгоритмом https://www.cyberforum.ru/ turbo-pascal/ thread252095.html
помогите найти 2 примера по данной теме с Алгоритмом)) спс)
Меню в паскале Turbo Pascal
program menu2; uses Crt; const NORM=$17; { цвет невыделеного пункта } SEL=$70; { цвет выделенного пункта } N=3; var menu:array of string;{ названия пунктов меню } punkt:integer; { номер выделенного пункта } ch:char; { введенный символ }
Turbo Pascal Записи, квартиры Создать программу, которая обеспечивает ввод данных, вывод данных, поиск по номеру квартиры и возрасту. Запись состоит из номера квартиры (тип integer), фамилии (тип string), возраста (тип integer). https://www.cyberforum.ru/ turbo-pascal/ thread252072.html
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
04.03.2011, 17:40 0

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

04.03.2011, 17:40. Показов 960. Ответов 1
Метки (Все метки)

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

Решение

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


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

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

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

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

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

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

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

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

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

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

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