Interface

 

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls;

 

Type

TForm1 = class(TForm)

lbl1: TLabel;

img1: TImage;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

edt1: TEdit;

edt2: TEdit;

edt3: TEdit;

edt4: TEdit;

btn1: TButton;

btn2: TBitBtn;

lbl6: TLabel;

procedure btn1Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

 

Var

Form1: TForm1;

 

Implementation

 

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

Var

a, b, x, y: real;

flag: Boolean;

Begin

a: =StrToFloat(edt1.Text);

b: =StrToFloat(edt2.Text);

x: =StrToFloat(edt3.Text);

y: =StrToFloat(edt4.Text);

flag: =False;

if x> =0 then

if x< =a then

if y> =0 then

if y< =b then

Flag: =True;

If flag then

lbl6.Caption: ='Принадлежит'

Else

lbl6.Caption: ='Не принадлежит'

end;

 

e n d.

 

Для иллюстрации применения структуры «выбор» и, следовательно, оператора case, решим следующую задачу.

Пример 3. Дана оценка по десятибалльной системе. Получите ее эквивалент по пятибалльной системе. Предполагается, что между системами имеется следующее соответствие:

10-балльная система	5-балльная система
1 – 3
4 – 5
6 – 8
9 – 10

Решение. Данную задачу можно решить и с помощью структуры «ветвление» (оператора if…then…else), но удобней воспользоваться структурой «выбор» (рис. 1.8).

 

Рис. 1.8. Схема алгоритма программы

 

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

 

program lr1_3_1;

{ Дана оценка по десятибалльной системе. Получить ее эквивалент по пятибалльной системе. Предполагается, что между системами имеется следующее соответствие: }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Var

oc10, oc5: byte;

Begin

write('Vvedite oc10 ');

readln(oc10);