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. Дана оценка по десятибалльной системе. Получите ее эквивалент по пятибалльной системе. Предполагается, что между системами имеется следующее соответствие:
Решение. Данную задачу можно решить и с помощью структуры «ветвление» (оператора 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);
|
