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