Оператора цикла с предусловием

На всем пути обучения программированию приходится сталкиваться различными циклам.
Рассмотрим основные характеристики оператора цикла с предусловием, чтобы не путать его с двумя другими.

Как и в любом цикле, тут существует условие. Это условие должно быть записано в виде логического выражения.

На этот оператор не накладываются ограничения по использованию. То есть он может быть реализован в любой программе, где требуется цикл.

Блок-схема оператора цикла с предусловием

Оператор цикла с предусловием в Pascal пишется таким образом:

While <Условие> Do <Оператор> ;

Такой цикл выполняется по истинности условия. Условие проверяется на входе в цикл. Поэтому оператор тела цикла может вообще не выполниться, если условие ложно.

Оператор цикла с  предусловием может быть составным, то есть состоящим из нескольких операторов в теле цикла :

While <Условие> Do 
 Begin
  <Оператор 1> ;
  ............ ;
  <Оператор N> ;
 End ;

Пример задачи с использованием цикла с  предусловием .

Задача: Посчитать n!

Program factorial ;
Var i, n : integer ;
       p : real ;
Begin
 Writeln('Введите количество чисел N') ;
 Readln(N) ;
 P := 1 ;
 I := 1 ;
 While I <= N Do
  begin
   P := P*I ;
   I := I+1 ;
  end ;
Writeln(' Фактериал равен = ', p:0:0) ;
Readln ;
End.