Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Таңдау командасы. StaticText, ComboBox компоненттері






Таң дау комакндасы – кө п сериялы тармақ талу командасы. Ә детте ол Турбо Паскальдағ ы сияқ ты (жағ дай) операторын пайдаланып қ ұ рылады. Оператордың жазылу ү лгісі:

Case < ө рнек> of

1-тізім: begin

S1

End;

2-тізім: begin

S2

End;

……………

n-тізім: begin

Sn

End;

End;

 

мұ ндағ ы: «ө рнек» мә ні бойынша сә йкес тізім нұ сқ аулары (S1, S2, ’, Sn)орындалатын ө рнек;

k-тізім – таң даушы.

Мысал. Таң дау командасын пайдаланып, арифметикалық тө рт амалды орындайтын калькулятор программасын қ ұ ру керек.

1. Жаң а жоба ашып, форма бетіне ComboBox1, StaticText1, Edit1, Edit2, BitBtn1, BitBtn2 компоненттерін орнату. (2-сурет).

StaticText –мә тін шығ аруғ а арналғ ан компонент (оның орнына Label компонентін пайдалануғ а да болады); ComboBox - амалдарды таң дау ү шін ашылатын тізім. Компоненттің Items қ асиетін шерткен кезде String List Editor терезесі кө рінеді. Осы терезенің жеке жолдарына амалдар операторларының тізімін енгізу керек.

(+, -, *, /);

2. Компоненттер қ асиеттеріне мә ндер меншіктеу:

Компонент Қ асиет Мә н
Form1 Caption Калькулятор
  Edit1 Edit2 BitBtn1 BitBtn2 ComboBox1 StaticText1 Font Text Text Kind Kind Text Caption Align TimesKaz, 11 Бос ету Бос ету BkOK BKClose Бос ету Бос ету AlTOP

 

3. ComboBox1 компонентінің Items қ асиетін шертіп, ашылғ ан String List Editor терезесіне +, /, *, / операторларының ә рқ айсысын жеке жолғ а енгізу.

4. ОК батырмасын екі рет шертіп, сә йкес оқ иғ аны ө ң деуіш процедура қ ұ ру:

Prozedur Tform1.BitBtn1Click(Sender: TObject);

Var z, x, y: real;

Begin

X: =StrToFloat(Edit1.text); y: = StrToFloat(Edit2.text);

Case ComboBox1.ItemIndex of

0: begin z: =x+y; StaticText1.Caption: =Edit1Text+ComboBox1.Items[ComboBox1.ItemIndex]+’’+Edit2.Text+’ =‘ +FloatToStrF(z, ffGeneral, 5, 5); end;

1: begin z: =x-y; StaticText1.Caption: =Edit1Text+ComboBox1.Items[ComboBox1.ItemIndex]+’’+Edit2.Text+’ =‘ +FloatToStrF(z, ffGeneral, 5, 5); end;

2: begin z: =x*y; StaticText1.Caption: =Edit1Text+ComboBox1.Items[ComboBox1.ItemIndex]+’’+Edit2.Text+’ =‘ +FloatToStrF(z, ffGeneral, 5, 5); end;

3: begin z: =x/y; StaticText1.Caption: =Edit1Text+ComboBox1.Items[ComboBox1.ItemIndex]+’’+Edit2.Text+’ =‘ +FloatToStrF(z, ffGeneral, 5, 5); end;

end;

end;

5. Жобаны сақ тап, іске қ осу. ө рітеріне мә ндер енгізіп, ComboBox1 тізімін орындалуы тиіc амалды таң дау жә не ОК батырмасын шерту. StaticText1 ө рісінде нә тиже кө рінеді (3-сурет).

2 - сурет Калькулятор терезесі

3. Цикл. Delphi–де циклдермен жұ мыс стандартты Турбо Паскальдағ ы сияқ ты. While(ә зірше), Repeat(дейін), For(ү шін) циклдік қ ұ рылымдардың жазылу ү лгілері:

1) While P do

Begin

S

End;

2) Repeat

S

Until (not P);

3) For k: =k0 to kn do

Begin

S

End;

мұ ндағ ы Р – шарт; do - орындау, until – дейін (do, until - кілттік cө здер); S -цикл денесі; k - есептегіш (цикл параметрі); k0, kn - есептегіштің бастапқ ы, соң ғ ы мә ндері.

Мысалы, жалпы мү шесі ak=1/k2 (k=1, 2…)тізбектің алғ шқ ы бес мү шесінің қ осындысын табу керек (n=5; Sn -?).

Procedure Tform1.FormCreat(Sender: TOject);

Var s, a: real; k, n: integer; s1: string;

Begin

n: =StrToInt(‘’, ’Мү шелер саны=’, ’’));

s: =0; k: =0;

For k: =1 to n do

Begin

a: =FloatToStrF(s, ffFixed, 7, 3); ShowMessage(s1);

End;


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал