Урок 6. Операторы повторения с неизвестным заранее количеством итераций

Оператор WHILE

while (EXPR) {operator1} continue {operator2}

Цикл while выполняет operator1 до тех пор пока EXPR = true. Блок после continue выполняется всегда перед тем как вычисляется логическое выражение EXPR. Это подобно EXPR3 в предложении for, поэтому в этом блоке удобно изменять счетчики и флаги цикла.

Оператор Until

Этот оператор по синтаксису ничем не отличается от While, но работает пока EXPR = False.

Оператор do

do {operator} while (EXPR) 
do {operator} until (EXPR)

Оператор while/until проверяет условие в начале каждого цикла, до входа в него. Если результат проверки условия — "ложь", цикл не будет выполнен вообще.

Иногда возникает необходимость проверять условие не в начале, а в конце цикла. Для этого в Perl есть оператор do {} while, который очень похож на обычный оператор while, за исключением того, что он проверяет выражение только после однократного выполнения цикла.

* * * *

Приведенная ниже программа демонстрирует работу оператора While.

#!/usr/bin/perl
#programm 7
print "Content-Type: text/html\n\n";

$i=1;
while($i<9){
print "$i X 7 = ".$i*7;
print "<BR>";
}continue{$i++}

* * * *

Модернизируйте программу, которая выводит таблицу Пифагора (Всё равно какую) так, чтобы вместо оператора For в ней использовались операторы While и Until.

Дополнительная информация: [Управляющие структуры ] [Управляющие структуры 2 ]

[Содержание]  [Вступление]  [необходимое для начала изучения]  [урок 1]  [урок 2]  [урок 3]  [урок 4]  [урок 5]  [урок 6]  [урок 7]  [урок 8]  [урок 9]  [урок 10]  [урок 11]  [урок 12]  [урок 13]  [урок 14]  [урок 15]  [урок 16]  [урок 17]  [урок 18]  [урок 19]  [урок 20]  [урок 21]  [урок 22]  [урок 23]  [урок 24]  [урок 25]  [урок 26]  [урок 27]  [урок 28]  [правила хорошего тона]  [приложение A]  [приложение Б]  [приложение В]  [заключение]  [благодарности]