Розробка калькулятора для інженерних розрахунків

begin

sk:=sk-1;

panel3.Caption:='(='+inttostr(sk);

t:=t+1;

b[t]:=')';

a[t]:=memo1.Text;

memo1.Text:=rezul2(t);

end

else begin panel3.Caption:=''; MessageBeep(0);

end;

if (sk=0) then panel3.Caption:='';

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

case meraisch of

10: memo1.Text:=Destodr(memo1.Text,16);

2: memo1.Text:=Destodr(Drtodes(memo1.Text,2),16);

8: memo1.Text:=Destodr(Drtodes(memo1.Text,8),16)

end;

if memo1.Text='' then memo1.Text:='0';

glob_check:=true;

meraisch:=16;

if (radiobutton11.Checked=true) then

radioButton11Click(radioButton1);

if (radiobutton10.Checked=true) then

radioButton10Click(radioButton1);

if (radiobutton9.Checked=true) then

radioButton9Click(radioButton1);

if (radiobutton8.Checked=true) then

radioButton8Click(radioButton1);

radiobutton8.Checked:=true;

radiobutton8.Visible:=true;

radiobutton9.Visible:=true;

radiobutton10.Visible:=true;

radiobutton11.Visible:=true;

radiobutton5.Visible:=false;

radiobutton6.Visible:=false;

radiobutton7.Visible:=false;

speedbutton29.Enabled:=true;

speedbutton30.Enabled:=true;

speedbutton1.Enabled:=true;

speedbutton11.Enabled:=true;

speedbutton12.Enabled:=true;

speedbutton5.Enabled:=true;

speedbutton15.Enabled:=true;

speedbutton48.Enabled:=false;

speedbutton31.Enabled:=false;

speedbutton37.Enabled:=false;

speedbutton39.Enabled:=false;

speedbutton45.Enabled:=false;

speedbutton49.Enabled:=false;

speedbutton38.Enabled:=false;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

case meraisch of

10: memo1.Text:=DestoDr(memo1.Text,8);

16: memo1.Text:=DestoDr(Drtodes(memo1.Text,16),8);

2: memo1.Text:=DestoDr(Drtodes(memo1.Text,2),8);

end;

if memo1.Text='' then memo1.Text:='0';

glob_check:=true;

meraisch:=8;

if (radiobutton11.Checked=true) then

radioButton11Click(radioButton1);

if (radiobutton10.Checked=true) then

radioButton10Click(radioButton1);

if (radiobutton9.Checked=true) then

radioButton9Click(radioButton1);

if (radiobutton8.Checked=true) then

radioButton8Click(radioButton1);

radiobutton8.Checked:=true;

radiobutton8.Visible:=true;

radiobutton9.Visible:=true;

radiobutton10.Visible:=true;

radiobutton11.Visible:=true;

radiobutton5.Visible:=false;

radiobutton6.Visible:=false;

radiobutton7.Visible:=false;

speedbutton48.Enabled:=false;

speedbutton31.Enabled:=false;

speedbutton37.Enabled:=false;

speedbutton39.Enabled:=false;

speedbutton45.Enabled:=false;

speedbutton49.Enabled:=false;

speedbutton38.Enabled:=false;

speedbutton2.Enabled:=false;

speedbutton3.Enabled:=false;

speedbutton25.Enabled:=false;

speedbutton26.Enabled:=false;

speedbutton27.Enabled:=false;

speedbutton28.Enabled:=false;

speedbutton29.Enabled:=false;

speedbutton30.Enabled:=false;

speedbutton11.Enabled:=true;

speedbutton12.Enabled:=true;

speedbutton13.Enabled:=true;

speedbutton14.Enabled:=true;

speedbutton15.Enabled:=true;

speedbutton1.Enabled:=true;

speedbutton5.Enabled:=true;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

case meraisch of

2: memo1.Text:=DrtoDes(memo1.Text,2);

8: memo1.Text:=DrtoDes(memo1.Text,8);

16: memo1.Text:=DrtoDes(memo1.Text,16);

end;

glob_check:=true;

if memo1.Text='' then memo1.Text:='0';

meraisch:=10;

radiobutton5.Checked:=true;

radiobutton8.Visible:=false;

radiobutton9.Visible:=false;

radiobutton10.Visible:=false;

radiobutton11.Visible:=false;

radiobutton5.Visible:=true;

radiobutton6.Visible:=true;

radiobutton7.Visible:=true;

speedbutton48.Enabled:=true;;

speedbutton31.Enabled:=true;

speedbutton37.Enabled:=true;

speedbutton39.Enabled:=true;

speedbutton45.Enabled:=true;

speedbutton49.Enabled:=true;

speedbutton38.Enabled:=true;

speedbutton2.Enabled:=true;

speedbutton3.Enabled:=true;

speedbutton25.Enabled:=false;

speedbutton26.Enabled:=false;

speedbutton27.Enabled:=false;

speedbutton28.Enabled:=false;

speedbutton29.Enabled:=false;

speedbutton30.Enabled:=false;

speedbutton11.Enabled:=true;

speedbutton12.Enabled:=true;

speedbutton13.Enabled:=true;

speedbutton14.Enabled:=true;

speedbutton15.Enabled:=true;

speedbutton1.Enabled:=true;

speedbutton5.Enabled:=true;

end;

procedure TForm1.SpeedButton19Click(Sender: TObject);

var z,n: integer;

begin

case meraisch of

2: memo1.Text:=DrtoDes(memo1.Text,2);

8: memo1.Text:=DrtoDes(memo1.Text,8);

16: memo1.Text:=DrtoDes(memo1.Text,16);

end;

if (Sk=0) then begin

t:=t-1; b[t]:='0'; end;

t:=t+1;

a[t]:=memo1.Text;

memo1.text:=rezul(t);

then t:=t-1;

glob_check:=true;

end

else MessageBeep(0);

case meraisch of

2: memo1.Text:=DesToDr(memo1.Text,2);

8: memo1.Text:=DesToDr(memo1.Text,8);

16: memo1.Text:=DesToDr(memo1.Text,16);

end;

if meraisch<>10 then

begin

if (radiobutton11.Checked=true) then

radioButton11Click(radioButton1);

if (radiobutton10.Checked=true) then

radioButton10Click(radioButton1);

if (radiobutton9.Checked=true) then

radioButton9Click(radioButton1);

if (radiobutton8.Checked=true) then

radioButton8Click(radioButton1);

end;

trig:=false;

end;

procedure TForm1.SpeedButton39Click(Sender: TObject);

begin

{if (b[t]=')') then

begin

t:=t+1;

a[t]:=memo1.Text;

b[t]:='s';

trig:=true;

memo1.Text:=rezul2(t);

end; }

if radiobutton6.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

begin

zn1:=strtozr(memo1.Text);

zn1:=Arcsinzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= AsinhZR(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= sinhzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=false)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= sinzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

end;

if radiobutton5.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

memo1.Text:=floattostr(180/pi*Arcsin(strtofloat(memo1.Text)))

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

if (strtofloat(memo1.Text)<1) then

begin

memo1.Text:='Недопустимое значение'; exit;

end

else

zn1:=strtozr(memo1.Text);

zn1:=AsinhZr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=floattostr(obrazec1);

end ;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

memo1.Text:=floattostr(sinh(strtofloat(memo1.Text)));

if ((inv.Checked=false) and ( hyp.Checked=false)) then

begin

if (frac(strtofloat(memo1.Text))=0 )then begin

if (trunc(strtofloat(memo1.Text))=0) then begin memo1.Text:='0'; exit; end;

if (trunc(strtofloat(memo1.Text))=90) then begin memo1.Text:='1';exit end;

if (trunc(strtofloat(memo1.Text))=270) then begin memo1.Text:='-1';exit end;

if (trunc(strtofloat(memo1.Text))=180) then begin memo1.Text:='0';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=0) then begin memo1.text:='0';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=90) then begin memo1.text:='1';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=180) then begin memo1.text:='0';exit end;

end;

zn1:=strtozr(memo1.Text);

zn1:=DegToRadZR(Zn1);

zn1:=sinzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=floattostr(obrazec1);

end;

end;

if radiobutton7.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

memo1.Text:=floattostr(200/pi*Arcsin(strtofloat(memo1.Text)))

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

memo1.Text:=floattostr(Arcsinh(strtofloat(memo1.Text)));

if ((inv.Checked=false) and ( hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= sinhzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=false)) then

memo1.Text:=floattostr(sin(gradtorad(strtofloat(memo1.Text))));

end;

inv.Checked:=false;

hyp.Checked:=false;

glob_check:=true;

end;

procedure TForm1.SpeedButton45Click(Sender: TObject);

begin

{if (b[t]=')') then

begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text;

memo1.Text:=rezul2(t);

end;

(b[t]<>')') then

if radiobutton6.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

begin

zn1:=strtozr(memo1.Text);

zn1:=Arccoszr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

if strtofloat(memo1.Text)<1 then

begin

memo1.Text:='Недопустимое значение';

nev:=true;

inv.Checked:=false;

hyp.Checked:=false;

exit;

end

else

begin

zn1:=strtozr(memo1.Text);

zn1:= AcoshZR(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

end;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

begin

if ( strtofloat(memo1.Text)<1 ) then

begin

memo1.Text:='Недопустимое значение ';

inv.Checked:=false;

hyp.Checked:=false;

exit;

end

else

begin

zn1:=strtozr(memo1.Text);

zn1:= coshzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

end;

if ((inv.Checked=false) and ( hyp.Checked=false)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= coszr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

end;

if radiobutton5.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

memo1.Text:=floattostr(180/pi*Arccos(strtofloat(memo1.Text)))

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

if (strtofloat(memo1.Text)<1) then

begin

memo1.Text:='Недопустимое значение';

nev:=true;

inv.Checked:=false;

hyp.Checked:=false;

exit;

end

else

zn1:=strtozr(memo1.Text);

zn1:=AcoshZr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=floattostr(obrazec1);

end ;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

memo1.Text:=floattostr(cosh(strtofloat(memo1.Text)));

if ((inv.Checked=false) and ( hyp.Checked=false)) then

begin

if (frac(strtofloat(memo1.Text))=0 )then begin

if (trunc(strtofloat(memo1.Text))=0) then begin memo1.Text:='1'; exit; end;

if (trunc(strtofloat(memo1.Text))=90) then begin memo1.Text:='0';exit end;

if (trunc(strtofloat(memo1.Text))=180) then begin memo1.Text:='-1';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=0) then begin memo1.text:='1';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=90) then begin memo1.text:='0';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=180) then begin memo1.text:='-1';exit end;

