Инструкция if позволяет выбрать один из двух возможных вариантов развития программы. Выбор осуществляется в зависимости от выполнения условия.

В общем виде инструкция if записывается так:

if условие then begin // здесь инструкции, которые надо выполнить, // если условие истинно.

end else
begin
// здесь инструкции, которые надо выполнить, // если условие ложно. end;

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

1. Вычисляется значение условия (условие - выражение логического типа, значение которого может быть равно True или False).

2. Если условие истинно (значение выражения условие равно True), то выполняются инструкции, следующие за словом then (между begin и end).

3. Если условие ложно (значение выражения условие равно False), то выполняются инструкции, следующие за словом else (между begin и end).

На рис. 2.2 представлен алгоритм, соответствующий инструкции if-then-else.

Рис. 2.2. Алгоритм, реализуемый инструкцией if-then-else Например, если переменная t обозначает тип соединения сопротивлений в электрической цепи (t=l соответствует последовательному соединению, t=2 - параллельному), a rl и г2 величины сопротивлений, то приведенная ниже инструкция if осуществляет выбор формулы, по которой будет выполнен расчет.

if t=l
then
begin
z:=rl+r2;
end else
begin
z:=(rl+r2)/(rl*r2);
end;

( Примечание J

Если в инструкции if между словами begin и end находится только одна инструкция программы, то слова begin и end можно не писать.

Например, инструкцию

if otv=3 then
begin
prav:=prav+l;
end else
begin
ShowMessage('Ошибка!');
end;

можно переписать так:

if otv=3 then
prav:=prav+l else
ShowMessage('Ошибка!');

Если какое-либо действие должно быть выполнено только при выполнении определенного условия и пропущено, если это условие не выполняется, то инструкция if может быть записана так:

if условие then begin { инструкции, которые надо выполнить, если условие выполняется, истинно } end На рис. 2.3 представлен алгоритм, соответствующий инструкции if-then.

Рис. 2.3. Алгоритм, реализуемый инструкцией if-then Например, инструкция

if n=m
then c:=c+l;

увеличивает значение переменной с только в том случае, если значения переменных п и т равны.

В качестве примера использования инструкции if рассмотрим программу вычисления стоимости телефонного разговора.

Как известно, стоимость разговора по телефону в воскресные дни ниже, чем в обычные. Программа, текст которой приведен в листинге 2.1, запрашивает длительность разговора и день недели, а затем вычисляет стоимость разговора. Если день недели - суббота или воскресенье, то стоимость уменьшается на величину скидки. Цена минуты разговора и величина скидки задаются в тексте программы как константы. Вид диалогового окна программы приведен на рис. 2.4

Рис. 2.4. Диалоговое окно программы Стоимость разговора

Для ввода исходных данных (длительность разговора, номер дня недели) используются поля редактирования, для вывода результата и пояснительного текста - поля меток. В табл. 2.3 перечислены компоненты и указано их назначение, а в табл. 2.4 - приведены значения свойств этих компонентов.

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

Таблица 2.3. Компоненты формы приложения

Компонент

Назначение

Editl

Для ввода длительности разговора в минутах

Edit2

Для ввода номера дня недели

Labeil, Labe12

Для вывода пояснительного текста о назначении полей ввода

Labe13

Для вывода результата вычисления - стоимости разговора

Buttonl

Для активизации процедуры вычисления стоимости разговора

Примечание ^

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

Forml.Caption Стоимость разговора обозначает, что во время создания формы приложения свойству Caption формы приложения надо присвоить указанное значение - текст "Стоимость разговора".

Таблица 2.4. Значения свойств компонентов формы

Свойство

Значение

Forml.Caption

Стоимость разговора

Editl.Text

Edit2.Text

Labell.Caption

Длительность (мин.)

Таблица 2.4 (окончание)

Свойство

Значение

Labe12.Caption Labe13. Caption Buttonl.Caption

Номер дня недели Вычислить

Программа производит вычисления при щелчке командной кнопки Вычислить. В этом случае возникает событие onclick, которое обрабатывается процедурой TForml.ButtonlClick.

I Листинг 2.1. Вычисление стоимости телефонного разговора (Phone_u.pas) I

unit Phone_u;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForml = class(TForm) Editl: TEdit; // поле ввода длительности разговора

Edit2: TEdit; // поле ввода номера дня недели

Buttonl: TButton; // кнопка Вычислить Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure ButtonlClick(Sender: TObject);
private { Private declarations } public

{ Public declarations } end;

var Forml: TForml; implementation

{$R *.DFM} procedure TForml.ButtonlClick(Sender: TObject); const

PAY =0.15; // цена одной минуты разговора 0.15 рубля

DISCOUNT = 0.2; // скидка 20 процентов

var
Time:Real; // длительность разговора Day:integer; // день недели Summa:real; // стоимость разговора begin
// получить исходные данные Time:=StrToFloat(Editl.Text);
Day:=StrToInt(Edit2.Text);
// Вычислить стоимость разговора Summa:= PAY*Time;
// Если день суббота или воскресенье, то уменьшить // стоимость на величину скидки if (Day = 6) OR (Day = 7)
then Summa:=Summa*(1 ^DISCOUNT);

// вывод результата вычисления

label3.caption:='К оплате '+FloatToStr(Summa)+'py6.', end;
end.

Часто в программе необходимо реализовать выбор более чем из двух вариантов. Например, известно, что для каждого человека существует оптимальное значение веса, которое может быть вычислено по формуле:

Рост(см)- 100.

Реальный вес может отличаться от оптимального: вес может быть меньше оптимального, равняться ему или превышать оптимальное значение.

Следующая программа, диалоговое окно которой приведено на рис. 2.5, запрашивает вес и рост, вычисляет оптимальное значение, сравнивает его с реальным весом и выводит соответствующее сообщение.

Рис. 2.5. Окно программы Контроль веса

Рис. 2.6. Алгоритм программы Контроль веса

Блок-схема программы Контроль веса изображена на рис. 2.6.

Как и в предыдущей программе, вычисления выполняются при щелчке кнопки Вычислить (ее имя витопі). В листинге 2.2 приведен текст программы.

Листинг 2.2. Контроль веса

unit wtest_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForml = class(TForm)
Label1: TLabel;
Label2: TLabel;

Editl: TEdit; // поле ввода веса

Edit2: TEdit; // поле ввода роста

Buttonl: TButton; // кнопка Вычислить

Label3: TLabel; // поле вывода сообщения - результата работы // программы

procedure ButtonlClick(Sender: TObject);
private { Private declarations } public

{ Public declarations } end;
var
Forml: TForml;

implementation

{$R *.DFM} procedure TForml.ButtonlClick(Sender: TObject); var w:real; { вес } h:real; { рост } opt:real; { оптимальный вес } d:real; { отклонение от оптимального веса } begin w:=StrToFloat(Editl.text); h:=StrToInt(Edit2.Text); opt:=h-100; if w=opt then Label3.caption:='Вы в хорошей форме!'

else
if w <
opt then
begin
d:=opt-w;
Label3.caption:='Вам надо поправиться, на ' + FloatTostr(d)+ 'кг.';
end
else
begin
d:=w-opt;
Label3.caption:='Надо немного похудеть, на ' + FloatTostr(d)+ ' кг.';
end;
end;
end.

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

Выбор || Оглавление || Инструкция CASE


Delphi 6. Программирование на Object Pascal



Новости за месяц

  • Ноябрь
    2019
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс