Общий вид записи оператора:
While <условие> do <тело цикла>
Служебное слово While означает «пока», do – делать, выполнять.
Оператор, стоящий после слова do,называется телом цикла.Если тело цикла содержит последовательность операторов, то говорят, что оно образует составной оператор, в начале и в конце которого надо писать Begin и End. Служебные слова Begin и End часто называют операторными скобками, которые объединяют несколько операторов в один составной. Если же тело цикла – один оператор, то операторных скобок не требуется.
Если логическое выражение истинно, то выполняется операторы, входящие в тело цикла. Как только логическое выражение примет значение ложь, выполнение операторов цикла прекратится. Если логическое выражение с самого начала имеет значение ложь, то операторы тела цикла не выполнятся ни разу. Значение переменных, входящих в условие, должны изменяться в теле цикле, иначе оператор никогда не завершится.
1)Вычислить сумму 10 первых натур. чисел.
Var n,s:intereg;
begin
s:=0;
n:=1;
while n<=10 do
begin
s:=s+n;
ins;
end;
writeln('s=',s) ;
readln
end. Задания для самостоятельного выполнения.1. Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей.2. Нарисовать "диагональ" экрана, состоящую из 50 разноцветных эллипсов.3. Нарисовать вертикальную последовательность из увеличивающихся разноцветных секторов одного радиуса. Последний сектор - окружность.4. Нарисуйте "пилу" из 40 линий разного цвета.5. Нарисовать "веер", состоящий из 50 разноцветных линий. - Нарисовать "окружность", состоящую из 36 разноцветных квадратов.