end;

zn1:=strtozr(memo1.Text);

zn1:=DegToRadZR(Zn1);

zn1:=coszr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=floattostr(obrazec1);

end;

end;

if radiobutton7.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

memo1.Text:=floattostr(200/pi*Arccos(strtofloat(memo1.Text)))

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

if strtofloat(memo1.Text)<1 then

begin

memo1.Text:='Недопустимое значение';

inv.Checked:=false;

hyp.Checked:=false;

exit;

end;

memo1.Text:=floattostr(Arccosh(strtofloat(memo1.Text)));

end;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= coshzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=false)) then

memo1.Text:=floattostr(cos(gradtorad(strtofloat(memo1.Text))));

end;

inv.Checked:=false;

hyp.Checked:=false;

glob_check:=true;

end;

procedure TForm1.SpeedButton49Click(Sender: TObject);

begin

{if (b[t]=')') then

begin

t:=t+1;

a[t]:=memo1.Text;

trig:=true;

memo1.Text:=rezul2(t);

end;

if radiobutton6.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<90) and (strtofloat(memo1.Text)>(-90)) )

then

begin

zn1:=strtozr(memo1.Text);

zn1:=Arctanzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= AtanhZR(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= tanhzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=false)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= tanzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

end;

if radiobutton5.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

begin

if (strtofloat(memo1.Text)<1) then

begin

memo1.Text:='Недопустимое значение'; exit;

end

else

zn1:=strtozr(memo1.Text);

zn1:=AtanhZr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=floattostr(obrazec1);

end ;

if ((inv.Checked=false) and ( hyp.Checked=true)) then

memo1.Text:=floattostr(tanh(strtofloat(memo1.Text)));

if ((inv.Checked=false) and ( hyp.Checked=false)) then

begin

if (frac(strtofloat(memo1.Text))=0 )then begin

if (trunc(strtofloat(memo1.Text))=0) then begin memo1.Text:='0'; exit; end;

if (trunc(strtofloat(memo1.Text))=90) then begin memo1.Text:='Недопустимоезначение';exit end;

if (trunc(strtofloat(memo1.Text))=270) then begin memo1.Text:='Недопустимоезначение';exit end;

if (trunc(strtofloat(memo1.Text))=180) then begin memo1.Text:='0';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=0) then begin memo1.text:='0';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=90) then begin memo1.text:='Недопустимоезначение';exit end;

if (trunc(strtofloat(memo1.Text)) mod 360=180) then begin memo1.text:='0';exit end;

end;

if ((strtofloat(memo1.Text)=90 ) or (strtofloat(memo1.Text)=(-90)) ) then

begin

memo1.Text:='Недопустимое значение';

inv.Checked:=false;

hyp.Checked:=false;

exit;

end

else

begin

zn1:=strtozr(memo1.Text);

zn1:=DegToRadZR(Zn1);

zn1:=tanzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=floattostr(obrazec1);

end;

end;

end;

if radiobutton7.Checked=true then

begin

if ((inv.Checked=true) and (hyp.Checked=false))then

begin

if ((strtofloat(memo1.Text)<=1) and (strtofloat(memo1.Text)>=(-1)) )

then

memo1.Text:=floattostr(200/pi*Arctan(strtofloat(memo1.Text)))

else

begin

memo1.Text:='Недопустимоезначение';

nev:=true;

end;

end;

if ((inv.Checked=true) and (hyp.Checked=true)) then

memo1.Text:=floattostr(Arccosh(strtofloat(memo1.Text)));

if ((inv.Checked=false) and ( hyp.Checked=true)) then

begin

zn1:=strtozr(memo1.Text);

zn1:= tanhzr(zn1);

obrazec1:=zrtoreal(zn1);

memo1.Text:=Floattostr(obrazec1);

end;

if ((inv.Checked=false) and ( hyp.Checked=false)) then

memo1.Text:=floattostr(tan(gradtorad(strtofloat(memo1.Text))));

end;

inv.Checked:=false;

hyp.Checked:=false;

glob_check:=true;

end;

procedure TForm1.SpeedButton43Click(Sender: TObject);

begin

{if ((skob=true ) or (b[t]=')') ) then

Begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text; memo1.Text:=rezul2(t);

end; }

zn:=strtozr(memo1.Text);

if (ComparisonZR(zn,inttozr(0))=-1) then memo1.Text:='Недопустимоезначение'

else

begin

if (ComparisonZR(zn,inttozr(91999999999999999))=-1) then

begin

zn1:=ZRToLongInt(zn,-1);

zn1:=Subzr(zn,zn1);

if ((ComparisonZR(zn1,inttozr(0)))=1) then

begin

