Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Roman10
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 17
#1

Факториал в цикле. - Turbo Pascal

28.09.2010, 15:44. Просмотров 694. Ответов 2
Метки нет (Все метки)

Дано целое число N (>0).Найти произведение N!=1*2*...*N (N-факториал).Чтобы избежать целочисленного переполнения,вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 15:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Факториал в цикле. (Turbo Pascal):

факториал! - Pascal
Даны целые числа n,k(n≥k≥0). Вычислить (n(n-1)…(n-k+1))/k!

Факториал - Pascal
Всем привет. Выручайте, пожалуйста. Дочке в институте задали задачку::: Вычислить приближенно значение бесконечной суммы (справа от...

Факториал - Turbo Pascal
используя цикл с предусловием,написать прогу вычисления N!

Факториал от 1 до 80 - Turbo Pascal
В интернете нашел файл с факториалами и написал программу для чтения факториала из файла, качайте если надо.

Факториал - Pascal
Написать программу которая вычисляет факториал числа введенного с клавиатуры!

Факториал f! - Pascal
Program control; Uses crt; Var i:integer; s:real; const X=2; Begin ClrScr; Writeln...

2
Puporev
Модератор
54037 / 41670 / 14750
Регистрация: 18.05.2008
Сообщений: 97,986
28.09.2010, 15:53 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
var f:real;
     n,i:integer;
begin
write('n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
write(n,'!=',f:0:0);
readln
end.
Добавлено через 1 минуту
Чтобы более длинные точные числа получались, можно так
Pascal
1
2
{$N+}
var f:rxtended;
1
Roman10
0 / 0 / 0
Регистрация: 28.09.2010
Сообщений: 17
28.09.2010, 15:55  [ТС] #3
Спасибо))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2010, 15:55
Привет! Вот еще темы с ответами:

Факториал - Turbo Pascal
Скажите как мне записать (3n)! в паскале так, что будет находить сумму ряда a=n!/(3n)!????

Факториал - Turbo Pascal
1.Дано целое число N (> 0). Найти произведение N! = 1•2•…•N (N–факториал). Чтобы избежать целочисленного переполнения, вычислять это...

факториал - Turbo Pascal
Вычислить сумму S=1!+3!+5!+n! с помощью функции function. помогите пожалста!

Факториал - Turbo Pascal
вот такая задачка http://s11.***********/i184/1104/7f/2e51eabaf948.jpg решение http://s56.***********/i154/1104/e4/013aa20ea972.jpg...


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

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

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