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

.Text:=Floattostr (obrazec1) ;;; radiobutton5.Checked=true then ((inv.Checked=true) and (hyp.Checked=false)) then ((strtofloat (memo1.Text) lt;= 1) and (strtofloat (memo1.Text) gt;=(- 1)) ).Text:=floattostr(180/pi*Arcsin(strtofloat(memo1.Text))).Text:=laquo;Недопустимоезначениеraquo;;:=true;;;((inv.Checked=true) and (hyp.Checked=true)) then (strtofloat (memo1.Text) lt; 1) then

begin.Text:= Неприпустиме значення raquo ;; exit;

end:=strtozr(memo1.Text);:=AsinhZr(zn1);:=zrtoreal(zn1);.Text:=floattostr(obrazec1);;((inv.Checked=false) and (hyp.Checked=true)) then.Text:=floattostr (sinh (strtofloat (memo1.Text))); ((inv.Checked=false) and (hyp.Checked=false)) then (frac (strtofloat ( memo1.Text))=0) then begin (trunc (strtofloat (memo1.Text))=0) then begin memo1.Text:= 0 raquo ;; exit; end; (trunc (strtofloat (memo1.Text))=90) then begin memo1.Text:= 1 raquo ;; exit end; (trunc (strtofloat (memo1.Text))=270) then begin memo1.Text:= - 1 raquo ;; exit end; (trunc (strtofloat (memo1.Text))=180) then begin memo1.Text:= 0 raquo ;; exit end; (trunc (strtofloat (memo1.Text)) mod 360=0) then begin memo1.text:= 0 raquo ;; exit end; (trunc (strtofloat (memo1.Text)) mod 360=90) then begin memo1.text:= 1 raquo ;; exit end; (trunc (strtofloat ( memo1.Text)) mod 360=180) then begin memo1.text:= 0 raquo ;; exit end ;;:=strtozr (memo1.Text);:=DegToRadZR (Zn1);:=sinzr (zn1);

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

end ;; radiobutton7.Checked=true then ((inv.Checked=true) and (hyp.Checked=false)) then ((strtofloat (memo1.Text) lt;=1) and (strtofloat (memo1.Text ) gt;=(- 1)) ).Text:=floattostr(200/pi*Arcsin(strtofloat(memo1.Text))).Text:=laquo;Недопустимоезначениеraquo;;:=true;;;((inv.Checked=true) and (hyp.Checked=true)) then.Text:=floattostr (Arcsinh (strtofloat (memo1.Text))); ((inv.Checked=false) and (hyp.Checked=true)) then:=strtozr (memo1.Text);

zn1:=sinhzr (zn1);:=zrtoreal (zn1);

memo1.Text:=Floattostr (obrazec1) ;; ((inv.Checked=false) and (hyp.Checked=false)) then.Text:=floattostr (sin (gradtorad (strtofloat (memo1.Text))) ) ;;.Checked:=False; .Checked:=false; _check:=true ;; TForm1.SpeedButton45Click (Sender: TObject);

{if (b [t]=) ) then:=true;:=t + 1; [t]:=memo1.Text;.Text:=Rezul2 (t) ;;

(b [t] lt; gt; ) ) thenradiobutton6.Checked=true then ((inv.Checked=true) and (hyp.Checked=false)) then ((strtofloat (memo1.Text) lt;=1) and (strtofloat (memo1.Text) gt;=(- 1)) ):=strtozr(memo1.Text);:=Arccoszr(zn1);:=zrtoreal(zn1);.Text:=Floattostr(obrazec1);.Text:=laquo;Недопустимоезначениеraquo;;:=true;;;((inv.Checked=true) and (hyp.Checked=true)) thenstrtofloat (memo1.Text) lt; 1 then

begin.Text:= Неприпустиме значення raquo ;;

nev:=true; .Checked:=false; .Checked:=false ;;:=strtozr (memo1.Text);

zn1:=AcoshZR (zn1);:=zrtoreal (zn1);

memo1.Text:=Floattostr (obrazec1) ;;; ((inv.Checked=false) and (hyp.Checked=true)) then (strtofloat (memo1.Text) lt; 1) then

begin.Text:= Неприпустиме значення raquo ;;

inv.Checked:=false; .Checked:=false ;;:=strtozr (memo1.Text);

zn1:=coshzr (zn1);:=zrtoreal (zn1);

memo1.Text:=Floattostr (obrazec1) ;;; ((inv.Checked=false) and (hyp.Checked=false)) then:=strtozr (memo1.Text);

zn1:=coszr (zn1);:=zrtoreal (zn1);

memo1.Text:=Floattostr (obrazec1) ;;; radiobutton5.Checked=true then ((inv.Checked=true) and (hyp.Checked=false)) then ((strtofloat (memo1.Text) lt;= 1) and (strtofloat (memo1.Text) gt;=(- 1)) ).Text:=floattostr(180/pi*Arccos(strtofloat(memo1.Text))).Text:=laquo;Недопустимоезначениеraquo;;:=true;;;((inv.Checked=true) and (hyp.Checked=true)) then (strtofloat (memo1.Text) lt; 1) then

begin.Text:= Неприпустиме значення raquo ;;

nev:=true;.Checked:=false;.Checked:=false;;:=strtozr(memo1.Text);:=AcoshZr(zn1);:=zrtoreal(zn1);.Text:=floattostr(obrazec1);;((inv.Checked=false) and (hyp.Checked=true)) then.Text:=floattostr (cosh (strtofloat (memo1.Text))); ((inv.Checked=false) and (hyp.Checked=false)) then (frac (strtofloat ( memo1.Text))=0) then begin (trunc (strtofloat (memo1.Text))=0) then begin memo1.Text:= 1 raquo ;; exit; end; (trunc (strtofloat (memo1.Text))=90) then begin memo1.Text:= 0 raquo ;; exit end; (trunc (strtofloat (memo1.Text))=180) then begin memo1.Text:= - 1 raquo ;; exit end; (trunc (strtofloat (memo1.Text)) mod 360=0) then begin memo1.text:= 1 raquo ;; exit end; (trunc (strtofloat (memo1.Text)) mod 360= 90) then begin memo1.text:= 0 raquo ;; exit end; (trunc (strtofloat (memo1.Text)) mod 360=180) then begin memo1.text:=- 1 raquo ;; exit end ;;:=strtozr (memo1.Text);:=DegToRadZR (Zn1);:=coszr (zn1);

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

end ;; radiobutton7.Checked=true then ((inv.Checked=true) and (hyp.Checked=false)) then ((strtofloat (memo1.Text) lt;=1) and (strtofloat (memo1.Text ) ...