С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Как подключить библиотеку Дана программа. Пишет ошибка 15 нет файла eplip.tpu как подключить? uses eplip; type real=extended; var a:mat; x;x0;e:real; fg:boolean; m,n,k,i: integer; function f(x:real);raal; var s:real; https://www.cyberforum.ru/ turbo-pascal/ thread1129352.html Turbo Pascal Задана запись, имеющая три поля: первое – площадь нижнего основания усеченного конуса
Помогите сделать пожалуйста... 1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную запись, множество или строку. 3. Выполнить необходимые преобразования над исходным множеством, записью или строкой, а также выполнить необходимые вычисления. 4. Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты...
Turbo Pascal Перевод одномерного массива в двумерный Здравствуйте. Столкнулся с данной проблемой, необходимо перевести одномерный массив в двумерный для дальнейшего вывода (спиралью), то есть: 1 2 3 8 9 4 7 6 5 Заранее огромное спасибо =) https://www.cyberforum.ru/ turbo-pascal/ thread1129300.html Turbo Pascal Задачка по работе с файлами и выводом прямоугольника https://www.cyberforum.ru/ turbo-pascal/ thread1129279.html
Помогите решить задачку: В двух файлах заданы координаты противоположных вершин прямоугольников, стороны которых расположены вертикально или горизонтально. Координаты вершин тех прямоугольников, периметр которых больше среднего значения периметров, переместить в другой файл. Вывести на экран прямоугольник, периметр которого ближайший к сумме двух самых маленьких прямоугольников.
Заданий рядок тексту. Визначити, скільки разів зустрічається цей рядок тексту в текстовому файлі Turbo Pascal
1. Створити або відкрити текстовий (типізований, нетипізований) файл. 2. Виконати над текстовим (типізованим, нетипізованим) файлом необхідні перетворення або виконати необхідні обчислення. 3. Вивести на екран монітора результати перетворень або обчислень. Заданий рядок тексту. Визначити, скільки разів зустрічається цей рядок тексту в текстовому файлі.
Turbo Pascal Нехай є текстовий файл, який утримує декілька речових чисел. Відкрити цей текстовий файл і обчислити суму всіх речових чисел https://www.cyberforum.ru/ turbo-pascal/ thread1129269.html
1. Створити або відкрити текстовий (типізований, нетипізований) файл. 2. Виконати над текстовим (типізованим, нетипізованим) файлом необхідні перетворення або виконати необхідні обчислення. 3. Вивести на екран монітора результати перетворень або обчислень. Нехай є текстовий файл, який утримує декілька речових чисел. Відкрити цей текстовий файл і обчислити суму всіх речових чисел.
Turbo Pascal Сформировать из столбцов В, не содержащих равных элементов, матрицу С размером M x K Доброго времени суток! Я недавно начал изучать Turbo Pascal и еще не сильно разбираюсь в логике программирования. Убил добрых два дня на решение приведенной ниже задачи, увы безрезультатно. Прошу помощи люди добрые!!! :( Сформировать из столбцов В, не содержащих равных элементов(т.е. если в столбце две двойки или т.п.), матрицу С размером M x K, где K ≤ n-количество таких столбцов; В... https://www.cyberforum.ru/ turbo-pascal/ thread1129252.html Создать файл из 150 вещественных чисел, лежащих на отрезке [35,4000] Turbo Pascal
Здравствуйте,нужна помощь в задаче: Создать файл из 150 вещественных чисел, лежащих на отрезке , используя генератор случайных чисел. 1)Вывести все данные на экран. 2)Вывести на экран все числа,у которых первая после запятой цифра равна 5. 3)Найти наименьшее среди чисел попадающих в заданный промежуток. У меня готово все,кроме пункта 2. program project1;
Turbo Pascal Задана запись Помогите сделать пожалуйста... 1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную запись, множество или строку. 3. Выполнить необходимые преобразования над исходным множеством, записью или строкой, а также выполнить необходимые вычисления. 4. Вывести на экран монитора преобразованное множество, запись или строку, а также вывести результаты... https://www.cyberforum.ru/ turbo-pascal/ thread1129166.html Turbo Pascal Задан массив А (N). Добавить массив С(К). Выполнить сортировку разделением https://www.cyberforum.ru/ turbo-pascal/ thread1129117.html
Задан массив А (N). Добавить массив С(К). Выполнить сортировку разделением в виде процедуры. В полученном массиве определите количество элементов, которые меньше заданного значения М. Добавлено через 3 часа 14 минут ап темы
Выполнить обменную сортировку Turbo Pascal
Задан массив A(N). Добавить массив С(К). Выполнить обменную сортировку в виде процедуры. В полученном массиве вычислите среднее геометрическое и среднее арифметическое значения для положительных элементов. Добавлено через 3 часа 20 минут ап темы
Turbo Pascal Вывести те слова последовательности, у которых первая буква слова входит в него ещё раз https://www.cyberforum.ru/ turbo-pascal/ thread1129019.html
Дана последовательность, содерж
1 / 1 / 6
Регистрация: 29.11.2013
Сообщений: 37
25.03.2014, 16:58 0