zn1:=strtozr(memo1.Text);

zn:=multzr(inttozr(2),zn1);

zn:=sumzr(inttozr(1),zn);

zn:=multzr(zn1,zn);

zn:=multzr(inttozr(4),zn);

zn:=sumzr(inttozr(1),zn);

zn:=multzr(zn1,zn);

zn:=lnzr(zn);

zn:=divzr(zn,inttozr(6));

zn2:=lnzr(zn1);

zn2:=multzr(zn1,zn2);

zn2:=subzr(zn2,zn1);

zn2:=sumzr(zn2,zn);

zn:=lnzr(pi_zr);

zn:=divzr(zn,inttozr(2));

zn2:=sumzr(zn2,zn);

zn2:=powerzr(e_zr,zn2);

memo1.Text:=zr_e(zrtostr(zn2));

glob_check:=true;

end

else

begin

zn:=strtozr(memo1.Text);

zn:=ZRToLongInt(zn,0);

zn1:=FactorZr(zrtoint(zn));

memo1.Text:=zr_e(zrtostr(zn1));

glob_check:=true;

end;

end

else

memo1.Text:='Что звезды собрался считать';

end;

end;

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

begin

case key of

'9':

begin

if ( radiobutton1.Checked = true) or (radiobutton2.Checked = true) then

SpeedButton3Click(SpeedButton1);

Key := #0;

end;

'8':

begin

if ( radiobutton1.Checked = true) or (radiobutton2.Checked = true) then

SpeedButton2Click(SpeedButton1);

Key := #0;

end;

'7':

begin

if ( radiobutton4.Checked = false) then

SpeedButton1Click(SpeedButton1);

Key := #0;

end;

'6':

Begin

if ( radiobutton4.Checked = false) then

SpeedButton5Click(SpeedButton1);

Key := #0;

end;

'5':

begin

if ( radiobutton4.Checked = false) then

SpeedButton12Click(SpeedButton1);

Key := #0;

end;

'4':

begin

if ( radiobutton4.Checked = false) then

SpeedButton11Click(SpeedButton1);

Key := #0;

end;

'3':

begin

if ( radiobutton4.Checked = false) then

SpeedButton15Click(SpeedButton1);

Key := #0;

end;

'2':

begin

if ( radiobutton4.Checked = false) then

SpeedButton14Click(SpeedButton1);

Key := #0;

end;

'1':

begin

SpeedButton13Click(SpeedButton1);

Key := #0;

end;

'0':

begin

SpeedButton23Click(SpeedButton1);

Key := #0;

end;

'/':

begin

SpeedButton4Click(SpeedButton1);

Key := #0;

end;

'*':

begin

SpeedButton6Click(SpeedButton1);

Key := #0;

end;

'-':

begin

SpeedButton16Click(SpeedButton1);

Key := #0;

end;'+':

begin

SpeedButton18Click(SpeedButton1);

Key := #0;

end;

#13:

begin

SpeedButton19Click(SpeedButton1);

Key := #0;

end;

#27:

begin

SpeedButton56Click(SpeedButton1);

Key := #0;

end;

#44:

begin

SpeedButton17Click(SpeedButton1);

Key := #0;

end;

#8:

begin

SpeedButton58Click(SpeedButton1);

Key := #0;

end;

#231:

begin

SpeedButton48Click(SpeedButton1);

Key := #0;

end;

#244:

Begin

if radioButton1.Checked=true then

SpeedButton29Click(SpeedButton1);

Key := #0;

end;

#232:

begin

if radioButton1.Checked=true then

SpeedButton30Click(SpeedButton1);

Key := #0;

end;

#241:

begin

if radioButton1.Checked=true then

SpeedButton25Click(SpeedButton1);

Key := #0;

end;

#226:

begin

if radioButton1.Checked=true then

SpeedButton26Click(SpeedButton1);

Key := #0;

end;

#243:

Begin

if radioButton1.Checked=true then

SpeedButton27Click(SpeedButton1);

Key := #0;

end;

#224:

begin

if radioButton1.Checked=true then

SpeedButton28Click(SpeedButton1);

Key := #0;

end;

#40:

begin

SpeedButton32Click(SpeedButton1);

Key := #0;

end;

#41:

begin

SpeedButton33Click(SpeedButton1);

Key := #0;

end;

end;

end;

procedure TForm1.SpeedButton35Click(Sender: TObject);

begin

{if ((skob=true ) or (b[t]=')') ) then

begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text; x

memo1.Text:=rezul2(t);

end; }

if (strtofloat(memo1.Text)>0) then

memo1.Text:=floattostr(ln(strtofloat(memo1.Text)))

else

memo1.Text:='Недопустимое значение';

glob_check:=true;

end;

procedure TForm1.SpeedButton41Click(Sender: TObject);

begin

{if ((skob=true ) or (b[t]=')') ) then

begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text;

memo1.Text:=rezul2(t);

end; }

if (strtofloat(memo1.Text)>0) then

begin

zn1:=strtozr(memo1.Text);

zn1:=Log10ZR(zn1);

memo1.Text:=floattostr(zrtoreal(zn1));

end

else

memo1.Text:='Недопустимоезначение';

glob_check:=true;

end;

procedure TForm1.SpeedButton48Click(Sender: TObject);

begin

memo1.Text:=floattostr(pi);

glob_check:=true;

end;

procedure TForm1.SpeedButton47Click(Sender: TObject);

begin

{if ((skob=true ) or (b[t]=')') ) then

Begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text;

memo1.Text:=rezul2(t);

end; }

if memo1.Text='0' then memo1.Text:='Делениенанульзапрешено'

else

begin

zn1:=strtozr(memo1.Text);

zn1:=divzr(inttozr(1),zn1);

memo1.Text:=zr_e(zrtostr(zn1));

end;

glob_check:=true;

end;

procedure TForm1.SpeedButton57Click(Sender: TObject);

begin

memo1.Text:='0';

glob_check:=true;

end;

procedure TForm1.RadioButton11Click(Sender: TObject);

var

f:string;

begin

f:='';

f:=memo1.Text;

if (length(f)>8) then

begin

memo1.Text:='';

for j:=1 to 8 do

memo1.Text:=memo1.Text+f[j];

memo1.MaxLength:=8;

end;

end;

procedure TForm1.RadioButton10Click(Sender: TObject);

var

f:string;

begin

f:='';

f:=memo1.Text;

if (length(f)>16) then

begin

memo1.Text:='';

for j:=1 to 16 do

memo1.Text:=memo1.Text+f[j];

end;

end;

procedure TForm1.RadioButton9Click(Sender: TObject);

var

f:string;

begin

f:='';

f:=memo1.Text;

if (length(f)>32) then

begin

memo1.Text:='';

for j:=1 to 32 do

memo1.Text:=memo1.Text+f[j];

end;

end;

procedure TForm1.RadioButton8Click(Sender: TObject);

var

f:string;

begin

f:='';

f:=memo1.Text;

if (length(f)>64) then

begin

memo1.Text:='';

for j:=1 to 64 do

memo1.Text:=memo1.Text+f[j];

end;

end;

procedure TForm1.SpeedButton50Click(Sender: TObject);

var

sm:string;

begin

{if ((skob=true ) or (b[t]=')') ) then

begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text; memo1.Text:=rezul2(t);

end; }

zn1:=strtozr(memo1.Text);

if inv.Checked = true then

begin

if (ComparisonZR(zn1,inttozr(0))=-1) then

begin

memo1.Text:='Недопустимое значение';

nev:=true;

exit;

end;

zn1:=powerzr(zn1,realtozr(0.5));

zn1:=RefreshZR(zn1);

end

else

begin

zn1:=sqrzr(zn1);

zn1:=RefreshZR(zn1);

end;

memo1.Text:=zr_e(zrtostr(zn1));

glob_check:=true;

{sm:=zrtostr(zn1);

for j:=1 to length(sm) do

begin

if sm[j]='Z' then sm[j]:='E';

if sm[j]='+' then delete(sm,j,1);

end;

memo1.Text:=sm;}

end;

procedure TForm1.SpeedButton46Click(Sender: TObject);

begin

{if ((skob=true ) or (b[t]=')') ) then

begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text; memo1.Text:=rezul2(t);

end; }

zn1:=strtozr(memo1.Text);

zn1:=powerzr(zn1,inttozr(3));

obrazec1:=zrtoreal(zn1);

memo1.Text:=zr_e(zrtostr(zn1));

glob_check:=true;

end;

procedure TForm1.SpeedButton10Click(Sender: TObject);

begin

case meraisch of

2: memo1.Text:=DrtoDes(memo1.Text,2);

8: memo1.Text:=DrtoDes(memo1.Text,8);

16: memo1.Text:=DrtoDes(memo1.Text,16);

End;

t:=t+1;

a[t]:=memo1.Text;

b[t]:='m';

if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-')) and ((b[t-1]<>'+') and(b[t-1]<>'-') )) and (skob=false)) then

memo1.Text:=rezul(t-1);

glob_check:=true;

case meraisch of

2: memo1.Text:=DesToDr(memo1.Text,2);

8: memo1.Text:=DesToDr(memo1.Text,8);

16: memo1.Text:=DesToDr(memo1.Text,16);

end;

end;

procedure TForm1.SpeedButton28Click(Sender: TObject);

begin

if (glob_check=true) then memo1.Text:='';

memo1.Text:=memo1.Text+'F';

glob_check:=false;

end;

procedure TForm1.SpeedButton21Click(Sender: TObject);

begin

{if ((skob=true ) or (b[t]=')') ) then

begin

trig:=true;

t:=t+1;

a[t]:=memo1.Text;

memo1.Text:=rezul2(t);

end; }

zn1:=strtozr(memo1.Text);

zn1:=sumzr(zn1,inttozr(1));

zn1:=multzr(inttozr(-1),zn1);

memo1.Text:=zr_e(zrtostr(zn1));

glob_check:=true;

end;

procedure TForm1.SpeedButton24Click(Sender: TObject);

begin

zn1:=strtozr(memo1.Text);

zn1:=multzr(inttozr(-1),zn1);

memo1.Text:=floattostr(zrtoreal(zn1));

