Зертханалық жұмыс. Тақырыбы:Тармақталған құрылымды операторлар

Тақ ырыбы: Тармақ талғ ан қ ұ рылымды операторлар. if шартты

операторы. Case таң дау операторы.

Мақ саты: if операторы - визуалды компоненттер жә не басқ арушы қ ұ рылғ ылар қ олдану арқ ылы бағ дарлама қ ұ ру. Case операторымен бағ ыттың ерікті санынан тұ ратын бағ дарлама қ ұ ру.

1. Тіктө ртбұ рыштың белгілі координаталары арқ ылы А нү ктесінің сол тіктө ртбұ рышқ а жатады ә лде жатпайтынын анық тайтын бағ дарлама қ ұ ру.

2. Қ олданушыдан жыл мезгілін сұ рап, сол мезгілге жататын ай аттарын жазып беретін бағ дарлама қ ұ ру.

1) if шартты операторымен жұ мыс

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label4: TLabel;

img1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

varx, y: integer;

begin

x: =strtoint(edit1.text);

y: =strtoint(edit2.text);

if (x=3) and (y=5) then

begin

Label4.caption: ='жатады';

end;

if (x> 3) and (y> 5) then

begin

Label4.caption: ='жатпайды';

end;

if (x< 3) and (y< 5) then

begin

Label4.caption: ='жатпайды';

end;

end;

end.

2) Case таң дау операторымен жұ мыс

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Menus;

type

TForm1 = class(TForm)

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N5: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

Label4: TLabel;

N4: TMenuItem;

lbl1: TLabel;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var season: integer;

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

season: =strToInt(edit1.Text);

case season of

1:

begin

label4.CAPTION: ='желтоксан, кантар, акпан';

end;

2: begin

label4.CAPTION: ='наурыз, сауир, мамыр';

end;

3: begin

label4.CAPTION: ='маусым, шилде, тамыз';

end;

4: begin

label4.CAPTION: ='кыркуйек, казан, караша';

end;

5..12: begin

label4.CAPTION: ='КАТЕ, МУНДАЙ НОМЕРЛИ ЖЫЛ МЕЗГИЛИ ЖОК';

end;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

edit1.Clear;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close

end;

end.

Бақ ылау сұ рақ тары: