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

  
Телефон +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
Мова: 
Українська
Оцінка: 

style="text-align: justify;">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))
Фото Капча