while

Ответ от Sashix[гуру]
Общий вид записи: While <условие> do begin <инструкция 1>; ... <инструкция n> End Инструкция while-do выполняется следующим образом: Сначала проверяется условие. Если оно истинно, выполняются <инструкция 1>...<инструкция n> и так далее. Если же условие ложно, выполнение инструкции считается законченным, и программа переходит к обработке следующих команд. Таким образом, если условие с самого начала оказалось ложным, <инструкция 1>...<инструкция n> не будут выполнены ни разу. В цикле while-do <условие> - это условие выполнения цикла: пока оно истинно, программа из цикла не выйдет. В том случае, если внутри цикла стоит только один оператор, пара begin - end может отсутствовать, если операторов больше одного, то пара begin - end обязательна, так как иначе будет выполнятся только одна инструкция, стоящая сразу после слова do. Пример: Надо вычислить сумму S=1+1/2+1/3+...+1/50 VAR S: REAL; N:INTEGER; BEGIN S:=0; N:=1; WHILE N<=50 DO BEGIN S:=S+1/N; N:=N+1; END; WRITELN(\' S=\',S); END.