Паскаль. Основы программирования


Глава Циклы с параметрами Операторы fortodo и fordowntodo - часть 2


    uses WinCrt;

    var

       n, f, i : longint;

    begin

       write('Введите натуральное число '); readln(n);

       f := 1;

         if n <> 0 then for i := 1 to

n do f := f*i;

       writeln('Факториал числа ', n, ' равен ', f)

    end.

Переменная n - для вводимого пользователем числа, факториал которого надо найти; f - переменная, в которой будет "накапливаться" значение факториала числа n; i - переменная цикла.

Устанавливается первоначальное значение переменной f := 1.

Далее начинается цикл. Переменной i присваивается начальное значение 1; оно сравнивается с конечным - n (1 <= n), если условие истинно, тогда

выполняется оператор (в этой программе он один): f := f*i, 1*1=1; значение переменной цикла увеличивается на 1, т. е. станет равным: i := i + 1, 1 + 1 = 2 и цикл повторяется.

Когда

значение i станет равным n, тогда цикл выполнится последний раз, потому что следующее значение i будет n + 1, что больше конечного значения n, условие

i <= n - ложно, цикл не выполняется.




Начало  Назад  Вперед



Книжный магазин