Delphi-Help

unit laba77888888888888888;

interface

uses

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

  ExtCtrls, TeeProcs, TeEngine, Chart, Buttons, StdCtrls, Series, math,matfu;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Button1: TButton;

    Button2: TButton;

    BitBtn1: TBitBtn;

    Chart1: TChart;

    Label6: TLabel;

    Edit6: TEdit;

    Label7: TLabel;

    Edit7: TEdit;

    Series1: TLineSeries;

    RadioGroup1: TRadioGroup;

    Series2: TLineSeries;

    Series3: TLineSeries;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

Type

   fun = function(x:extended):extended; // Объявление типа функция

var

  Form1: TForm1;

  Xmin,Xmax,Ymin,Ymax,Hx,Hy,h : extended;

  u: integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

   {Установка начальных параметров координатных осей}

 Xmin:=0;

 Xmax:=0;

 Ymin:=0;

 Ymax:=0;

 Hx:=0;

 Hy:=0;

 h:=0.01; // Установка шага расчета таблицы

   {Вывод данных в окна однострочных редакторов}

  Edit1.Text:=FloatToStr(Xmin);

  Edit2.Text:=FloatToStr(Xmax);

  Edit3.Text:=FloatToStr(Ymin);

  Edit4.Text:=FloatToStr(Ymax);

  Edit5.Text:=FloatToStr(Hx);

  Edit6.Text:=FloatToStr(Hy);

  Edit7.Text:=FloatToStr(h);

  Chart1.BottomAxis.Automatic:=False;// Отключение автоматического определения
                                         параметров нижней оси

  Chart1.BottomAxis.Minimum:=Xmin;    // Установка левой границы нижней оси

  Chart1.BottomAxis.Maximum:=Xmax;   // Установка правой границы нижней оси

  Chart1.LeftAxis.Automatic:=False;        // Отключение автоматического определения
                                              параметров левой оси

  Chart1.LeftAxis.Minimum:=Ymin;         // Установка нижней границы левой оси

  Chart1.LeftAxis.Maximum:=Ymax;       // Установка верхней границы левой оси

  Chart1.BottomAxis.Increment:=Hx;      // Установка шага разметки по нижней оси

  Chart1.LeftAxis.Increment:=Hy;           // Установка шага разметки по левой оси

  button2.hide;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

{Чтение даннных из окон однострочных редакторов}

  Xmin:=StrToFloat(Edit1.Text);

  Xmax:=StrToFloat(Edit2.Text);

  Ymin:=StrToFloat(Edit3.Text);

  Ymax:=StrToFloat(Edit4.Text);

  Hx:=StrToFloat(Edit5.Text);

  Hy:=StrToFloat(Edit6.Text);

  Chart1.BottomAxis.Minimum:=Xmin;   // Установка левой границы нижней оси

  Chart1.BottomAxis.Maximum:=Xmax; // Установка правой границы нижней оси

  Chart1.LeftAxis.Minimum:=Ymin;        // Установка нижней границы левой оси

  Chart1.LeftAxis.Maximum:=Ymax;      // Установка верхней границы левой оси

  Chart1.BottomAxis.Increment:=Hx;     // Установка шага разметки по нижней оси

  Chart1.LeftAxis.Increment:=Hy;          // Установка шага разметки по левой оси

    button2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

 var x,y1,j: extended;

 y: array [1..3] of extended;

 f: fun;

begin

  {Очистка графиков}

   Series1.Clear;

   Series2.Clear;

   Series3.Clear;

      Xmin:=StrToFloat(Edit1.Text);

      Xmax:=StrToFloat(Edit2.Text);

        h:=StrToFloat(Edit7.Text);  // Шаг расчета таблицы для графика

    x:=Xmin;     // Начальное значение по оси X

case RadioGroup1.ItemIndex of

        0: u:=1;

        1: u:=2;

        2: u:=3;

         end;

x:=Xmin;

y[u]:=0;

repeat

If (x>0.5) and (x<10) then

begin

if u=1 then

y[u]:=e(x);

if u=2 then

y[u]:=x2(x);

if u=3 then

y[u]:=sh(x);

     y1:=exp(y[u]-abs(x));

      Series1.AddXY(x,y1,'',clTeeColor);  // Вывод точки на график

        //x:=x+h;

end;

        x:=x+h;

   until (x>Xmax);

x:=Xmin;

y[u]:=0;

repeat

j:=x;

if (x>0.1) and (x<0.5) then

begin

if u=1 then

y[u]:=e(j);

if u=2 then

y[u]:=x2(j);

if u=3 then

y[u]:=sh(j);

y1:=sqrt(abs(y[u]+x));

Series2.AddXY(x,y1,'',clTeeColor);  // Вывод точки на график

end;

x:=x+h;

until (x>Xmax);

x:=Xmin;

y[u]:=0;

repeat

if (x<0.1) or (x>10) then

begin

if u=1 then

y[u]:=e(x);

if u=2 then

y[u]:=x2(x);

if u=3 then

y[u]:=sh(x);

y1:=2*y[u]*y[u];

Series3.AddXY(x,y1,'',clTeeColor);  // Вывод точки на график

end;

x:=x+h;

until (x>Xmax);

end;

end.

unit matfu;

interface

 Function e(x:extended)   : extended; // Функция для вычисления тангенса

 Function Sh(x:extended)   : extended; // Функция для вычисления гиперболического синуса

 Function x2(x:extended) : extended; // Функция для вычисления квадрата синуса

implementation

 Function e;

  begin

    Result:=exp(x);

 end;

 Function sh;

  begin

    Result:=(exp(x)-exp(-x))/2;

 end;

 Function x2;

  begin

    Result:=x*x;

 end;

end.