glob_check:=true;

end;

procedure TForm1.SpeedButton58Click(Sender: TObject);

var

st:string;

begin

st:=memo1.Text;

delete(st,length(st),1);

memo1.Text:=st;

if memo1.Text='' then

begin

memo1.Text:='0';

glob_check:=true;

end;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

showmessage ('Ну и что здесь не понятного');

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ShowMessage(' Что инженерного Мало ');

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Clipboard.SetTextBuf(PChar(memo1.Text)); //copy

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Memo1.Text := Clipboard.AsText; //paste

glob_check:=true;

end;

procedure TForm1.SpeedButton22Click(Sender: TObject);

begin

case meraisch of

2: memo1.Text:=DrtoDes(memo1.Text,2);

8: memo1.Text:=DrtoDes(memo1.Text,8);

16: memo1.Text:=DrtoDes(memo1.Text,16);

end;

t:=t+1;

a[t]:=memo1.Text;

if inv.Checked=false then

b[t]:='l'

else

b[t]:='h';

if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-')) and ((b[t-1]<>'+') and(b[t-1]<>'-') )) and (skob=false)) then

memo1.Text:=rezul(t-1);

glob_check:=true;

case meraisch of

2: memo1.Text:=DesToDr(memo1.Text,2);

8: memo1.Text:=DesToDr(memo1.Text,8);

16: memo1.Text:=DesToDr(memo1.Text,16);

end;

end;

end.

//допоміжна форма

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, CheckLst;

type

TForm2 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

ListBox1: TListBox;

procedure SpeedButton1Click(Sender: TObject);

procedure Memo1KeyPress(Sender: TObject; var Key: Char);

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

form1.SetFocus;

end;

procedure TForm2.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

key:=chr(0);

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

form1.speedbutton52.Visible:=true;

form1.speedbutton53.Visible:=true;

form1.speedbutton54.Visible:=true;

form1.speedbutton55.Visible:=true;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

form1.speedbutton52.Enabled:=true;

form1.speedbutton53.Enabled:=true;

form1.speedbutton54.Enabled:=true;

form1.speedbutton55.Enabled:=true;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.speedbutton52.Enabled:=false;

form1.speedbutton53.Enabled:=false;

form1.speedbutton54.Enabled:=false;

form1.speedbutton55.Enabled:=false;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

ListBox1.Items.Clear;

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

if (ListBox1.ItemIndex=-1) then ShowMessage('Нет чисел для добавления')

else

form1.Memo1.Text:=ListBox1.Items.Strings[ListBox1.ItemIndex];

glob_check:=true;

end;

end.

//Операції з мульти розрядними дійсними числами типу Real

unit zoomingRN;

interface

type

TZN = array of Byte;

ZReal = Record

R :Byte; {arithmetic range: binary(=2), decimal(=10), hexadecimal(=16), and others}

E :Int64; {number exponent (index of power)}

U :Char; {Unary}

I :TZN; {Number - array of digits}

end;

type

TDynArrZR = array of ZReal ;

var

ShowErrorZR: boolean = false;

ErrorZR: boolean = false;

MessageZR: string = '';

MaxZNCount: Cardinal = 32;

InfZNCount: Cardinal = 1000;

ZeroZNExp:Int64 = low(Int64);

RoundZN:Byte = 5;

RealTypeShow:Boolean = False;

const

VersionZR='1.0 Original for Delphi [Byte]';

setNumsZR = ['0'..'9'] ;

setUnarZR = ['+', '-'] ;

setCharZR = ['z', 'Z'] ;

setCharIR = ['i', 'I'] ;

setCharPo = ['.', ','] ;

setCharER = ['e', 'E', 'е', 'Е'] ;

decimal=10;

MaxZNCountDefault=32;

function InfiniteZR(Un: Char): ZReal;

function HighDeciZR(const ZR: ZReal; out IsNearInf: Boolean): ZReal;

function Pi_ZR: ZReal;

function e_ZR: ZReal;

function IsInfinite(const ZR: ZReal): Boolean;

function TanhZR(const ZR: ZReal ): ZReal;

function CothZR(const ZR: ZReal ): ZReal;

function PowerZR(const ZR: ZReal; Power: ZReal): ZReal;

function Log2ZR(const ZR: ZReal): ZReal;

function Log10ZR(const ZR: ZReal): ZReal;

function LogNZR(const Base, ZR: ZReal): ZReal;

function CotanZR(const ZR: ZReal ): ZReal;

function CosZR(const ZR: ZReal ): ZReal;

function SinZR(const ZR: ZReal ): ZReal;

procedure SinCosZR(const Theta: ZReal; out Sin, Cos: ZReal);

implementation

uses

Windows,

SysUtils;

Type

TMathValueSign = -1..1;

const

MathNegativeValue = Low(TMathValueSign);

MathZeroValue = 0;

MathPositiveValue = High(TMathValueSign);

function MathRandomRange(const AFrom, ATo: Integer): Integer;

begin

if AFrom > ATo then

Result := Random(AFrom - ATo) + ATo

Else

Result := Random(ATo - AFrom) + AFrom;

end;

