Цикл с предусловием «WHILE…DO»
Циклы применяются, когда нужно выполнить одни и те же команды несколько раз.
Рассмотрим общий вид цикла с предусловием:
While <логическое выражение> do [оператор][;]
[Begin]
[тело цикла];
[End];
Главными плюсами данного цикла являются:
1. Индекс можно изменять не только с шагом плюс или минус один, а на любую величину, даже не целого типа (конечно в пределах разумной меры), в отличие от цикла с параметром.
2. В данном цикле можно реализовать повторение команд до определенного условия — до логического выражения.
Стоит правильно понимать суть этого цикла: «Пока данное условие выполняется (или логическое выражение не ложь) повторяем команды, написанные в теле цикла, иначе завершаем цикл».
Через цикл с предусловием можно реализовать цикл с параметром, за одним «но» — на практике лучше использовать «for».
Например:
У нас есть задача: вывести на экран все числа от 1 и до 10 включительно, которую уже мы делали, применяя цикл с параметром, пойдем другим путем:
program num3;
var x:integer;
begin
x:=1;
while x<=10 do begin
write (x:2);
x:=x+1
end
end.
Как видно, программа получилась несколько длиннее, но как было написано выше у данного цикла свои плюсы.