Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Зертханалық жұмыс. Тақырыбы:Тармақталған құрылымды операторлар
|
|
Тақ ырыбы: Тармақ талғ ан қ ұ рылымды операторлар. 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.
Бақ ылау сұ рақ тары:
|
|