Главное меню delphi

Var
Factr, N, j : LongInt; 
Begin
{предшествующая вычислению часть программы, где задается N} 
Factr := 1; j := 1; 
While
j<=N 
Do 
begin
Factr := Factr*j;
j := j+1;
end
; 
mmOut.Lines.Add:= ‘Факториал числа ’+IntToStr(N)+’ равен ’+IntToStr(Factr); 
 End
; 
Обратите внимание на то, что в начале блока вычисления факториала переменным Factr и j 
присваивается значение 1. Это сделано для того, чтобы цикл мог завершить свою работу, а также для 
того, чтобы мы могли получить верное значение факториала. Посмотрим, что бы было, если бы не 
было этой строки. В самом начале, когда переменная только описана, но еще не используется, она 
может иметь любое значение, что связано с особенностями размещения переменной в памяти ком-
пьютера. В результате оно может быть больше или намного меньше N. Если же одна из переменных 
либо Factr, либо j в самом начале будет иметь значение 0, то (поскольку при вычислении происходит 
умножение) факториал в конечном итоге окажется равным нулю. Далее, обратите внимание на то, 
что увеличение переменной в теле цикла j на единицу происходит после вычисления факториала. Ес-
ли бы это было не так, то мы бы получили факториал 11!.
Поскольку оператору с предусловием все равно, что происходит в его теле, то он, как и счетный 
оператор цикла, может содержать в себе другие (вложенные) операторы цикла с предусловием. От-
метим, что если при первом выполнении этого оператора условие будет иметь значение False, то тело 
цикла ни разу не будет выполнено. Это отличает его от счетного оператора и оператора с постусло-
вием, чьи тела обязательно выполняются хотя бы один раз. 
Оператор цикла REPEAT … UNTIL с постусловием.

---

25 
 
Рассмотренный выше оператор цикла с предусловием решает выполнять свое тело или 
нет до первой итерации. Если это не соответствует логике алгоритма, то можно использовать цикл с 
постусловием, т.е. решающий делать или нет очередную итерацию лишь после завершения преды-
дущей. Это имеет принципиальное значение лишь на первом шаге, а далее циклы ведут себя иден-
тично. Цикл с постусловием всегда будет выполнен хотя бы один раз. Рассмотрим структуру этого 
оператора: