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. Мына кестеде көрсетілген әрекеттерді орындау:
Достарыңызбен бөлісу: | 
