Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Сформировать множество простых чисел (от 1 до 100) с помощью алгоритма "решето Эратосфена" Здравствуйте, помогите пожалуйста составить программу. А то в голову не приходит ничего: Сформировать множество простых чисел (от 1 до 100) с помощью алгоритма "решето Эратосфена" https://www.cyberforum.ru/ pascalabc/ thread374044.html Pascal ABC Задания на подпрограммы.
Здрасти всем :) Есть такое задание: Задания на подпрограммы. Размеры исходных массивов задавать именованными константами в головной программе. Элементы исходных массивов задавать целыми...
Pascal ABC Отсортировать периметры треугольников по возрастанию Третью неделю мучаюсь с заданием: Program Pr1; const n=10; m=100; type koor = array of real; mass = array of real; var p : mass; x,y: koor; i,j,k,l,z : integer; a,b,c,d,s : real; function... https://www.cyberforum.ru/ pascalabc/ thread374012.html Pascal ABC Ошибка деления на ноль https://www.cyberforum.ru/ pascalabc/ thread373871.html
program a1; var M,n,n1,n0:integer; i,s1,j:real; k,s,x:real; ...
Pascal ABC Найти количество нечетных чисел, меньших X+Y, тремя циклами (for, while, repeat until)
Даны натуральные числа X и Y. Найти количество нечетных чисел, меньших X+Y.
Pascal ABC Пояснить работу и назначение кода https://www.cyberforum.ru/ pascalabc/ thread373783.html
var str1:string; x,y:integer; function DeleteMy(s:string;l,n:integer):string; var s1,s2:string; i:integer; begin for i:=1 to n-1 do s1:=s1+s; for i:=n+l to length(s) do s2:=s2+s;
Pascal ABC Ошибка времени выполнения: Входная строка имела неверный формат https://www.cyberforum.ru/ pascalabc/ thread373689.html
const m=4; n=3; var f1,f2:text; a:array of integer; i,j,m1,m2:integer; begin assign(f1,'1.txt'); reset(f1); assign(f2,'2.txt'); rewrite(f2);
Pascal ABC массивы
Дан массив одномерный найти максималльное число повторяющего числа и вывести его колличество например 5 элементов в массиве 1 1 1 2 2 максимально повторяется 1 и его колличество 3 Добавлено...
Pascal ABC Найти максимальный из отрицательных элементов массива с четными номерами https://www.cyberforum.ru/ pascalabc/ thread373603.html
Найти максимальный из отрицательных элементов массива с четными номерами тут нужно свои подставить значения, если не трудно подмогите
Pascal ABC Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N Дано натуральное число N. Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N. Если таких чисел нет, то вывести слово «нет». https://www.cyberforum.ru/ pascalabc/ thread373600.html
Pascal ABC процедура
Определить процедуру p(x,y), которая для данного массива x, создает массив y такой, что y равно наименьшему (отличному от 1) делителю числа x (для всех i).
Pascal ABC массивы https://www.cyberforum.ru/ pascalabc/ thread373563.html
дана действительная матрица размером MxN.Отсортировать строки методом "пузырька" по возростанию и поменять строки со столбцами местами.
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
28.10.2011, 16:03 0

Вычисление факториала с помощью рекурсии - Pascal ABC - Ответ 2113532

28.10.2011, 16:03. Показов 2883. Ответов 2
Метки (Все метки)

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

Решение

Модуль
Pascal
1
2
3
4
5
6
7
8
9
10
unit factorial;
interface
function Fact(n:integer):real;
implementation
function Fact(n:integer):real;
begin
if n<2 then Fact:=1
else Fact:=Fact(n-1)*n;
end;
end.
программа
Pascal
1
2
3
4
5
6
7
8
9
uses factorial;
var a,k:integer;
    b:real;
begin
writeln('Введите a,k:');
read(a,k);
b:=Fact(k)+Fact(a);
write(b:0:0);
end.


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

Вычисление факториала с использованием рекурсии
function Factrl (n: integer): longint; begin if n = 0 then Factrl:= 1; if n = 1 then ...

Вычисление факториала числа с использованием рекурсии
Очень срочно нужно, помогите если кто знает. Задача 11 Вычисление факториала числа с...

Функция нахождения факториала и суммы на основе рекурсии
Составить программу, реализующую функции нахождения факториала и суммы на основе рекурсии. У...

Реализовать функции нахождения факториала и суммы на основе рекурсии
Помогите кто может.Составить программу, реализующую функции нахождения факториала и суммы на основе...

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

Вычисление факториала и вычисление степени числа
Нужно проверить правильность сделанной программы если не правильно помогите исправить. Var...

Вычисление факториала
Данная программа написана для вычисления факториала числа n. По определению факториал n равен...

Программа с помощью рекурсии
Написать программу, которая по заданным натуральным значениям и вычисляет результат...

Вычисление двойного факториала
Помогите пожалуйста,исправить ошибку. Вычисление двойного факториала (2n+1)!! (например...

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