Описать функцию, вычисляющую значение "двойного факториала" - Turbo Pascal - Ответ 5949752

25.03.2014, 16:58. Показов 925. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
unit mod1;
interface
var i,n:integer;
function fact_2(n:integer):real;
implementation
procedure fact_2;
begin
if n=1 then fact_2:=1
else if n=2 then fact_2:=2
else fact_2:=n*fact_2(n-2);
end;
end.
Компилируешь, сохраняешь с именем mod1.
Пишешь основную прогу:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program <Name>;
uses crt, mod1;
begin
clrscr;
repeat
Write('Vvedite n: ');
Readln(n);
Writeln('n!!=',fact_2(n));
inc(i);
until i=3;
readln;
end.
Должно работать.

Вернуться к обсуждению:
Описать функцию, вычисляющую значение "двойного факториала" Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2014, 16:58
Готовые ответы и решения:

Описать функцию, вычисляющую значение «двойного факториала»
Помогите пожалуйста. Не могу их решить. 1) Описать функцию, вычисляющую значение «двойного...

Описать функцию, вычисляющую значение "двойного факториала"
описать функцию, вычисляющую значение &quot;двойного факториала&quot; N!!=1*3*5*..*N, если N-нечетное,...

Описать рекурсивную функцию, вычисляющую значения двойного факториала N!! (N>0 - целое четное число)
N!! определяется как произведение всех натуральных чисел в отрезке , имеющих ту же четность что и N

Описать функцию, вычисляющую значение полинома в произвольной точке по заданной формуле
Как можно задать эту программу функцией ? Описать функцию P(x), вычисляющую значение полинома в...

Описать функцию факториала
Описать функцию y=(a-b)!/(a+b)! и найти её значение, когда а и b даны Помогите, пожалуйста

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

Описать рекурсивную функцию Fact2(N) вещественного типа, вычисляющую значение двойного факториала
Описать рекурсивную функцию Fact2(N) вещественного типа, вычисляющую значение двойного факториала ...

Описать функцию целого типа, вычисляющую значение "двойного факториала"
Описать функцию Fact2(N) целого типа, вычисляющую значение &quot;двойного факториала&quot;: N!! =...

Процедуры-функции. Описать функцию Fact2(N), вычисляющую значение "двойного факториала"
Описать функцию Fact2(N) целого типа, вычисляющую значение &quot;двойного факториала&quot;: N!! =...

Описать функцию Fact(N) целого типа, вычисляющую значение факториала N!
Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! = 1•2•...•N (N &gt; 0 –...

Описать функцию max(s), вычисляющую значение максимального элемента файла s
1)type seria=file of integer ; var s:seria; описать функцию max(s), вычисляющую значение...

Значение двойного факториала
Возникли осложнения с решением этой задачи, пожалуйста помогите: Описать функцию Fact2(N)...

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