2. Условный оператор (If) и оператор выбора (case) в языке Паскаль

Инструкция if

Вариант 1: if-then-else.

if Условие then

begin

{ Инструкции, которые выполняются, если условие истинно. } end else

begin

{ Инструкции, которые выполняются, } { если условие ложно } end ;

Вариант 2: if-then.

if Условие then

begin

{ Инструкции, которые выполняются, если условие истинно. } end;

Примечание: если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Инструкция case

Вариант 1:

case Выражение of

Список1_Констант: begin

{ инструкции } end;

Список2_Констант: begin

{ инструкции } end;

СписокJ_Констант: begin

{ инструкции } end;

end;

Вариант 2:

case Выражение of

Список1_Констант: begin

{ инструкции } end;

Список2_Констант: begin

{ инструкции } end;

СписокJ_Констант: begin

{ инструкции J} end; else

begin

{ инструкции }

end;

end;

Инструкции между begin и end выполняются, если значение выражения, записанного после case, совпадает с константой из соответствующего списка. Если это не так, то выполняются инструкции, находящиеся после else, между begin и end.

Примечание: если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

3. Циклы в языке Паскаль

Циклы

Инструкция for

Вариант 1 (с увеличением счетчика):

for Счетчик:=НачальноеЗначение to КонечноеЗначение do

begin

{ здесь инструкции }

end;

Если НачальноеЗначение > КонечноеЗначение, то инструкции между begin и end не выполняются.

Примечание: если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Вариант 2 (с уменьшением счетчика):

for Счетчик:=НачальноеЗначение downto КонечноеЗначение do

begin

{ здесь инструкции }

end;

Если НачальноеЗначение < КонечноеЗначение, то инструкции между begin и end не выполняются.

Примечание: если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

Инструкция repeat

repeat

{ инструкции }

until Условие;

Сначала выполняются инструкции цикла, которые расположены между repeat и until. Затем вычисляется значение выражения Условие, и если оно равно False, то инструкции цикла выполняются еще раз. И так до тех пор, пока значение выражения Условие не станет равным True.

Инструкция while

while Условие do

begin

{ инструкции )

end;

Сначала проверяется Условие, если оно истинно, то выполняются инструкции между begin и end. Затем снова проверяется Условие. Если оно выполняется, то инструкции цикла выполняются еще раз. И так до тех пор, пока Условие не станет ложным.

Примечание: если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

4. Объявление и использование своих функций и процедур в языке Паскаль

Объявление функции

function ИмяФункции(var Параметр1: Тип 1; var Параметр2: Тип2;

var ПараметрJ: TиnJ ) : Тип;

const

{ описание констант }

var

{ описание переменных }

begin

{ инструкции функции }

Result:=Значение;

end;

Примечание: слово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из функции в вызвавшую ее программу.

Объявление процедуры

procedure ИмяПроцедуры(var Параметр1: Тип1;

var Параметр2: Тип2; var ПараметрJ: TипJ } ;

const

{ описание констант }

var

{ описание переменных }

begin

{ инструкции процедуры }

end;

Примечание: слово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из процедуры в вызвавшую ее программу.