Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5 https://www.cyberforum.ru/ pascalabc/ thread1129091.html
Доброго времени суток. Сформировать список из элементов целого типа со знаком. Данные ввести с клавиатуры. Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5. Заранее спасибо.
Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов Pascal ABC
Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов. Работаем с одним массивом!!! Заранее спс)
Pascal ABC Найти сумму без возведения в степень Цикл с параметром. Найти сумму 22 + 23 + 24 + ... + 210 без возведения в степень. https://www.cyberforum.ru/ pascalabc/ thread1129004.html Pascal ABC Визуально продемонстрировать метод сортировки "вставками" Прошу помощи у вас. 1)Необходимо визуально продемонстрировать метод сортировки "вставками" в паскаль ABC. Т.е мы вводим последовательность чисел, и программа должна визуально показывать КАЖДЫЙ шаг сортировки (с с небольшим пояснением каждого шага, можно графически, или записывать все действия в файл). 2)Вводи последовательность чисел, + отдельно какое то одно число: Нужно вставить это число в... https://www.cyberforum.ru/ pascalabc/ thread1128984.html
Pascal ABC Составить блок-схему к программе
program n3_07; var x, i : integer; var a : array of integer; begin x:=0; writeln('Vvedite Massiv (6 elementov)'); for i:=1 to 6 do begin write('A = '); readln(a);
Pascal ABC объединить элементы двух массивов в один массив https://www.cyberforum.ru/ pascalabc/ thread1128807.html
помогите пожалуйста, Дано: массивы X(N), Y(M). Элементы каждого из массивов X,Y, упорядочены по не убыванию. Объединить элементы двух массивов в один массив W так, что бы они снова оказались упорядоченными по не убыванию.
Pascal ABC Упорядочить элементы заданных массивов по возрастанию https://www.cyberforum.ru/ pascalabc/ thread1128795.html
Дано:массивы B(10),X(12). Упорядочить элементы заданных массивов по возрастанию. Упорядочение элементов массива по возрастанию оформить в виде подпрограммы. (если можно с блок схемой).
Pascal ABC Составить программу-тест на знание столиц
Помогите составить тест в паскале с использованием процедуры. К примеру: 1.Столица Франции- Париж? Если ответ, да, то 3 балла. Нет - 0 2.Столица Франции- Берлин? Если ответ, да, то 0 баллов. Нет- 4 И еще около 10-12 однотипных вопросов. В конце подсчитать сумму баллов.
Pascal ABC По заданному номеру квартала, дате которая включает число и название месяца и дня недели найти следующую дату По заданному номеру квартала, дате которая включает число и название месяца и дня недели найти следующую дату тема перечисляемый тип сразу говорю программу пилить не надо) мне важно понять как решить эту задачу) алгоритм, ну или хотя бы идею как это решать подскажите) Спасибо) https://www.cyberforum.ru/ pascalabc/ thread1128700.html Pascal ABC Записи. Для государств Россия, Молдова, Армения получить список в порядке возрастания плотности населения Определена запись: Record name:array of char; {название государства} sqr : real; {площадь территории} peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов} end; вся информация о странах Россия, Молдова, Армения находится в массиве (т.к используем типизированную константу). далее массив сортируется по плотности (по возрастанию peop/sqr) и выводится https://www.cyberforum.ru/ pascalabc/ thread1128686.html
Pascal ABC Дано натуральное число n. Получить a^n
Пусть a0=1; ak=k*ak-1+1/k, где k= 1,2,3,…. Дано натуральное число n. Получить a^n. program z1; uses crt; var i,k,n,p:integer; s,a:real; begin clrscr; writeln ('введите p,n'); readln (p,n);
Pascal ABC Вычислить (1+cos0,1)(1+cos0,2).(1+cos10) https://www.cyberforum.ru/ pascalabc/ thread1128591.html
Проверьте,пожалуйста, все ли так. Var s,d:real; begin s:=0.1; d:=1; while s<2.5 do begin d:=d*(1+cos(0+s)); s:=s+0.1; end;
18 / 18 / 39
Регистрация: 22.03.2014
Сообщений: 79
25.03.2014, 13:39 0

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

25.03.2014, 13:39. Показов 1539. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var i,n:integer;
function fact_2(n:integer):real;
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;
begin
clrscr;
repeat
Write('Vvedite n: ');
Readln(n);
Writeln('n!!=',fact_2(n));
inc(i);
until i=3;
readln;
end.


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

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

Описать нерекурсивную функцию целого типа, вычисляющую N-e число Фибоначчи по формуле
Описать нерекурсивную функцию Fib(N) целого типа , вычисляющую N-e число Фибоначчи F(N) по...

Описать рекурсивную функцию Fib1(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи.
Вариант4. Описать рекурсивную функцию Fib1(N) целого типа, вычисляющую N-й элемент...

Описать функцию целого типа, вычисляющую значение двойного факториала
Описать функцию целого типа, вычисляющую значение двойного факториала: N!! = 1•3•5•...•N, если N –...

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

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

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

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

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

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