Матем. кальк. (956898)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

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, x³, pi, ln, log, arctg, sin, cos, tg, ctg, xⁿ

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов учебной работы