3. Программирование разветвленных алгоритмов в системе Delphi

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

Составной оператор

Составной операторпредставляет собой группу операторов, отделенных друг от друга точкой с запятой и ограниченную операторными скобкамиbeginиend.

Пример

begin

оператор 1;

оператор 2;

. . .

оператор n;

end;

Пример

begin

a:=a+12;

c:=a*b+2;

end;

Составной операторвоспринимается как единое целое и может находится в любом месте программы.

В языке Delphiимеются две формы условного оператора − полный и неполный.

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

Ключевые слова if, then, elseозначают соответственно «если», «то», «иначе». Условие – выражение булевского типа. При записи условия могут использоваться операции отношения =, <>, >, >=, <, <= и логические операцииnot, and, or, xor.

Рассмотрим блок-схему алгоритма полного условного оператора (рис. 3.1).

Рис. 3.1. Блок-схема алгоритма полного условного оператора

Здесь s1,s2 – один простой или составной оператор.

Если после ключевых слов thenилиelse следует выполнить не один, а несколько операторов, то необходимо использовать составной оператор.

Приоритеты выполнения операций:

1) not;

2) * , / , div, mod, and;

3) +, –, or,xor ;

4) > , >=, <, <=, =, <>.

Результатом вычисления условия может являться истина (true) или ложь (false). Если условие истинно, то выполняется оператор s1, иначе – операторs2.

Пример

a:=1; b:=2; c:=0;

if a>b then c:=a

elsec:=b;

Так как выражение a>bложно, то будет выполнятся оператор послеelse, т.е.c:=b.

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

Рассмотрим блок-схему алгоритма неполного условного оператора (рис. 3.2).

Рис. 3.2. Блок-схема алгоритма неполного условного оператора

Если результат вычисления условия – истина, то выполняется оператор s1. Если ложь, то выполняется оператор, непосредственно следующий за условным операторомif.

Пример

a:=2; b:=8; c:=0;

if a>b then c:=a+b;

c:=c+12;

Результатом выполнения данного примера будет c=12, так как выражение a>b ложно и оператор c:=a+b не будет выполняться. Если после ключевого слова then следует выполнить не один, а несколько операторов, то необходимо ис­пользовать составной оператор.

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

Оператор выбора Case является обобщением оператораifи позволяет сделать выбор из произвольного числа вариантов.

Case<выражение-селектор>of

<список1>:<оператор1>;

<список2>:<оператор2>;

. . .

<списокN>:<операторN>

else<оператор>

end;

Оператор Case работает следующим образом. Сначала вычисляется значение выражения-селектора, затем обеспечивается реализация того оператора, константа выбора которого равна текущему значению селектора. Если ни одна из констант не равна текущему значению селектора, выполняется оператор, стоящий за словом else. Слово else может отсутствовать. Если слово else отсутствует, то активизируется оператор, стоящий непосредственно за словом end, т.е. первый оператор за границей Case. Селектор может иметь порядковый тип. Вещественный тип нельзя использовать. Тип констант в любом случае должен совпадать с типом селектора.

Примеры Case

1. Селектор целочисленного типа:

Case k of

1: z:=k+10;

2: z:=k+100;

3..9: z:=k+1000;

11,14,17..20: z:=k+5000

end;

2. Селектор символьного типа:

Case n of

‘A’, ‘a’: Label1.Caption:=’арбуз’;

‘В’, ‘в’: Label1.Caption:=’вишня’;

‘C’, ‘c’: Label1.Caption:=’слива’;

else Label1.Caption:=’Ошибка ввода’

end;

Приведем схему алгоритма для примера 2 (рис. 3.3):

Рис. 3.3. Блок-схема алгоритма оператора выбора

В первом примере показан способ задания метки интервалом 3..9, а во втором примере – с помощью перечисления.

Пример программирования разветвленного алгоритма

Задание.Вычислить значение функции

1. Разработка алгоритма (рис. 3.4):

а) входные данные: x – действительная переменная.

б) выходные данные: F – действительная переменная.

Рис. 3.4. Блок-схема алгоритма программы

2. Разработка формы (рис. 3.5, табл. 3.1):

Рис. 3.5. Внешний вид формы

Таблица 3.1

Используемые компоненты

Имя компонента	Страница палитры компонент	Настраиваемое свойство	Значение
Form1	–	Caption	Пример лабораторной работы №3
Edit1	Standard	Text
Label1	Standard	Caption	Введите x
Label2	Standard	Caption	Результат
Label3	Standard	Caption
Label4	Standard	Caption	Для вывода результата – щелчок по метке «Результат»

3. Текст программы:

_{unit Unit1;}

_interface

_{uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;}

_type

_{TForm1 = class(TForm)}

_{Label1: TLabel;}

_{Label2: TLabel;}

_{Edit1: TEdit;}

_{Label3: TLabel;}

_{Label4: TLabel;}

_{procedure Label2Click(Sender: TObject);}

_private

_{{ Private declarations }}

_public

_{{ Public declarations }}

_end;

_var

_{Form1: TForm1;}

_{implementation}

_{{$R *.dfm}}

_{{обработчик события OnClick}}

_{procedure TForm1.Label2Click(Sender: TObject);}

_{var x,f:real;}

_begin

_{{преобразуем текст из Edit1 в вещественное число}}

_{x:=StrToFloat(Edit1.Text);}

_{{вычисление f осуществляется по сооветствующей формуле}}

_{if x<0 then f:=sqr(sin(x))}

_{else if (x>=0) and (x<=1.5) then f:=sqrt(x)}

_{else f:=cos(sqr(x));}

{преобразуем число f в строку и покажем результат в метке}

_{Label3.Caption:= FloatToStr(f);}

_end;

end.