10. Управляющие конструкции в Паскале: операторы условного и безусловного перехода.

Оператор безусловного перехода. Большинство программистов считают использование в программе оператора безусловного перехода, знаком дурного тона и редко используют его. Но, не смотря на это, знать его надо, так как может оказаться, что Вы не сможете придумать альтернативного решения проблемы. Имя данного оператора Goto, смысловое значение в программе «перейти к …», а его общий вид такой: Goto m; m – метка, заранее заданная в разделе описания меток. Следующая программа показывает, как работает оператор безусловного перехода: program goto_primer; {имя программы} uses crt; {подключение модуля} label m; {описание метки m} begin write('Karl Marx '); {вывод строки} goto m; {требование перейти к метки} write('clever'); {этот оператор пропускается} m: write('fool'); {выполняется переход в эту область} end.

Условный оператор. В Паскале проверить какую-то часть программы для определения дальнейшего пути, по которому ей следует идти, есть оператор If. В зависимости от выполнения логического условия он указывает, какой блок выполниться следующим. Существует две формы записи: полная и краткая. Вторая отличается от первой тем что в ней имеется ветвь Else (иначе). Общий вид краткой формы: If <условие A> Then <оператор 1>; Общий вид полной формы: If <условие A> Then <оператор 1>Else <оператор 2>; В краткой форме выполняется оператор 1 тогда, когда условие A истинно, иначе управление переходит к следующему оператору. В полной форме если условие A истинно, то выполняется оператор 1, иначе выполняется оператор 2. Следует запомнить, что перед else точка с запятой не ставится. В Паскале можно вкладывать один условный оператор в другой, причем делать это можно множество раз. При этом следует отметить, что каждому Then соответствует ближайшее Else.

11. Управляющие конструкции в Паскале: оператор выбора.

Оператор выбора. Когда количество альтернатив больше двух применяется оператор выбора Case. Его вид: Case <селектор> Of <значение селектора>: <оператор 1>; <значение селектора>: <оператор 2>; . . . <значение селектора>: <оператор N>; Else <оператор> End; Выполнятся в операторе выбора, может только одна ветка (идущая раньше), даже когда селектор совпадает с несколькими значениями. Также, в отличие от If в Case можно ставить точку с запятой перед Else. Программа проверяет селектор на соответствие его с имеющимися значениями. Если совпадений не находится, то выполняется блок Else.

12. Укажите особенности алгоритмов циклической структуры типа «До» и «Пока». Приведите примеры.

Различают два типа циклов: с известным числом повторений и с неизвестным числом повторений. При этом в обоих случаях имеется в виду число повторений на стадии разработки алгоритма. Существует 3 типа циклических структур: Цикл с предусловием; Цикл с постусловием; Цикл с параметром. Иначе данные структуры называют циклами типа «Пока», «До», «Для».

Цикл с предусловием (иначе цикл пока) имеет вид: while <условие> do begin <серия команд>; end;, где условие – выражение логического типа. Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь. Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно. Для того чтобы цикл завершился, необходимо, чтобы последовательность инструкций между BEGIN и END изменяла значение переменных, входящих в условие. Пример: Var i: integer; Begin P:=1; i:=1; While i<=5 do begin P:=P*i; i:=i+1; end; Write (‘P=’, P); end.

Цикл с постусловием (иначе цикл до) имеет вид: repeat <серия команд> until <условие>, где условие – выражение логического типа. Последовательность инструкций между repeat и until всегда будет выполнено хотя бы один раз; Для того чтобы цикл завершился, необходимо, чтобы последовательность операторов между repeat и until изменяла значения переменных, входящих в выражение условие. Инструкция repeat, как и инструкция while, используется в программе, если надо провести некоторые повторяющиеся вычисления (цикл), однако число повторов заранее не известно и определяется самим ходом вычисления. Пример: Var i: integer; Begin P:=1; i:=1; repeat begin P:=P*i; i:=i+1; end; until i<=5; Write (‘P=’, P); end.