Портал освітньо-інформаційних послуг «Студентська консультація»

  
Телефон +3 8(066) 185-39-18
Телефон +3 8(093) 202-63-01
 (093) 202-63-01
 studscon@gmail.com
 facebook.com/studcons

<script>

  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){

  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),

  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)

  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

 

  ga('create', 'UA-53007750-1', 'auto');

  ga('send', 'pageview');

 

</script>

Інженерний калькулятор

Предмет: 
Програмування
Тип роботи: 
Курсова робота
К-сть сторінок: 
69
Мова: 
Українська
Оцінка: 

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;
Фото Капча