Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Как написать программу нахождения n!???
Нужно очень срочно

Вопрос задала: Ленок (статус: Посетитель) Вопрос отправлен: 27 июня 2010, 17:45 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Вот 2 простых примера:
http://delphiworld.narod.ru/base/calc_factorial.html
Вот один сложный:
http://delphiworld.narod.ru/base/factorial.html
Этого хватит?

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 27 июня 2010, 17:52

Ответ #2. Отвечает эксперт: vlsavkin

Здравствуйте, Ленок!
Не рекурсивно и для небольших n можно так:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  ExceptionLog,
  SysUtils;
var n,i,f:LongInt;
begin
  readln(n);
  f:=1;
  for i := 1 to n do
   f:=f*i;
  writeln(f);
  readln;
end.

Ответ отправил: vlsavkin (статус: 2-ой класс) Время отправки: 27 июня 2010, 17:54 Оценка за ответ: 5

Мини-форум вопроса

28 июня 2010, 19:17: Вопрос перемещён из тематического раздела Delphi » Прочее в раздел Лабораторный практикум » Delphi модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.