Pascal Урок 5. Циклы

[Mathian]

Всем Хай!
Мы уже добрались до циклов, именно о них наш урок.​

[HR][/HR]
Цикл – это многократные повторяемые действия. В Турбо Паскале существует 3 основных вида циклов:
•Цикл с параметром
•Цикл с предусловием
•Цикл с постусловием
[HR][/HR]
Цикл с параметром. Структура(Формат):

Спойлер: Цикл с параметром на Блок-Схеме

For D:=A to B do C;

Где:
D – счетчик цикла, является переменной порядкового типа данных.
А – начальное значение.
В – конечное значение счетчика цикла.
C – тело цикла (повторяющиеся действия).

Цикл работает следующим образом: переменной D присваивается начальное значение A, если A <= B, то выполняется тело цикла C, после чего значение счетчика цикла D автоматически увеличивается на 1 и опять сравнивается с B. Цикл будет повторяться до тех пор, пока значение счетчика D не станет больше B. Если тело цикла C состоит из нескольких операторов, то они заключаются в операторные скобки(begin…end). Если в операторе for .. to последнее значение счетчика цикла меньше первого, то тело цикла не выполняется ни одного раза.

Пример:

Program Primer;
	var i: integer;
	begin
	for i:=1 to 10 do writeln('Pawno-Info.Ru');
End.

Но это не всё т.к. существует ещё 1 вид Цикла с параметром. Структура:

For D:= A downto B do C

Где: A >= B

Цикл работает аналогично предыдущему, но после выполнения тела цикла, значение счетчика цикла автоматически уменьшается на 1. Если A < B, то цикл не выполнится ни разу.
[HR][/HR]
Цикл с параметром следует применять, когда заранее известно, сколько раз необходимо повторить те или иные действия. Однако во многих случаях циклические действия необходимо выполнять пока не будет достигнут определенный результат. В этом случае используются другие разновидности циклов: цикл с предусловием и цикл с постусловием.
[HR][/HR]
Цикл с предусловием(пока). Структура(Формат):

While условие do A;

В качестве условия можно использовать любое логическое выражение, которое может быть либо истиной(true) ли ложью(false). A – тело цикла.
Пример:

Program Primer;
	Var i:integer;
Begin
	Writeln('Введите число:');
	Readln(i);
	While i<>0 do
	Begin
		Writeln('Введите число:');
		Readln(i);
End.

[HR][/HR]


Цикл с постусловием. Структура(Формат):

Repeat
A
Until <условие>;

Где:
A – тело цикла.
<условие> – любое логическое выражение.

Маленькое пояснение: Repeat...Until - повторять до тех пор пока...

Спойлер: Цикл с постусловием на Блок-Схеме:

Принципиальное отличие оператора repeat...until от оператора while...do в том, что проверка условия производится не перед началом выполнения оператора, а в его конце, когда решается вопрос, повторить ли еще раз действия. Поэтому тело этого цикла всегда выполняется по крайней мере один раз. Кроме того цикл будет повторяться, когда условие – ложно, как только условие станет истинным – происходит выход из цикла.
Пример:

Program Primer;
	var i:integer;
begin
	writeln('Введите число:');
	readln(i);
	repeat
	writeln('Введите число:');
	readln(i);
	Until i=0;
End.

Исходя из данного примера можно реализовать ввод пароля в Pascal:

Program Primer;
	var i:integer;
begin
	writeln('Введите пароль:');
	readln(i);
	repeat
	writeln('Не верно! Введите пароль:');
	readln(i);
	Until i=55555;
End.

Вот и всё! Довольно таки кратко мы прошлись по циклам...
В данном уроке использовались материалы взятые на просторах интернета.
С вами был Лев Попов((Lev_Popov)).
Удачного обучения! xD