На главную Самоучитель pascal Форум программистов онлайн Решение задач pascal Задачи pascal Поиск
14 Июл 13

Найти факториал числа


Комментарии :  0        Просмотры :  4223


В данной статье мы рассмотрим решение такой задачи :

Нам требуется ввести число с клавиатуры ,а потом вывести факториал этого числа.

Факториал числа - это произведение всех натуральных чисел от 1 до N , где N - число , факториал которого мы ищем. Проще говоря , факториал числа 5 = 1 * 2 * 3 * 4 * 5 ( 120 ).

Как вы понимаете , факториал может получаться очень большим. Задача довольно простая , давайте рассмотрим её решение.
program mypascal;
var
n,i:integer;
s:longint;
begin

write('Введите число : ');
readln(n);

s:= 1;

for i:= 1 to n do
s:= s * i;

writeln('Факториал числа ',n,' = ',s);

end.


В данной задаче нам понадобятся 3 переменные. Переменная N будет хранить в себе число вводимое с клавиатуры. Переменная i будет играть роль счетчика для цикла. Переменная S хранит в себе окончательный результат.

Задачу по поиску факториала проще всего решить с помощью цикла for. В начале программы мы вводим число n. После этого присваиваем переменной s значение 1 ( для того , чтобы правильно считать произведение ). Если бы мы оставили в переменной s значение 0 , то факториал 5 считался бы так 0 * 1 * 2 * 3 * 4 * 5 ( 0 ).

В цикле for считаем значение факториала и заносим его в переменную s.

Допустим , мы ввели число 3 ( n ) , тогда цикл работает так :

1 шаг : 1(s) * 1(i) = 1 ( s )
2 шаг : 1(s) * 2(i) = 2 ( s )
3 шаг : 2(s) * 3(i) = 6 ( s )

Запомните , что факториал 0 = 1 !

В конце программы выводим переменную s на экран. Вот и все.
Рейтинг материала : ( 4 / 3 )
Сообщить об ошибке
Комментарии :  0        Просмотры :  4223

Личный кабинет

Логин:
Пароль:

Поиск

RSS лента

Подписаться на rss


Подпишитесь на нашу ленту новостей rss и вы всегда сможете быть в курсе обновлений на нашем сайте.

Решение задач

Если вас интересует решение какой-либо задачи , то вы можете опубликовать
её условие на нашем сайте или форуме. И в скором времени другие пользователи помогут вам.

Опубликовать на сайте

Опубликовать на форуме

Опрос

Знаете ли вы другие языки программирования ?