Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 30.03.2013
Сообщений: 16
1

Частично рекурсивные функции

31.03.2013, 18:02. Показов 970. Ответов 1
Метки нет (Все метки)

program h;
uses crt;
var f:Ошибка1
n:integer;
Ошибка2 factorial(n:integer):longint;
begin
if(n=0)or(n=1) then factorial:=Ошибка3 else
factorial:=factorial(Ошибка4)*n;
end;
begin
clrscr;
write('n=');readln(n);
f:=Ошибка5(n);
writeln(n,'!=',f);
readln;
end.

Ошибка 1: тип переменной – длинное целое число
Ошибка 2: вид подпрограммы
Ошибка 3: значение факториала при n = 0 или 1
Ошибка 4: разность (см. рекуррентную формулу факториала)
Ошибка 5: вызов подпрограммы, укажите её имя
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 18:02
Ответы с готовыми решениями:

Рекурсивные функции.
Всем привет! Не могу решить задачу на рекурсивные функции: С погрешностью 0.001 вычислить...

Рекурсивные процедуры и функции
1. Написать рекурсивную процедуру перевода числа из десятичной системы в двоичную

рекурсивные функции и процедуры
Задана последовательность символов, описать функцию проверяю- щую, является ли симметричной...

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

1
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
01.04.2013, 09:11 2
Лучший ответ Сообщение было отмечено euphoriaf как решение

Решение

euphoriaf, Мозг приобретать не надумал?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program h;
uses crt;
var f:longint;
    n:integer;
function factorial(n:integer):longint;
begin
if(n=0)or(n=1) then factorial:=1 else
factorial:=factorial(n-1)*n;
end;
begin
clrscr;
write('n=');readln(n);
f:=factorial(n);
writeln(n,'!=',f);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2013, 09:11

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Рекурсивные функции. Найти значение X в степени Y
Здравствуйте. Требуется помощь. По лабораторной задали написать программы с рекурсивными функциями,...

Разработать рекурсивные функции для вычисления n-го числа последовательности
Разработать рекурсивные ф-ии для вычисления n-го числа следующей последовательности: b1=-5;...

Рекурсивные функции
Здравствуйте, подскажите пожалуйста, что не так? Не считает факториал. Задание такое: через...

Рекурсивные функции
Привет всем участникам форума! Помогите, пожалуйста, с решение следующей задачи: Описать...

Рекурсивные процедуры и функции
Дано n различных натуральных чисел. Напечатать все перестановки этих чисел

рекурсивные процедуры и функции
Помогите пожалуйста!!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.