function IsIn9_10(const ZR: ZReal): Boolean;

varlen:Integer;

begin

Result:=False;

len:=Length(ZR.I);

if len=0 then Exit;

if len=1 then

begin

if ZR.I[0]=9 then Result:=True;

Exit;

end;

if ZR.I[High(ZR.I)]=9 then begin Result:=True; Exit; end;

if (ZR.I[High(ZR.I)]=1) and (ZR.I[High(ZR.I)-1]=0) then Result:=True;

end;

function IsIn999_1000(const ZR: ZReal): Boolean;

varlen,k:Integer;

begin

Result:=False;

len:=Length(ZR.I);

if len<3 then Exit;

if len=3 then

begin

if (ZR.I[0]=ZR.I[2]) and (ZR.I[0]=ZR.I[1]) and (ZR.I[0]=9) then Result:=True;

Exit;

end;

k:=High(ZR.I);

if (ZR.I[k-2]=9) and (ZR.I[k-1]=9) and (ZR.I[k]=9) then

begin Result:=True; Exit; end;

if (ZR.I[k]=1) and (ZR.I[k-1]=0) and (ZR.I[k-2]=0) and (ZR.I[k-3]=0) then Result:=True;

end;

function IsIn99999_100000(const ZR: ZReal): Boolean;

var len,k,i:Integer;

begin

Result:=False;

len:=Length(ZR.I);

if len<4 then Exit;

if len=4 then

begin

for i:=0 to len-1 do

if (ZR.I[i]<>9) then Exit;

Result:=True;

Exit;

end;

k:=High(ZR.I);

if ZR.I[k]=9 then

begin

for i:=1 to 4 do

begin

if ZR.I[k-i]<>9 then Exit;

end;

Result:=True;

Exit;

end;

if ZR.I[k]=1 then

begin

for i:=1 to 5 do

begin

if ZR.I[k-i]<>0 then Exit;

end;

Result:=True;

Exit;

end;

end;

procedure DelArrElem(var A: TDynArrZR; Index: Integer);

var

n: Integer;

i: Integer;

begin

n:= High(A);

if Index<n then

begin

for i:=Index to n-1 do

begin

A[i]:=A[i+1];

end;

SetLength(A, n-1 );

end;

end;

function squeezeArea(const ZR: ZReal): ZReal;

var

ZR0: ZReal;

BakMaxZNCount:Cardinal;

exp: Int64;

bool: Boolean;

begin

Result:=ZR;

BakMaxZNCount:=MaxZNCount;

exp:=HighDeciZR(ZR,bool).E;

if exp>1000 then exp:=1000;

if exp>0

then MaxZNCount:=MaxZNCount+exp+2

else MaxZNCount:=MaxZNCount+2;

while MoreThanZR(AbsZR(Result),Pi_ZR) do

begin

ZR0:=DivZR(Result,PiMult2_ZR);

ZR0:=ZRToLongInt(ZR0);

ZR0:=MultZR(PiMult2_ZR,ZR0);

Result:=SubZR(Result,ZR0);

end;

MaxZNCount:=BakMaxZNCount;

end;

function _CosZR(const ZR: ZReal): ZReal;

var

ZR0,ZR1,ZR2,ZR3,ZR4: ZReal;

BakMaxZNCount: Cardinal;

bool: Boolean;

i,j: Integer;

iExp: Integer;

begin

BakMaxZNCount:=MaxZNCount;

MaxZNCount:=MaxZNCount+3;

ZR0:=OneZR;

ZR4:=SqrZR(ZR);

ZR1:=ZR0;

j:=HighDeciZR(ZR0,bool).E;

iExp:=j-MaxZNCount+2;

i:=0;

ZR2:=OneZR;

while (j>iExp) do

begin

MaxZNCount:=j-iExp+2;

ZR1:=MultZR(ZR4,InvertUnaryZR(ZR1));

Inc(i);

ZR2:=MultZR(ZR2,IntToZR(i));

Inc(i);

ZR2:=MultZR(ZR2,IntToZR(i));

ZR3:=DivZR(ZR1,ZR2);

j:=HighDeciZR(ZR3,bool).E;

MaxZNCount:=BakMaxZNCount+2;

ZR0:=SumZR(ZR0,ZR3);

end;

Result:=ZR0;

MaxZNCount:=BakMaxZNCount;

end;

j:=HighDeciZR(ZR0,bool).E;

iExp:=j-MaxZNCount+2;

i:=1;

ZR2:=OneZR;

while (j>iExp) do

begin

MaxZNCount:=j-iExp+2;

ZR1:=MultZR(ZR4,InvertUnaryZR(ZR1));

Inc(i);

ZR2:=MultZR(ZR2,IntToZR(i));

Inc(i);

ZR2:=MultZR(ZR2,IntToZR(i));

ZR3:=DivZR(ZR1,ZR2);

j:=HighDeciZR(ZR3,bool).E;

MaxZNCount:=BakMaxZNCount+2;

ZR0:=SumZR(ZR0,ZR3);

end;

Result:=ZR0;

MaxZNCount:=BakMaxZNCount;

end;

procedure Func(Const arg: ZReal; out F: ZReal; Const Ind: ShortInt);

