Delphi визуалды программалау ортасы
жүктеу/скачать 1,51 Mb.
|
Delphi
- Бұл бет үшін навигация:
- 14. Жиымдағы кездейсоқ сандардың индексін табу
| 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,51 Mb. Достарыңызбен бөлісу:
|