Аналитическая геометрия

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, TeeProcs, TeEngine, Chart, ComCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Label7: TLabel;
    Button2: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    GroupBox3: TGroupBox;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ColorBox3: TColorBox;
    CheckBox1: TCheckBox;
    N5: TMenuItem;
    N6: TMenuItem;
    TrackBar1: TTrackBar;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    Label12: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
    procedure ColorBox2Change(Sender: TObject);
    procedure ColorBox3Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
//Описание глобальных переменных
var
  Form1: TForm1;
  x1,y1,x2,y2:real;
  x0,y0:integer;
s,i,xe,ye:integer;
x,y,A,B:real;
dx,dy:real;
Mx,My:real;
xmin,xmax,ymin,ymax:integer;
a1,a2,b1,b2:integer;
implementation
 
uses Unit2, Unit3, Unit4, Unit5, Unit6;
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
xmin:=-3; xmax:=4; ymin:=-8; ymax:=8;
{a1:=10; a2:=257;
b1:=10; b2:=514;}
x1:=StrToFloat(Edit1.Text);
y1:=StrToFloat(Edit2.Text);
x2:=StrToFloat(Edit4.Text);
y2:=StrToFloat(Edit5.Text);
 
if (x2<>x1) and (y2=y1) then begin
messagedlg('точки находятся параллельно оси абсцисс',mtInformation,[mbOk],0);
end;
if (x1<xmin) or (x1>xmax) or (y1>ymax) or (y1<ymin) then begin
messagedlg('введены не допустимые координаты точки Q, введите координаты входящие в предел',mtError,[mbOk],0);
end;
if (x2<xmin) or (x2>xmax) or (y2>ymax) or (y2<ymin) then begin
messagedlg('введены не допустимые координаты точки P, введите координаты входящие в предел',mtError,[mbOk],0);
end;
if (x2=x1) and (y2=y1) then begin
messagedlg('координаты точки Q и точки P совпали',mtInformation,[mbOk],0);
end;
if abs(x1-x2)<0.00001 then begin
messagedlg('прямая проходит параллельно оси ординат, деление на ноль запрещено',mtInformation,[mbOk],0);
end;
 
 if abs(x1-x2)<0.00001 then  Label7.Caption :='коэффициент и'+#13'длину отрезка'+#13'найти нельзя'
 else  begin
 A:=(y1-y2)/(x1-x2);
 B:=y2-A*x2;
