Оператор выбора

Линейная программа, ветвление

Основные алгоритмические конструкции

Списание основного средства в результате выявленной недостачи, хищения основного средства и другие.

№	Наименование хозяйственной операции	Дебет	Кредит
	Списана первоначальная стоимость принтера	01.2	01.1
	Списана амортизация, начисленная по данным бухгалтерского учёта за период эксплуатации принтера		01.2
	Списана остаточная стоимость похищенного принтера		01.2
	Восстановлена сумма НДС по похищенному принтеру, ранее принятая к вычету (22 560 × 18%)		68.2
	Сумма ущерба отнесена на виновное лицо	73.2
	Работником погашена задолженности по возмещению ущерба		73.2

В линейной программе (разделе операторов) содержатся операторы ввода, вывода данных и операторы присваивания.

Ветвление в Паскале может быть реализовано с использованием условного оператора:

IF условие THEN оператор1 ELSE оператор2;

Условие представляет собой логическое выражение, которое принимает значение «истина» или «ложь». При значении «истина» выполняется оператор1, при значении «ложь» - оператор2.

Возможно использование конструкции неполного ветвления: IF условие THEN оператор.

Согласно формальным правилам языка после then (else) допускается применение только одного оператора. В случае необходимости выполнить сразу несколько операторов из них образуется составной оператор:

begin {последовательность операторов} end;

Для выбора одного из нескольких (более чем двух) направлений дальнейшего хода выполнения программы используется оператор case. Общий вид:

CASE выражение OF

Список констант1: begin последовательность операторов1; end;

…

Список константN: begin последовательность операторовN; end;

END;

В случае, если значение оператора совпадает со значением из списка 1, то выполняется последовательность1, из списка2 – последовательность2 и т.д.; а затем переход к следующему за CASE оператору. В случае если значение выражения не совпадает ни с одним выражением из указанных в этих списках, то осуществляется переход к следующему за CASE оператору без выполнения какой-либо указанной последовательности операторов.

Возможно использованием CASE в другой форме:

CASE выражение OF

Список констант1: begin последовательность операторов1; end;

…

Список константN: begin последовательность операторовN; end

ELSE begin последовательность операторов; end;

END;

Последовательность 1, 2, …, N выполняются в том случае, если значение выражения совпадает с константой из соответствующего списка, в противном случае выполняется последовательность указанная за ELSE между словами begin … end;

Значение выражения должно относиться либо к целому (Integer), либо к символьному (char) типу.