CasecbSing.ItemIndex of

0: 1z: =x+y;

1: z: =x-y;

2: z: =x*y;

3: try

Z: =x/y except z: =1.1e+38// нө лге бө лу шексіздік

End; end;

// нә тижені шығ арамыз

LBOutput.Caption: =Trim(edinput1.Text)+ ‘’+ cbSing.Items[cbSing, ItemIndex]+ ‘’ + Trim (edinput2.Text)+ ‘=’;

If z> =1.1e+38 then

LbOutput.Caption: = LbOutput.Caption+’шексіз’

Else

LbOutput.Caption: = LbOutput.Caption+FloattoStr(z);

MmOutput.Lines.Add(LbOutput.Caption); //енгізу жолын тазалаймызж

edinput1.Text: =’ ’;

edinput2.Text: =’ ’;

cbSing.ItemIndex: =-1;

end;

2-тә сіл. Арифметикалық амалдарды толық орындайтын қ арапайым калькулятордың моделін тө мендегі программа бейнелейді:

Type

TForm1=class(TForm)

Edit1: Tedit;

RadioButton1: TRadioButton;

Edit2: Tedit;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

Button1: TButton;

BitBtn1: TBitBtn;

Panel1: TPanel;

Label1: TLabel;

Memo1: TMemo;

Procedure Button1Click (Sender: TObject);

….

Procedure TForm1.Button1Click (Sender: TObject);

Var x, y, z: real; k, p: integer;

Begin

edit1.SetFocus;

x: =strToFloat(edit1.Text);

y: = strToFloat(edit2.Text);

if radioButton1.Checked then z: =x+y;

if radioButton2.Checked then z: =x*y;

if radioButton3.Checked then z: =x-y;

if radioButton4.Checked then z: =x/y;

k: =strToInt(edit1.Text);

p: =strToInt(edit2.Text);

if radioButton5.Checked then z: =k mod p;

if radioButton6.Checked then z: =k div p;

Label1.Caption: =FloatToStr(z, ffgeneral, 3, 2);

Memo1.clear;

Memo1.LinesAdd(FloatToStrF(z, ffgeneral, 3, 2));

End;

End;

Программаның орындалу нә тижесі 4.11- суретте бейнеленген.

4.11-сурет. Калькулятор.

Мә ліметтерді енгізу жә не шығ ару ү шін басқ а да компоненттер мен функцияларды пайдалану болады. Мә ліметтерді енгізу ү шін inputBox функциясын пайдалануғ а болады. Оның жазылу форматы:

inputBox («терезе тақ ырыбы», «нұ сқ ау: енгізілетін мә ндер»,)

Мұ ндағ ы – терезе тақ ырыбы - сұ хбат терезесінің тақ ырыбы, нұ сқ ау- пайдаланушы енгізген тү сіндірме, ал енгізілетін мә ндер - енгізу ө рісіне енгізуге болатын мә ндер тізімі. Бұ л функцияның орындалуы нә тижесінде экранғ а енгізу ө рісі бар сұ хбат терезе пайда болады.