Label7.Caption :='коэффициент A= '+FloatToStr(A)+#13+'длина отрезка B= '+FloatToStr(B);
end;//Вывод информации
with PaintBox1.Canvas do
PaintBox1.Repaint;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);//Кнопка очистки графика
begin
Label7.Caption:='';
PaintBox1.Repaint;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=ColorBox3.Selected;
xmin:=-3; xmax:=4; ymin:=-8; ymax:=8;//Минимальные и максимальные значения
a1:=10; a2:=257; //Приделы по оси ОХ
b1:=10; b2:=514; //Приделы по оси ОУ
a1:=a1-TrackBar1.Position; a2:=a2+5+TrackBar1.Position;
a1:=a1+ScrollBar1.Position; a2:=a2+ScrollBar1.Position;
b1:=b1-TrackBar1.Position; b2:=b2+8+TrackBar1.Position;
b1:=b1+ScrollBar2.Position; b2:=b2+ScrollBar2.Position;
dx:=1; dy:=1;//Шаг математической системы координат
with PaintBox1.Canvas do
begin
{Brush.Color:=clWhite;//Цвет кисти
Rectangle(-1,-1,PaintBox1.Width+1,PaintBox1.Height+1);//Прямоугольник}
Pen.width:=1;//Толщина линии
Pen.Color:=clBlack;//Цвет линии
Mx:=round((a2-a1)/(xmax-xmin));//Расчет масштаба по х
My:=round((b2-b1)/(ymax-ymin));//Расчет масштаба по у
x0:=a1-round(mx)*xmin;//Расчет начальной координаты х0
y0:=b1+round(my)*ymax;//Расчет начальной координаты у0
TextOut(a2-10,y0-15,'X');//Оцифровка математической координаты Х
TextOut(x0+5,b1+5,'Y');//Оцифровка математической координаты У
TextOut(x0+5,y0-18,'0');//Оцифровка нуля
Pen.width:=1;//Толщина линии
Pen.Style:=psDot;//Стиль линии
Pen.Color:=ColorBox2.Selected;//Цвет линии
x:=xmin;
repeat
Xe:=round(mx*(x-xmin)+a1);//Расчет экранной координаты Х
if CheckBox1.Checked=true then
begin
MoveTo(xe,b1);LineTo(xe,b2);//Линия сетки
end;
if x<>0 then TextOut(xe-5,y0+5,FloatToStr(x));//Оцифровка ОХ
x:=x+dx;
until(x>xmax);
y:=ymin;
repeat
Ye:=round(my*(-y+ymax)+b1);//Расчет экранной координаты У
if CheckBox1.Checked=true then
begin
MoveTo(a1,ye);LineTo(a2,ye);//Линия сетки
end;
if y<>0 then textOut(x0-20,ye-5,FloatToStr(y));//Оцифровка ОУ
y:=y+dy;
until(y>ymax);
Pen.Width:=2;//Толщина математических координат
Pen.Color:=ColorBox1.Selected;//Цвет математических осей координат
Pen.Style:=psSolid;//Стиль линий
MoveTo(a1,y0); LineTo(a2,y0);//Математическая координатная ось ОХ
MoveTo(x0,b1); LineTo(x0,b2);//Математическая координатная ось ОУ
 
  for i:=-3 to 4 do              //засечки по оси х
   begin
    moveto(x0+round(i*mx),y0-3);
    lineto(x0+round(i*mx),y0+3);
   end;
  for i:=-8 to 8 do             //засечки по оси у
   begin
    moveto(x0-3,y0-round(i*my));
    lineto(x0+3,y0-round(i*my));
    end;
 
//Pen.Color:=clBlack;
If Label7.Caption<>'' then
begin
 
Pen.Color:=clBlack;Pen.Width:=2;//Цвет и толщина точек
Brush.Color:=clBlack;
Ellipse( round(a1-mx*xmin+x1*mx)-3 ,round(b1+my*ymax-y1*my)-3,round(a1-mx*xmin+x1*mx)+3 ,round(b1+my*ymax-y1*my)+3);//Точка Q
Ellipse( round(a1-mx*xmin+x2*mx)-3 ,round(b1+my*ymax-y2*my)-3,round(a1-mx*xmin+x2*mx)+3 ,round(b1+my*ymax-y2*my)+3);//Точка P
Brush.Color:=clWhite;
TextOut(round(a1-mx*xmin+x2*mx)+5,round(b1+my*ymax-y2*my)-12,'P');//Оцифровка точки P
TextOut(round(a1-mx*xmin+x1*mx)+5,round(b1+my*ymax-y1*my)-12,'Q');//Оцифровка точки Q
 
 Pen.Color:=clBlue;Pen.Width:=1;//Цвет и толщина прямой
  {x2:=strtoint(edit4.Text);
y2:=strtoint(edit5.Text);}
MoveTo (round(a1-mx*xmin+x1*mx),round(b1+my*ymax-y1*my));
  {x1:=strtoint(edit1.Text);
y1:=strtoint(edit2.Text);}
LineTo(round(a1-mx*xmin+x2*mx),round(b1+my*ymax-y2*my));
end;
end;
end;
 
procedure TForm1.N4Click(Sender: TObject);//о программе
begin
Form2.ShowModal;
end;
 
procedure TForm1.N2Click(Sender: TObject);//общее аналитическое решение
begin
Form3.ShowModal;
end;
 
procedure TForm1.ColorBox1Change(Sender: TObject); //цвет осей координат
begin
PaintBox1.Repaint;
end;
 
procedure TForm1.ColorBox2Change(Sender: TObject);//цвет сетки
begin
PaintBox1.Repaint;
end;
 
procedure TForm1.ColorBox3Change(Sender: TObject);//цвет фона
begin
PaintBox1.Repaint;
end;
 
 
procedure TForm1.CheckBox1Click(Sender: TObject);//вкл/выкл сетку
begin
PaintBox1.Repaint;
end;
 
 
procedure TForm1.N6Click(Sender: TObject);//инструкция по использованию
begin
Form4.ShowModal;
end;
 
procedure TForm1.N5Click(Sender: TObject);//пример
begin
Form5.ShowModal;
end;
 
 
procedure TForm1.TrackBar1Change(Sender: TObject);//масштаб графика
begin
PaintBox1.Repaint;
end;
 
procedure TForm1.N7Click(Sender: TObject);//об авторе
begin
Form6.ShowModal;
end;
 
procedure TForm1.N9Click(Sender: TObject);//выход
begin
close;
end;
 
procedure TForm1.ScrollBar2Change(Sender: TObject);//прокрутка вертикальная
begin
PaintBox1.Repaint;
end;
 
procedure TForm1.ScrollBar1Change(Sender: TObject);//прокрутка горизонтальная
begin
PaintBox1.Repaint;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);//блокировка кнопки если не введены все данные
begin
if (Edit1.Text='') or (Edit2.Text='') or (Edit4.Text='') or (Edit5.Text='') then Button1.Enabled:=False
else Button1.Enabled:=True;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);//запрет в Edit ввода букв
begin
 case Key of
 '0'..'9',#8,'-':; //кроме этого
 else Key:=chr(0);
 end;
end;
 
end.