Архив прог в Делфи (Матем. кальк.)

Посмотреть архив целиком

unit Unit1;


interface


uses

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

Dialogs, StdCtrls;


type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Edit1: TEdit;

ButtonDel: TButton;

ButtonUmn: TButton;

ButtonVich: TButton;

Button0: TButton;

ButtonZnak: TButton;

ButtonFloat: TButton;

ButtonPlus: TButton;

Buttonsqrt: TButton;

Buttonednax: TButton;

ButtonRavno: TButton;

ButtonC: TButton;

ButtonKub: TButton;

Buttoncos: TButton;

Buttonsin: TButton;

ButtonKvadr: TButton;

Buttontg: TButton;

Buttonlog: TButton;

Buttonln: TButton;

Buttonnfak: TButton;

Buttonpi: TButton;

procedure Button1Click(Sender: TObject);

procedure Button0Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure ButtonCClick(Sender: TObject);

procedure ButtonPlusClick(Sender: TObject);

procedure ButtonRavnoClick(Sender: TObject);

procedure ButtonDelClick(Sender: TObject);

procedure ButtonUmnClick(Sender: TObject);

procedure ButtonVichClick(Sender: TObject);

procedure ButtonsqrtClick(Sender: TObject);

procedure ButtonednaxClick(Sender: TObject);

procedure ButtonZnakClick(Sender: TObject);

procedure ButtonFloatClick(Sender: TObject);

procedure ButtonpiClick(Sender: TObject);

procedure ButtonKvadrClick(Sender: TObject);

procedure ButtonKubClick(Sender: TObject);

procedure ButtonlnClick(Sender: TObject);

procedure ButtonlogClick(Sender: TObject);

procedure ButtoncosClick(Sender: TObject);

procedure ButtonsinClick(Sender: TObject);

procedure ButtontgClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;


var

Form1: TForm1;

op:char;

x1,x2,sum:real;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:='1'+edit1.Text;

end;


procedure TForm1.Button0Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'0';

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'2';

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'3';

end;


procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'4';

end;


procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'5';

end;


procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'6';

end;


procedure TForm1.Button7Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'7';

end;


procedure TForm1.Button8Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'8';

end;


procedure TForm1.Button9Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'9';

end;


procedure TForm1.ButtonCClick(Sender: TObject);

begin

Edit1.Text:='';

end;


procedure TForm1.ButtonPlusClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

Edit1.text:='';

op:='+';

end;


procedure TForm1.ButtonRavnoClick(Sender: TObject);

begin

x2:=strtofloat(Edit1.Text);

case op of

'+':sum:=x1+x2;

'/':sum:=x1/x2;

'*':sum:=x1*x2;

'-':sum:=x1-x2;

end;

edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonDelClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

Edit1.Text:='';

op:='/';


end;


procedure TForm1.ButtonUmnClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

Edit1.Text:='';

op:='*';

end;


procedure TForm1.ButtonVichClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);


Edit1.Text:='';

op:='-';

end;


procedure TForm1.ButtonsqrtClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=sqrt(x1);

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonednaxClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=1/x1;

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonZnakClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

x1:=x1*(-1);

Edit1.Text:=floattostr(x1);

end;


procedure TForm1.ButtonFloatClick(Sender: TObject);

begin

edit1.Text:='0,';



end;


procedure TForm1.ButtonpiClick(Sender: TObject);

begin

x1:=pi;

edit1.Text:=floattostr(x1);

end;


procedure TForm1.ButtonKvadrClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=x1*x1;

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonKubClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=x1*x1*x1;

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonlnClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=ln(x1);

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonlogClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=ln(x1)/ln(10);

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtoncosClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=cos(x1);

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonsinClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=sin(x1);

Edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtontgClick(Sender: TObject);

begin

x1:=strtofloat(Edit1.Text);

sum:=sin(x1)/cos(x1);

Edit1.Text:=floattostr(sum);

end;


end.




























var

Form1: TForm1;

op:char;

x1,x2,sum:real;


Impleventation


procedure TForm1.Button0Click(Sender: TObject);


begin

edit1.Text:=edit1.Text+'0';

end;

.

.

.

procedure TForm1.ButtonCClick(Sender: TObject);


begin

Edit1.Text:='';

end;


procedure TForm1.ButtonPlusClick(Sender: TObject);


begin

x1:=strtofloat(Edit1.Text);

Edit1.text:='';

op:='+';

end;


procedure TForm1.ButtonRavnoClick(Sender: TObject);

begin

x2:=strtofloat(Edit1.Text);

case op of

'+':sum:=x1+x2;

'/':sum:=x1/x2;

'*':sum:=x1*x2;

'-':sum:=x1-x2;

end;

edit1.Text:=floattostr(sum);

end;


procedure TForm1.ButtonsqrtClick(Sender: TObject);


begin

x1:=strtofloat(Edit1.Text);

sum:=sqrt(x1);

Edit1.Text:=floattostr(sum);

end;

END.

Функции


Цифры от 0 до 9.

Sqrt, sqr, x3, pi, ln, log, arctg, sin, cos, tg, ctg, xn






Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.