Список использованной литературы
Баженова Ю.Н. , Delphi 7. Самоучитель программиста, КУДИЦ-Образ, 2003г.- 448с
Гинзбург Е.Г., Голованов Н.Ф., Зубчатые передачи. Справочник. Издание второе, переработанное Ленинград, "Машиностроение", 1980 г. – 414с
Дарахвелидзе П.Г., Марков Е.П. Delphi – среда визуального программирования – СПб.: БХБ – Питер, 2003 – 774с.
Чиртик А. А., Борисок В. В., Корвель Ю. И., Delphi. Трюки и эффекты., Трюки и эффекты., 2007г. - 281с.
Приложение а
ТЕКСТЫ ПРОГРАММНЫХ МОДУЛЕЙ
Листинг модуля Unit1.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, xpman, jpeg, ExtCtrls, math, Unit2;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
Image17: TImage;
Image18: TImage;
Image19: TImage;
Image20: TImage;
Image21: TImage;
Image22: TImage;
Image23: TImage;
Image24: TImage;
Button1: TButton;
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure Image8Click(Sender: TObject);
procedure Image9Click(Sender: TObject);
procedure Image10Click(Sender: TObject);
procedure Image11Click(Sender: TObject);
procedure Image12Click(Sender: TObject);
procedure Image13Click(Sender: TObject);
procedure Image14Click(Sender: TObject);
procedure Image15Click(Sender: TObject);
procedure Image16Click(Sender: TObject);
procedure Image17Click(Sender: TObject);
procedure Image18Click(Sender: TObject);
procedure Image19Click(Sender: TObject);
procedure Image20Click(Sender: TObject);
procedure Image21Click(Sender: TObject);
procedure Image22Click(Sender: TObject);
procedure Image23Click(Sender: TObject);
procedure Image24Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,x: extended;
implementation
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( power(x,a+1)/(a+1) , fffixed,6,4);
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( ln(abs(x)) , fffixed,6,4);
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( ln(abs(x+a)) , fffixed,6,4);
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( 2*sqrt(x) , fffixed,6,4);
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (-1)/x , fffixed,6,4);
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( power(a,x)/ln(a) , fffixed,6,4);
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( exp(x) , fffixed,6,4);
end;
procedure TForm1.Image8Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( x*ln(x)-x , fffixed,6,4);
end;
procedure TForm1.Image9Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( -1*cos(x) , fffixed,6,4);
end;
procedure TForm1.Image10Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( sin(x) , fffixed,6,4);
end;
procedure TForm1.Image11Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( -1*ln(abs(cos(x))) , fffixed,6,4);
end;
procedure TForm1.Image12Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( ln(abs(sin(x))) , fffixed,6,4);
end;
procedure TForm1.Image13Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( tan(x) , fffixed,6,4);
end;
procedure TForm1.Image14Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( -1*cos(x)/sin(x) , fffixed,6,4);
end;
procedure TForm1.Image15Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( ln(abs(tan(x/2))) , fffixed,6,4);
end;
procedure TForm1.Image16Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( ln(tan(x/2+PI/4)) , fffixed,6,4);
end;
procedure TForm1.Image17Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( arcsin(x/a) , fffixed,6,4);
end;
procedure TForm1.Image18Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (1/a)*arctan(x/a) , fffixed,6,4);
end;
procedure TForm1.Image19Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (1/(2*a))*ln(abs((a+x)/(a-x))) , fffixed,6,4);
end;
procedure TForm1.Image20Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (1/(2*a))*ln(abs((x-a)/(x+a))) , fffixed,6,4);
end;
procedure TForm1.Image21Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( ln(x+sqrt(sqr(x)+a)) , fffixed,6,4);
end;
procedure TForm1.Image22Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (x/2)*sqrt(sqr(x)+sqr(a))+(sqr(a)/2)*ln(abs(x+sqrt(sqr(x)+sqr(a)))) , fffixed,6,4);
end;
procedure TForm1.Image23Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (x/2)*sqrt(sqr(x)-sqr(a))-(sqr(a)/2)*ln(abs(x+sqrt(sqr(x)-sqr(a)))) , fffixed,6,4);
end;
procedure TForm1.Image24Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
x:=StrToFloat(Edit2.Text);
Edit3.Text:=FloatToStrF( (x/2)*sqrt(sqr(a)-sqr(x))+(sqr(a)/2)*arcsin(x/a) , fffixed,6,4);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', ',', #8, #13])
then begin
Key:=#0 ;
ShowMessage('Вводить можно только цифры и запятую!');
exit;
end;
end;
end.
Листинг модуля Unit2.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm2 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Show;
end;
end.
