Операторы циклов презентация

выполнена несколько раз, называется циклическим, а сама последовательность операций именуется циклом.
Хотя циклы можно легко организовывать с помощью оператора if, в Delphi есть три специальных оператора для организации циклов. Но вначале рассмотрим, как можно организовать цикл с помощью оператора if, например для задачи из раздела 3.1.

// Обработчик нажатия кнопки
var x,y,h:extended;n,i,j:integer;// Определение внутренних переменных
Label M1;
begin
a:=strtofloat(edit1.Text); // Перевод строк в вещественное значение
b:=strtofloat(edit2.Text);
n:=strtoint(edit3.Text); // Перевод строки в целое значение
j:=strtoint(edit4.Text);
h:=(b-a)/10; // Расчет шага по x
x:=a; // Подготовка цикла по x
M1:y:=0; // Подготовка цикла по i
i:=1;
M2:if i<>j then y:=y+sin(i*x)/(i-j); // Расчет суммы
i:=i+1; // Наращивание переменной цикла i
if i<=n then goto M2; // Проверка окончания цикла по i
// Вывод результатов
Memo1.lines.Add(’x=’+floattostr(x)+’ y=’+floattostr(y));
x:=x+h; // Наращивание переменной цикла по x
if x<=b then goto M1; // Проверка окончания цикла по x
end;
Как видно из этого примера, можно легко организовывать циклы с помощью оператора if, однако нам пришлось использовать две метки M1 и M2, что говорит о плохом стиле программирования.

пер.цикла:= нач.знач. кон.знач. Do оператор DowntoTo1;
Его следует понимать следующим образом. Для переменной цикла от начального значения до конечного значения выполнять оператор1. В фигурных скобках показаны два варианта наращивания переменной цикла: To – соответствует шагу увеличения 1, а Downto – шагу -1. Переменная цикла, начальное и конечное значения обязательно должны быть целыми величинами. Переменная цикла должна быть внутренней переменной подпрограммы.

конечного, то цикл не выполняется ни разу.
2. Циклы можно вкладывать друг в друга, но не пересекать.
3. Можно передавать управление из цикла вовне его, но извне передать управление внутрь цикла нельзя.
4. Можно передать управление из цикла вовне его с последующим входом в этот же цикл.
5. Внутри цикла нельзя самим изменять значения переменной цикла.
6. После окончания цикла переменная цикла становится не определенной и ее значение уже нельзя использовать.
7. Если внутри цикла встречается оператор Break, то происходит принудительный выход из этого цикла.
8. Если внутри цикла встречается оператор Continue, то происходит переход к следующей итерации цикла. Рассмотрим предыдущий пример программы, только внутренний цикл оформим с помощь оператора For.

шага по x
x:=a; // Подготовка цикла по x
M1:y:=0; // Подготовка цикла по i
For i:=1 to n Do if i<>j then y:=y+sin(i*x)/(i-j); // Расчет суммы
// Вывод результатов
Memo1.lines.Add(’x=’+floattostr(x)+’ y=’+floattostr(y));
x:=x+h; // Наращивание переменной цикла по x
if x<=b then goto M1; // Проверка окончания цикла по x
Как видим, число операторов программы уменьшилось на 3 и нет необходимости в метке M2.

выражение;
Выполнение цикла будет повторяться до тех пор, пока логическое выражение не примет значение «истина». Тело этого цикла в любом случае будет выполнено хотя бы один раз, так как проверка на окончание цикла здесь выполняется после выполнения операторов тела цикла. Внутри тела цикла обязательно должна изменяться какая–либо переменная, которая входит в логическое выражение и определяет условие выхода из цикла. В противном случае есть большая вероятность, что может получиться бесконечный цикл, т.е. программа зациклится.

оператора Repeat:
h:=(b-a)/10; // Расчет шага по x
x:=a; // Подготовка цикла по x
Repeat
y:=0; // Подготовка цикла по i
For i:=1 to n Do if i<>j then y:=y+sin(i*x)/(i-j); // Расчет суммы
// Вывод результатов
Memo1.lines.Add(’x=’+floattostr(x)+’ y=’+floattostr(y));
x:=x+h; // Наращивание переменной цикла по x
Until x>b; // Проверка окончания цикла по x
Until x>b; // Проверка окончания цикла по x
Программа еще более упростилась и исчезла метка M1. В данном случае переменной цикла является x и она же входит в логическое выражение, определяющее условие выхода из цикла. В этом цикле переменная цикла может иметь любой тип в отличие от цикла For, где она должна иметь только целый тип.

Пока логическое выражение принимает значение «истина», будет повторяться оператор 1. В этом цикле проверка на окончание цикла производится до выполнения оператора1 и, если логическое выражение примет значение ложно, цикл заканчивает свою работу. В остальном – этот оператор похож на оператор Repeat.

заменить на оператор While:
h:=(b-a)/10; // Расчет шага по x
x:=a; // Подготовка цикла по x
While x<=b Do Begin // Начало цикла по x и проверка окончания цикла
y:=0; // Подготовка цикла по i
For i:=1 to n Do if i<>j then y:=y+sin(i*x)/(i-j); // Расчет суммы
// Вывод результатов
Memo1.lines.Add(’x=’+floattostr(x)+’ y=’+floattostr(y));
x:=x+h; // Наращивание переменной цикла по x
end;
Как видим, этот фрагмент программы уменьшился еще на один оператор.