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

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

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

inv.Checked:=false;.Checked:=false;;;.Text:=floattostr(Arccosh(strtofloat(memo1.Text)));;((inv.Checked=false) and (hyp.Checked=true)) then:=strtozr (memo1.Text);

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

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

{if (b [t]=) ) then:=t + 1; [t]:=memo1.Text; :=true; .Text:=rezul2 (t) ;; radiobutton6.Checked=true then ((inv.Checked=true) and (hyp.Checked=false)) then ((strtofloat (memo1.Text) lt; 90) and (strtofloat (memo1.Text) gt; (- 90) )):=strtozr (memo1.Text);

zn1:=Arctanzr (zn1);:=zrtoreal (zn1);

memo1.Text:=Floattostr(obrazec1);.Text:=laquo;Недопустимоезначениеraquo;;:=true;;;((inv.Checked=true) and (hyp.Checked=true)) then:=strtozr (memo1.Text);

zn1:=AtanhZR (zn1);:=zrtoreal (zn1);

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

zn1:=tanhzr (zn1);:=zrtoreal (zn1);

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

zn1:=tanzr (zn1);:=zrtoreal (zn1);

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

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

end:=strtozr (memo1.Text);

zn1:=AtanhZr (zn1);:=zrtoreal (zn1);

memo1.Text:=floattostr (obrazec1) ;; ((inv.Checked=false) and (hyp.Checked=true)) then.Text:=floattostr (tanh (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:= Недопустімоезначеніе raquo ;; exit end; (trunc (strtofloat (memo1.Text))=270) then begin memo1.Text:= Недопустімоезначеніе 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:= Недопустімоезначеніе raquo ;; exit end; (trunc (strtofloat (memo1.Text)) mod 360=180) then begin memo1.text:= 0 raquo ;; exit end ;; ((strtofloat (memo1.Text)=90) or (strtofloat (memo1.Text)=(- 90 ))) then

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

inv.Checked:=false; .Checked:=false ;;:=strtozr (memo1.Text);:=DegToRadZR (Zn1);:=tanzr (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*Arctan(strtofloat(memo1.Text))).Text:=laquo;Недопустимоезначениеraquo;;:=true;;;((inv.Checked=true) and (hyp.Checked=true)) then.Text:=floattostr (Arccosh (strtofloat (memo1.Text))); ((inv.Checked=false) and (hyp.Checked=true)) then:=strtozr (memo1.Text);

zn1:=tanhzr (zn1);:=zrtoreal (zn1);

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

{if ((skob=true) or (b [t]=) )) then:=true;:=t + 1; [t]:=memo1.Text; memo1.Text:=rezul2 (t) ;; }:=strtozr (memo1.Text); (ComparisonZR (zn, inttozr (0))=- 1) then memo1.Text:=laquo;Недопустимоезначениеraquo;(ComparisonZR(zn,inttozr(91999999999999999))=- 1) then:=ZRToLongInt (zn, - 1);:=Subzr (zn, zn1); ((ComparisonZR (zn1, inttozr (0)))=1) then:=strtozr(memo1.Text);:=multzr(inttozr(2),zn1);:=sumzr(inttozr(1),zn);:=multzr(zn1,zn);:=multzr(inttozr(4),zn);:=sumzr(inttozr(1),zn);:=multzr(zn1,zn);:=lnzr(zn);:=divzr(zn,inttozr(6));:=lnzr(zn1);:=multzr(zn1,zn2);:=subzr(zn2,zn1);:=sumzr(zn2,zn);:=lnzr(pi_zr);:=divzr(zn,inttozr(2));:=sumzr(zn2,zn);:=powerzr(e_zr,zn2);

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

glob_check:=true;:=strtozr (memo1.Text);:=ZRToLongInt (zn, 0);

zn1:=FactorZr (zrtoint (zn)) ;. Text:=zr_e (zrtostr (zn1));

glob_check:=true ;;

memo1.Text:= Що зірки зібрався вважати raquo ;;

end ;; TForm1.FormKeyPress (Sender: TObject; var Key: Char); key of

9 :( radiobu...