|
Для программирования цикла достаточно определить условие,
управляющее числом его повторений и описать операторы, образующие тело цикла. Возможны
всего два вида циклов -- проверка условия либо предшествует выполнению тела
цикла, либо происходит после него.
Цикл с предусловием мы рассмотрели на прошлом уроке. Сначала
проверяется условие, затем, в зависимости от того, истинно оно или ложно, либо
выполняется тело цикла, либо следует переход к оператору, следующему за телом
цикла. После завершения тела цикла управление вновь передается на проверку
условия.
Цикл с предусловием-это
цикл,который повторяется до тех пор, пока условие истинно. Для реализации цикла
с предусловием в языке Паскаль (Pascal) используется оператор while,который
имеет следующий вид: while < условие > do < оператор >; Если тело
цикла состоит из нескольких операторов, необходимы операторные скобки begin.
.end.
Составим программу, которая определяет, сколько слагаемых должно быть в сумме последовательных
нечётных чисел (1+3+5+7+9+...),
чтобы эта сумма оказалась больше некоторого
заданного натурального числа n(n>=1),и выводит на экран результат -
количество слагаемых.
program kol_slag;
var i, s, n, x: integer;
begin
write (' n= '); readln(n); x:=1;
s:=1; i:=1;
while s <=n do
begin x:=x+2;
i:=i+1;
s:=s+x;
end; writeln(i,' слагаемых');
end.
Вторая разновидность
цикла проверяет условие после выполнения тела цикла. Цикл такого вида
называется циклом с постусловием.
Цикл будет повторяться до тех пор, пока проверка этого условия будет давать
результат «ложь» (false), то есть пока условие не выполнено. Даже если условие
сразу окажется истинным, цикл выполнится хотя бы один раз.
Описание цикла с
постусловием
Блок-схема в общем виде
выглядит так
Выполнение цикла
продолжается, если проверка логического условия дает результат «ложь». Если
логическое условие выполняется, то происходит выход из цикла. Иными словами,
если в цикле while проверялось условие продолжения цикла, то в цикле repeat...
until — условие окончания.
На языке Паскаль этот тип
цикла реализуется так:
repeat
<тело цикла>
{ операторы begin ... end не требуются! }
until <логическое условие>
Использование цикла
repeat для подсчета суммы вводимых чисел до первого отрицательного числа
Program Sum;
var
s, a: real; { s - накопления суммы. а - очередное
число }
begin
s:=0; { начинаем с нуля }
a:=0; { начинаем с нуля }
repeat
s:=s+a; { складываем введенное число с суммой }
write('Введите число:'); { Вывод на экран
сообщение }
readln(a)
until a<0; { Проверка введенного числа на отрицательность-условие выхода
из тела цикла }
writeln('Сумма чисел=', s);
end. Задача 1:
Монетки
Задача 2:
Арбузы ДЗ
Задача 3:
Нули
Задача 4:
Загадка
Задача 5:
Сумма
| 
