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

Var
j : integer;rez : LongInt; 
Procedure
Sum; 
Begin
rez := 0; n=100; 
FOR
j := 5 
To
n 
Do
Inc(j); rez := rez+j; 
mmOut.Lines.Add:=’Сумма чисел от 5 до 100 равна ’+IntToStr(rez);
End
; 
Как видите, код значительно уменьшился в объеме и стал более удобен для чтения.
В приведенном примере с каждым шагом цикла переменная-счетчик увеличивается на единицу, 
но иногда необходимо, чтобы счетчик уменьшался
 
с каждым шагом цикла. для этого вместо слу-
жебного слова To используется служебное слово DownTo. Предыдущий пример можно модифициро-
вать так, чтобы он вычислял сумму любых чисел, как положительных, так и отрицательных. При n<0 
в том виде как записано выше тело цикла выполнится только один раз. потому что 1>0. Предполо-
жим, что значение n передается извне, тогда наш пример можно записать так: 
Var
j : integer; rez : extended; 

---

24 
Procedure
Sum; 
Begin
rez := 0; 
IF
n>0 
THEN
FOR 
j := 5 
To
100 
Do
Inc(j); rez := rez+j 
ELSE
FOR
j := 5 
DownTo
100 
Do
Inc(j); rez := rez+j; 
mmOut.Lines.Add:=’Сумма чисел от 5 до 100 равна ’+IntToStr(rez);
End
; 
Счетные циклы очень быстрые и генерируют компактный исполняемый код, но всем им присущ 
один традиционный недостаток, – параметр должен принадлежать перечислимому типу, а шаг не 
может быть изменен. Для организации циклов с произвольным шагом применяются другие операто-
ры циклов. Счетный оператор цикла допускает любую глубину «вложенности», т.е. он может содер-
жать внутри себя любое количество счетных операторов цикла, которые также могут иметь вложен-
ные циклы. 
Итак, счетный оператор цикла имеет параметр цикла – переменную счетчик. Мы задаем грани-
цы изменения счетчика, определяя, таким образом, число повторений. Другие два оператора цикла не 
имеют собственных параметров, а связаны только с проверкой какого-либо условия. Рассмотрим их. 
Оператор цикла с предусловием – WHILE
. 
WHILE <условие> DO <оператор> 
WHILE и DO – зарезервированные слова (пока [выполняется условие] делать…); условие – это 
логическое выражение; оператор – пустой, простой или составной оператор, называемый телом цик-
ла. Условие может быть как логическим выражением, так и переменной логического типа.
Если при исполнении программы встречается этот оператор, то компьютер проверяет условие 
данного оператора, если оно имеет значение True, то выполняется тело цикла и управление передает-
ся вновь на проверку условия. Если же условие имеет значение False, то программа переходит к вы-
полнению действий, следующих за телом цикла. 
При написании циклов с предусловием следует помнить о двух вещах. Во-первых, чтобы цикл 
имел шанс когда-нибудь завершиться, содержимое тела цикла должно обязательно влиять на условие 
цикла. Во-вторых, условие должно состоять из корректных выражений, определенных еще до перво-
го выполнения тела цикла. Поясним сказанное на примере вычисления факториала числа N.