begin

case ind of

-1: F:=_CosZR(arg);

1: F:=_SinZR(arg);

end;

end;

function TrimLeftZR(var Arr:TZN): Boolean;

i:Integer;

lenN: Integer;

nzero:Integer;

begin

Result:=False;

lenN:=Length(Arr);

nzero:=0;

for i:=lenN-1 downto 0 do

begin

if Arr[i] = 0 then Inc(nzero)

else Break;

end;

if nzero > 0 then

begin

if lenN=nzero then Dec(nzero);

SetLength(Arr, lenN-nzero);

if lenN>1 then Result:=True;

end;

end;

function TrimRightZR(var ZR:ZReal): Shortint;

var

i:Integer;

lenN: Integer;

nzero:Integer;

begin

Result:=0;

lenN:=Length(ZR.I);

nzero:=0;

for i:=0 to lenN-1 do

begin

if ZR.I[i] = 0 then Inc(nzero)

else Break;

end;

if nzero=lenN then begin Result:=1; ZR:=DefaultZR;

Exit;

end;

if nzero > 0 then

begin

if ZR.E>0 then

if (High(Int64)-ZR.E)<nzero then begin Result:=-1; Exit; end;

for i:=0 to lenN-nzero-1 do

begin

ZR.I[i] := ZR.I[i+nzero];

end;

SetLength(ZR.I, lenN-nzero);

ZR.E:=ZR.E+nzero;

Result:=1;

end;

end;

function LengthZR(var ZR:ZReal): Cardinal;

var

rExp:Int64;

isInf:Boolean;

begin

Result:=0;

if ZR.U='-' then Inc(Result);

if RealTypeShow then

begin

rExp:=HighDeciZR(ZR,isInf).E;

if not isInf then

begin

Result:=Length(ZRToStr(ZR));

Exit;

end;

end;

if ZR.E<>0 then

begin

Result:=Result+Length(IntToStr(ZR.E))+1;

if ZR.E>0 then Result:=Result+1;

end;

Result:=Result+Length(ZR.I);

end;

function RefreshZR(var ZR:ZReal): ZReal;

begin

TrimLeftZR(ZR.I);

TrimRightZR(ZR);

Result:=ZR;

end;

function AbsZR(const ZR: ZReal): ZReal;

begin

Result:=ZR;

if Result.U='-' then begin Result.U:='+'; Exit; end;

if Result.U='i' then begin Result.U:='I'; Exit; end;

end;

function EpsilonZR: ZReal;

var

zArr:TZN;

begin

Result.E:=ZeroZNExp;

Result.U:='+';

Result.R:=decimal;

SetLength(zArr, 1);

zArr[0]:=1;

Result.I:=zArr;

end;

function OneDivZR(const ZR: ZReal): ZReal;

begin

Result:=DivZR(OneZR, ZR);

end;

function PercentZR(const Percent: ZReal; const ZR: ZReal): ZReal;

begin

Result:=DivZR(Percent, StrToZR('100'));

Result:=MultZR(Result,ZR);

end;

function MinExtendedZR: ZReal;

begin

Result.R:=decimal;

Result.E:=-4933;

Result.U:='+';

SetLength(Result.I, 2);

Result.I[0]:=4;

Result.I[1]:=3;

end;

function EqvToZR(const WhatZR: ZReal; const ToZR: ZReal): Boolean;

begin

Result := ComparisonZR(WhatZR, ToZR) = 0 ;

End.

Додаток В

Опис програми UA.ОМК.620111-0513

ЗМІСТ

• 1. Загальні відомості
• 2. Функціональне призначення
• 3. Виклик і завантаження
• 4. Вхідні дані
• 5. Вихідні дані
• ЗАГАЛЬНІ ВІДОМОСТІ

Розроблений програмний продукт функціонує в операційних системах Microsoft© Windows XP / 2003 / 2008 / 7 / 8.1. Для коректної роботи програми необхідно мінімум 256 МБ оперативної пам`яті та процесор з частотою 1000 МГц. Для розробки інтерфейсу користувача було використане сучасне інтегроване середовище програмування EmbarcaderoRADStudioXE4.

1. ФУНКЦІОНАЛЬНЕ ПРИЗНАЧЕННЯ

Основним функціональним призначенням розробленого програмного продукту є простота шифрування/розшифрування тексту, що вводить користувач. Дана програма може бути застосована у будь-якій системі для шифрування, адже вона є універсальною і легко пристосовується до нових вхідних даних, не вимоглива до ресурсів системи і є простою в користуванні.

2. ВИКЛИК І ЗАВАНТАЖЕННЯ

Виклик програми здійснюється подвійнім натисканням миші по виконуваному файлі Project1.exe, після чого здійснюється завантаження даних у робочу область.

3. ВХІДНІ ДАНІ

Вхідними даними для даного програмного продукту є отримання результату підрахунку , що записується у вигляді букв цифр, масиву чисел, логарифму, функції.

5.ВИХІДНІ ДАНІ

Вихідними даними є отримання результату обчислення в інженерному калькуляторі, який при необхідності можна зберегти.

Размещено на Allbest.ru