Delphi визуалды программалау ортасы



жүктеу 1,5 Mb.
бет79/94
Дата03.02.2022
өлшемі1,5 Mb.
#35447
1   ...   75   76   77   78   79   80   81   82   ...   94
Delphi визуалды программалау жүйесі

21-сурет
2. Калькулятормен кезкелген санды қосу және азайту амалдарын орындау.

3. Калькуляторды уақытша көрсетпеу үшін тақырып жолындағы «Жиыру», ал бағдарламадан шығу үшін «Жабу» батырмасын шерту керек.

Бағдарламаны іске асыру жоспарының сипаттамасы

1.Жаңа жоба ашу.

2.Пішінге мына компоненттерді: Button батырмасын, Edit мәтіндік өрісін орналастыру.

3.Мына бағдарламаны пайдаланып, Калькуляторды дайындап көріңіз:



var

accum: real; // аккумулятор

oper: integer; // амал: 1 - '+' ; 2 - '-'; // 0 - "орындау"("=" батырмасы)

f: integer; { f = 0 жаңа санның бірінші цифрын күту, мыс, амал орындалған соң, индикаторда нәтиже көрінген кезде.

f = 1 қалған цифрларды күту}

procedure TForm1.Button0Click(Sender: TObject); // 0 батырмасы

begin

if f = 0 // санның бірінші цифры



then begin Edit1.Text := '0'; f := 1; //басқа цифрларды күту end

else if Edit1.Text <> '0' // индикатордағы санның басында бірнеше нөл болмауы үшін

then Edit1.Text := Edit1.Text + '0';

end;


procedure TForm1.Button1Click(Sender: TObject); // 1 батырмасы

begin


if f = 0 // санның бірінші цифры

then begin Edit1.Text := '1'; f := 1; // басқа цифрларды күту end

else Edit1.Text := Edit1.Text + '1';

end;


procedure TForm1.Button2Click(Sender: TObject); // 2 батырмасы

begin


if (f = 0) then begin Edit1.Text := '2'; f := 1; end

else Edit1.Text := Edit1.Text + '2';

end;

procedure TForm1.Button3Click(Sender: TObject); // 3 батырмасы



begin

if f = 0 then begin Edit1.Text := '3'; f := 1; end

else Edit1.Text := Edit1.Text + '3';

end;


procedure TForm1.Button4Click(Sender: TObject); // 4 батырмасы

begin


if f = 0 then begin Edit1.Text := '4'; f := 1; end

else Edit1.Text := Edit1.Text + '4';

end;

procedure TForm1.Button5Click(Sender: TObject); // 5 батырмасы



begin

if (f = 0) then begin Edit1.Text := '5'; f := 1; end

else Edit1.Text := Edit1.Text + '5';

end;


procedure TForm1.Button6Click(Sender: TObject); // 6 батырмасы

begin


if f = 0 then begin Edit1.Text := '6'; f := 1; end

else Edit1.Text := Edit1.Text + '6';

end;

procedure TForm1.Button7Click(Sender: TObject); // 7 батырмасы



begin

if f = 0 then begin Edit1.Text := '7'; f := 1; end

else Edit1.Text := Edit1.Text + '7';

end;


procedure TForm1.Button8Click(Sender: TObject); // 8 батырмасы

begin


if f = 0 then begin Edit1.Text := '8'; f := 1; end

else Edit1.Text := Edit1.Text + '8';

end;

procedure TForm1.Button9Click(Sender: TObject);



begin

if f = 0 then begin Edit1.Text := '9'; f := 1; end

else Edit1.Text := Edit1.Text + '9';

end;


procedure TForm1.ButtonZClick(Sender: TObject); // ондық үтір

begin


if Edit1.Text = '0' then begin Edit1.Text := '0,'; f := 1; end;

if Pos(',',Edit1.Text) = 0 then Edit1.Text := Edit1.Text + ',';

end;

procedure DoOper; // амалдардың орындалуы



var numb: real; // индикатордағы сан

begin // accum алдыңғы амалдар нәтижесінен тұрады

// oper – орындалатын амалдың коды. Операнд индикаторда тұр.

numb := StrToFloat(Form1.Edit1.Text);

case oper of

0: accum := numb;

1: accum := accum + numb;

2: accum := accum - numb;

end;

Form1.Edit1.Text := FloatToStr(accum);



end;

procedure TForm1.ButtonPlusClick(Sender: TObject); // "+" батырмасы

{ мұнда алдыңғы амалды орындап, нәтижені индикаторға шығару керек, сосын ағымдағы амалды еске сақтап және жаңа санның бірінші цифрын күту режимін орнату керек.}

begin


if f = 0 then oper := 1 // амалды еске сақтау

else begin DoOper; // алдыңғы амалды орындау

oper :=1; // ағымдағы амалды еске сақтау f:=0; end;

end;


procedure TForm1.ButtonMinusClick(Sender: TObject); // "-" батырма

begin


if f = 0 then oper := 2 else begin DoOper; oper :=2; f:=0; end;

end;


procedure TForm1.ButtonEnterClick(Sender: TObject); // "=" батырма

begin


if f = 0 then oper := 0 else begin DoOper; oper :=0; f:=0; end;

end;


procedure TForm1.ButtonCClick(Sender: TObject); // "с" - тазарту

begin


Edit1.Text := '0'; accum := 0; oper := 0; f := 0;

end;


// Edit1 өрісінде пернені басу

procedure TForm1.Edit1Change(Sender: TObject; var Key:Char);

begin

Key := Chr(0); // символдарды көрсетпеу



end;

procedure TForm1.FormCreate(Sender: TObject);

begin

oper := 0;



end;

end.


14. Жиымдағы кездейсоқ сандардың индексін табу
Жұмыстың мақсаты – жиымдағы кездейсоқ сандардың индексін табатын бағдарлама құру.

Бағдарламаны іске асыру жоспарының сипаттамасы

1. Жаңа жоба ашу.

2. Пішінге мына компоненттерді: Button, Edit, Label орналастыру.

3. Мына кестеде көрсетілген әрекеттерді орындау:


жүктеу 1,5 Mb.

Достарыңызбен бөлісу:
1   ...   75   76   77   78   79   80   81   82   ...   94




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау