Реализация алгоритмических конструкций

Условный оператор

Условный оператор реализует одну из базовых алгоритмических конструкций — ветвление (выбор, развилка). Ветвление выполняется в зависимости от того, истинно или ложно некоторое условие. Выделяют две формы условного оператора, реализующие неполное и полное ветвление.

Синтаксис неполного ветвления имеет вид.

If условие then begin

оператор1;

оператор2;

операторы, — end;.

На естественном языке логика выполнения неполного ветвления формулируется следующим образом: если условие истинно, то выполняются операторы, заключенные в операторные скобки begin…end;. Если условие ложно, происходит переход к следующему после end; оператору программы. Пример приведен в листинге 4.1.

Листинг 4.1.

if a> then begin

b:=2*b;

a:=a+b;

writeln (a, ' ', b) ;

end;

Если внутри составного блока должен находиться один оператор, то операторные скобки можно опустить. В этом случае неполная развилка примет вид.

If условие then оператор;.

В качестве условия могут выступать константа, переменная или выражение, имеющее логический тип. Если условие является составным, то каждое простое условие заключается в круглые скобки, например:

if (a> and (а>с) then

writeln ('а — наибольшее');.

Синтаксис полного ветвления имеет вид.

if условие then begin

оператор1;

оператор2;

операторы,;

end

else

begin

оператор1;

оператор2;

операторы; end;.

На естественном языке логика выполнения полного ветвления формулируется следующим образом: если условие истинно, то выполняются операторы составного блока ветки then, иначе выполняются операторы составного блока ветки else.

Как и в случае неполного ветвления, если в операторных скобках thenи else-частей находится один оператор, то зарезервированные слова begin и end можно опустить. Оператор условия примет вид.

If условие then оператор! else оператор2;.

Важно!

В случае полного ветвления символ; (точка с запятой) перед зарезервированным словом else не ставится. Например:

if (a> and (а>с) then writeln ('a — наибольшее') else writeln ('а — не наибольшее');.

Условные операторы могут быть вложенными друг в друга. При этом общий синтаксис сохраняется как для внешнего, так и для внутреннего оператора. Однако если thenили else-ветвь состоит только из одного вложенного условного оператора, то операторные скобки begin… end использовать необязательно. Например, синтаксически верной будет следующая конструкция:

if условие1 then.

if условие2 then оператор1 else оператор2 else.

if условиеЗ then операторЗ;.

Важно!

Если thenили else-ветвь состоит только из одного вложенного оператора цикла for, while или until (см. параграф 4.3), то операторные скобки begin… end также использовать необязательно.

Пример 4.1.

Организация занимается производством изделий под заказ. Стоимость одной единицы продукции составляет 112,5 руб. Основная стоимость заказа рассчитывается как произведение количества изделий на стоимость одного изделия.

Для покупателей существует система скидок:

Сумма заказа Скидка от 50 000 до 250 000 10%.

от 250 000 до 500 000 20%.

свыше 500 000 25%.

Заказ может быть срочным. При отсутствии скидок наценка за срочность составляет 30% стоимости основного заказа, а при наличии скидок наценка составляет 15% от стоимости заказа, рассчитанного со скидкой. В итоговую стоимость для покупателя включается НДС в размере 18%.

Требуется написать программу, запрашивающую у клиента количество закупаемых изделий и информацию о срочности. Результатом работы является информация об итоговой стоимости заказа вместе с НДС.

Решение

Постоянные величины (стоимость единицы товара, скидки, величину наценки и НДС) опишем в программе как константы. Величина базовой стоимости (BasePrice) рассчитывается в начале программы, и в зависимости от ее величины рассчитывается итоговая стоимость для покупателя (Price). В листинге 4.2 приведено решение данной задачи с пояснениями.

Листинг 4.2 program order;

const.

UnitCost=112.5; (Цена единицы изделия).

NDS=18; {НДС).

LowDiscount=10; {Минимальная скидка) MiddleDiscount=15; {Средняя скидка).

HighDiscount=25; {Максимальная скидка).

LowMargin=15; {Минимальная наценка).

HighMargin=30; {Максимальная наценка).

Var

Number:integer; {Количество изделий).

BasePrice, Price: real; {Базовая цена, цена).

Urgency:boolean; {Срочность}.

begin

write ('Введите количество изделий: ') readln (Number) ;

write ('Является ли заказ срочным (True/False)?'); readln (Urgency) ;

BasePrice:=Number*UnitCost ;

if BasePrice<50 000 then

if Urgency=False then Price:=BasePrice*{l+NDS/100) else Price:=BasePrice*(l+HighMargin/100)*(1+ NDS/100).

else

begin

if (BasePrice>=50 000) and (BasePrice<250 000) then if Urgency=False then Price:=BasePrice*(1- LowDiscount/100)*(l+NDS/100) else Price:=BasePrice*(l-LowDiscount/100)*.

(l+HighMargin/100)*(l+NDS/100); if (BasePrice>=250 000) and (BasePrice<500 000) then if Urgency=False then Price:=BasePrice*(1- MiddleDiscount/100)*(l+NDS/100) else Price:=BasePrice*(1-MiddleDiscount/100)* (l+HighMargin/100)*(l+NDS/100); if (BasePrice>=500 000) then

if Urgency=False then Price:=BasePrice*(1- HighDiscount/100)*(l+NDS/100) else Price:=BasePrice*(l-HighDiscount/100)* (l+HighMargin/100)*(l+NDS/100).

end;

Writeln ('Стоимость заказа: Price);

end.

Пример носит иллюстративный характер, и с точки зрения количества логических конструкций и их вложенности предложенный алгоритм — не самый оптимальный. ?